自定义函数数值传递
时间：2008-10-06 来源：snowtty
#!perl -w
#
print "input:";
chomp($input=<STDIN>);
my $var=$input;
my @name=qw{com net org gov};
my $want=&find($var,@name);
sub find {
print "@_\n";
($what,@list)=@_;
foreach (0 ..$#list) {
if ($what eq $list[$_]) {
return $_;
}
}
"No Found";
}
print "your array is:@name\n$input\'s possion:$want\n";
#
print "input:";
chomp($input=<STDIN>);
my $var=$input;
my @name=qw{com net org gov};
my $want=&find($var,@name);
sub find {
print "@_\n";
($what,@list)=@_;
foreach (0 ..$#list) {
if ($what eq $list[$_]) {
return $_;
}
}
"No Found";
}
print "your array is:@name\n$input\'s possion:$want\n";
相关阅读 更多 +
