perl 正規表現で簡単なマッチング1

gオプションをつけて、繰り返し検索を行う。


#繰り返し検索

$string = "ABCDEFABCDABC";

#gオプションとwhileで繰り返し検索する
#パターンにマッチした文字列が変数$&に入る
#マッチした部分の前の文字列が$`に入る
#マッチした部分の後の文字列が$'に入る
print "パターン前: $`\nパターン: $&\nパターン後: $'\n\n" while ($string =~ /ABC/g);

実行結果

パターン前:
パターン: ABC
パターン後: DEFABCDABC

パターン前: ABCDEF
パターン: ABC
パターン後: DABC

パターン前: ABCDEFABCD
パターン: ABC
パターン後:


初めてのPerl 第6版

初めてのPerl 第6版