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

Question

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

标签： perlbioinformatics

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: $!";