遇到个问题，希望解惑（已解决）

fucj

#!/usr/bin/perl
$a=<STDIN>;      这里没有去除换行符，导致无法匹配
@h=qw/aa bb cc dd ee ff/;
for $i (@h) {
                if (/$a/) {
                print "$i\n";
                }
}

为什么没有输出阿，搞不懂怎么会匹配不到，大侠帮我

yybmsrs

for $i (@h) {

ludio333

chomp($a);

fucj

chomp($a)，是去除换行符，我加上去，也没有结果输出阿

fucj

2楼的兄弟什么意思，$i有问题吗？

ludio333

my $a = <STDIN>;
chomp($a);
my @h = qw/aa bb cc dd ee ff/;
for my $i (@h) {
                if ($i=~/$a/) {
                print "$i\n";
                }
}

fucj

明白了，原来是没有去掉换行符，导致无法匹配，还有1个问题，什么时候可以用my，这个程序里用不用my，关系不大吧？

zhlong8

/$a/ 实际上是 $_ =~ m/$a/ 你循环变量是 $i 它也不会神奇的变成 $i =~ m/$a/ 还是用的 $_

fucj

恩，我开始的时候是那样写的，后来变着变着就出问题了

xmchenb

楼上正解：
$a=<STDIN>;
@h=qw/aa bb cc dd ee ff/;
for $_ (@h) {
                       chomp($a);
                if (/$a/) {
                print "$_\n";
                }
}