regex - Perl初心者：文字列の配列で文字列を見つけようとしています

Question

文字列を文字列の配列と照合する必要があります。検索している文字列には、ワイルドカードを含めることができるはずです。

#!/usr/bin/perl
#
##   disable buffered I/O which would lead
##   to deadloops for the Apache server
$| = 1; 
#
##   read URLs one per line from stdin
while (<>) {
    my $line = $_;
    my @array1 = ("abc","def","ghi");
    $found = 0;
    if (/$line/i ~~ @array1)
    {
        print "found\n";
    }
    else
    {
        print "not found\n";
    }

}

の入力でこのスクリプトをテストするabcと、返されますnot found

perl ./mapscript.pl
abc
not found

Answer 1

入力の最後に改行があります。追加：

chomp $line;

直後の

my $line = $_;

Answer 2

while 内のchomp(my $input = $_)代わりに改行を削除するために使用します。my $input = $_

** OOPs.. 重複投稿していることに気付かなかった..

Answer 3

末尾の改行は <> を使用して常に存在します。チョップを参照してください