perl ファイルから一行を読み込んでパターンマッチをする場合 複数マッチするのがあってもすべてヒットさせる

 

ファイルから一行を読み込んでパターンマッチをする場合

以下では一行に複数マッチするのがあっても

最初のもので終わりで、次の行に行ってしまう。

#!/usr/bin/perl

use utf8;

while (<>) {

    /([\w]+)/

    print "$1\n";

}

以下では一行に複数マッチするのがあっても ok 

#!/usr/bin/perl

use utf8;

while (<>) {

    #一行を表示

    #print "$_\n";

    #行に複数マッチしても全てprintさせる

    while($_=~/([\w]+)/g){

        print "$1\n";