Programming Perl - 正規表現によるマッチ(単語境界アンカー)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (いずれはこのフル機能版のBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)の8章(正規表現によるマッチ),　8.10(練習問題)、2を解いてみる。

2.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; while(<>){ chomp; if(/a\b/){ print "Matched: |$`<$&>$'|\n"; } else { print "No match: |$_|\n"; } }

サンプルテキストファイル(sample)

kamimura's blog http://sitekamimura.blogspot.com KMI http://www.mkamimura.com Fred FRED fred frederick Alfred fred flintstone Mr. Slate Mississippi Bamm-Bamm wilama barney wilma and fred fred and wilma Wilma and Fred Fred and Wilma wilma&fred Mrs. Wilma Flintstone I saw Wilma yesterday I, Wilma! llama

入出力結果(Terminal)

$ ./perl_program sample Matched: |kamimur<a>'s blog| Matched: |http://sitekamimur<a>.blogspot.com| No match: |KMI| Matched: |http://www.mkamimur<a>.com | No match: |Fred| No match: |FRED| No match: |fred| No match: |frederick| No match: |Alfred| No match: |fred flintstone| No match: |Mr. Slate | No match: |Mississippi| No match: |Bamm-Bamm | Matched: |wilam<a>| No match: |barney| Matched: |wilm<a> and fred| Matched: |fred and wilm<a>| Matched: |Wilm<a> and Fred | Matched: |Fred and Wilm<a>| Matched: |wilm<a>&fred| Matched: |Mrs. Wilm<a> Flintstone | Matched: |I saw Wilm<a> yesterday| Matched: |I, Wilm<a>!| Matched: |llam<a>| $

wilma、Mrs. Wilma Flintstone、wilma&fredにはマッチして、barneyにはマッチしない。