Perl: 怎么实现在脚本参数里使用脚本里面的变量？

miniqq

RT
比如：

test.pl
#!/usr/bin/perl

my $n = 1;
my $cmd="echo";
my $arg = $ARGV[0];
while ($n < 10) {
    system("$cmd $arg");
    $n++;
}


执行:
# perl test.pl "\$n"

[ 本帖最后由 miniqq 于 2009-11-14 10:43 编辑 ]

lokchungk

是這個麼?

push @ARGV,'var'; $var = 'Hello World'; print ${$ARGV[0]};

miniqq

楼上的不是我想要的，
我是想要在命令行参数里使用脚本里的变量。比如说有一个参数为调用外部脚本而把本身里面的变量值传给那个外部脚本。

test1.pl -c 'test2.pl  "\$n" '    $n是test1.pl里定义的变量，把它传给test2.pl

lokchungk

原帖由 miniqq 于 2009-11-13 19:56 发表
test.pl
#!/usr/bin/perl

my $n = 1;
my $cmd="echo";
my $arg = $ARGV[0];
while ($n < 10) {
    system("$cmd $arg");
    $n++;
}


执行:
# perl test.pl "\$n"

那請問您期望這個有什麼輸出?
是這樣嗎?

1 2 3 4 5 6 7 8 9

如果是的話,根據您的寫法,可以寫成這樣.

push @ARGV, '$n'; $n = 1; $cmd="echo"; while ($n < 10) {     $arg = eval $ARGV[0];     system("$cmd $arg");     $n++; }

這樣寫也行

push @ARGV, 'n'; $n = 1; $cmd="echo"; while ($n < 10) {     system("$cmd ${$ARGV[0]}");     $n++; }

或者您是想用our.

對不起, 我理解能力比較差.
hope this help

[ 本帖最后由 lokchungk 于 2009-11-14 11:44 编辑 ]

lokchungk

解決了?

miniqq

看来我的需求有问题，算了，结贴！