perl初心者BLOG

■ [基礎][正規表現]大文字、小文字を無視して比較する 02:43

・サンプルコード

~$ cat hoge.pl
#!/usr/local/bin/perl
@arr = qw(japan Japan JAPAN);
foreach(@arr) {
        if ($_ =~ /japan/i) {
                print $_, "はjapanです\n";
        }
}

・実行結果

~$ ./hoge.pl
japanはjapanです
Japanはjapanです
JAPANはjapanです