開発環境
- OS X Lion - Apple(OS)
- BBEdit(Text Editor)
- プログラミング言語:Perl
『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2)の8章(正規表現によるマッチ)、8.10(練習問題)4を解いてみる。
その他参考書籍
4.
コード(BBEdit)
sample.pl
#!/usr/bin/env perl use strict; use warnings; use utf8; use 5.016; binmode STDOUT, ':utf8'; binmode STDIN, ':utf8'; my $label = "word"; while (<>) { chomp; if (/\b(?<$label>\w*a)\b/) { print "Matched: |$`<$&>$'|\n"; print "'$label' contains '$+{$label}'\n"; } else { print "No match: |$_|\n"; } }
入出力結果(Terminal)
$ ./sample.pl test.txt No match: |A| Matched: |<a>| 'word' contains 'a' Matched: |<kamimura>'s blog| 'word' contains 'kamimura' Matched: |http://<sitekamimura>.blogspot.com| 'word' contains 'sitekamimura' No match: |KMI| Matched: |http://www.<mkamimura>.com | 'word' contains 'mkamimura' 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: |<wilama>| 'word' contains 'wilama' No match: |barney| Matched: |<wilma> and fred| 'word' contains 'wilma' Matched: |fred and <wilma>| 'word' contains 'wilma' Matched: |<Wilma> and Fred | 'word' contains 'Wilma' Matched: |Fred and <Wilma>| 'word' contains 'Wilma' Matched: |<wilma>&fred| 'word' contains 'wilma' Matched: |Mrs. <Wilma> Flintstone | 'word' contains 'Wilma' Matched: |I saw <Wilma> yesterday| 'word' contains 'Wilma' Matched: |I, <Wilma>!| 'word' contains 'Wilma' No match: |Z| Matched: |<llama>| 'word' contains 'llama' $
0 コメント:
コメントを投稿