如何将用户定义的路径保存到变量中？

Question

如何将用户定义的路径保存到Perl中的变量中，以及如何在脚本的其他位置使用该变量，因此，如果用户提供新路径，它将在使用该变量的每个位置更新该路径。

Answer 1

您在这里描述的是变量的标准行为。所以我想知道我是否缺少什么。

my $default_path = '/the/default/path';

print "Enter your path [$default_path]: ";
chomp(my $user_path = <STDIN>);

my $path = $user_path // $default_path;

print "The path we'll use is: $path";

# And then, much later in the program...

my $filename = 'somefile.txt';
open my $fh, '>', "$path/$filename"
  or die "Cannot open $path/$filename: $!";