请教一条语句

yybmsrs

1. perl -le '@x=(1..100);@r=print for @x;print STDERR "@r"' > /dev/null

复制代码

之前仙子写的，为什么打印出来是1呢？

1. my @x=(1..100);
   
2. my @r = print for @x;
   
3. 
   
4. print Dumper(\@r);

复制代码

这个结果是这样：

1. $VAR1 = [];

复制代码

toniz

print Dumper(\@r)  超出作用域

yybmsrs

回复 2# toniz


    什么意思？

toniz

my @x=(1..100);

for( @x){
my @r = print ;
}

print Dumper(\@r);

黑色阳光_cu

1. #!/bin/env perl
   
2. 
   
3. my $n = $_ foreach (1 .. 2);
   
4. warn "\$n = $n";
   
5. $m = $_ foreach (1 .. 2);
   
6. warn "\$m = $m";
   
7. 
   
8. my $l = 1 if (1);
   
9. warn "\$l = $l";
   
10. $k = 1 if (1);
    
11. warn "\$k = $k";

复制代码

foreach的行为

yybmsrs

汗  明白了

my @r = print for @x; 看成了my @r = (print for @x);

黑色阳光_cu

my $n = $_ foreach (1 .. 2);
warn "\$n = $n";


这个打印比较奇怪。$n没有超作用域，但值却是undef。

yybmsrs

回复 7# 黑色阳光_cu


    my $n = $_ foreach (1 .. 2);这个相当于foreach (1 .. 2){my $n = $_ }吧？这样就超出了

黑色阳光_cu

[quote]回复  黑色阳光_cu

1. use strict;
   
2. use warnings;
   
3. 
   
4. my $n = $_ foreach (1 .. 2);
   
5. warn "\$n = $n";
   
6. 
   
7. my $m = 1 if (1);
   
8. warn "\$m = $m";
   

复制代码

咋解释？

yybmsrs

回复 9# 黑色阳光_cu


    my $m = 1 if (1);相当于my $m;if(1) {$m = 1};

    if跟foreach不大一样