如何從命令行參數插入一個變量到字符串中？

Question

我的程序需要一個命令行參數，我想用它來改變我的Perl腳本的工作目錄。

use strict; 
use warnings; 
use Getopt::Std; 
use Cwd 'chir'; 

my %opts=(); 
getopts('a:v:l:', \%opts); 
my $application = $opts{a}; 
my $version = $opts{v}; 
my $location = $opts{l}; 

print "$application, $version, $location\n"; 

if($application eq 'abc') { 
    #print "you came here\n"; 
    chdir "/viewstore/ccwww/dst_${application}_${version}/abc/${location}"; 
    print $ENV{PWD}; 
    print "you came here\n"; 
} 

我以前試過用chdir '/var/tmp/dst_$application/$version/$location';，但那也沒用。

該代碼的當前版本提供此警告。

全局符號「$ application_」需要在./test.pl第20行顯式包名。由於編譯錯誤，執行./test.pl時中止。

20行是chdir。

Answer 1

您在chdir命令中使用單引號''。單引號不會在Perl中進行可變插值。這意味着'/var/tmp/dst_$application/...'表示/var/tmp/dst_$application/...，而不是/var/tmp/dst_foo/...。

您需要使用雙引號""來插入字符串中的變量。

chdir "/var/tmp/dst_$application/$version/$location"; 

這將創建/var/tmp/dst_foo/...來代替。

如果您需要從字符串的其餘部分分離變量，請使用此表示法。

print "${foo}bar"; 

這是"$foobar"不同因爲Perl認爲整個$foobar是變量名。