在Perl腳本中,可以使用以下幾種方法傳遞變量:
@ARGV
數組來獲取命令行參數的值。# 腳本1.pl
my $var = $ARGV[0];
print "腳本1傳遞的變量值為:$var\n";
# 運行腳本
perl 腳本1.pl hello
# 腳本1.pl
$ENV{'MYVAR'} = "hello";
# 腳本2.pl
my $var = $ENV{'MYVAR'};
print "腳本1傳遞的變量值為:$var\n";
# 腳本1.pl
open(my $fh, '>', 'var.txt') or die "無法打開文件: $!";
print $fh "hello";
close($fh);
# 腳本2.pl
open(my $fh, '<', 'var.txt') or die "無法打開文件: $!";
my $var = <$fh>;
close($fh);
chomp($var);
print "腳本1傳遞的變量值為:$var\n";
這些方法可以根據具體的需求來選擇使用,也可以根據實際情況結合使用。