我想要搜索數組中所有與另一個數組中的元素具有相同起始字符集的元素。要說清楚:如何從Perl數組中選擇某些元素?
@array = ("1a","9","3c");
@temp =("1","2","3");
我想只打印1a和3c。當我嘗試使用下面的程序就會打印出數組,而不是兩個我希望中的所有元素:
foreach $word (@temp)
{
if(grep /^$word/ , @array)
{
print $_;
}
}
任何見解將不勝感激。
你應該接受一些你以前的問題的答案:) – 2010-10-12 14:38:11
完成。不知道我必須這樣做。 – omgpython 2010-10-12 14:45:00
我建議你用'my'聲明變量,例如'我的@array =(..)','foreach我的$ word(@temp){..}'並且啓用嚴格和警告 – 2010-10-12 17:08:26