$_的问题

machine

11^# machine 发表于 2008-10-17 10:22

foreach $num (@num) {
print "$name[$num-1]\n";
}

machine

12^# machine 发表于 2008-10-17 10:26

可以把foreach循环想象成这样（一般省略$_）：
foreach $_ (@num) {
}
然后用$num（或什么别的变量都可以）替换$_，就成了：
foreach $num (@num) {
}

gamester88

13^# gamester88 发表于 2008-10-17 10:35

谢谢，我把foreach在看看

dl0622

14^# dl0622 发表于 2008-10-17 13:55

QUOTE:

原帖由 machine 于 2008-10-17 10:26 发表
可以把foreach循环想象成这样（一般省略$_）：
foreach $_ (@num) {
}
然后用$num（或什么别的变量都可以）替换$_，就成了：
foreach $num (@num) {
}

不错

tony_413

15^# tony_413 发表于 2008-10-17 16:27

或者干脆可以这样，还省去了定义变量了。

#!/usr/bin/perl -w

use strict;
my @name=qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@_=<>);
foreach (@_){
print "$name[$_-1]\n";
}