開発環境
- Mac OS X Snow Leopard (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(練習問題)、5を解いてみる。
5.
やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))
コード(TextWrangler)
#!/usr/bin/perl use strict; use warnings; while(<>){ chomp; if(/ \b(\w*a)\b # メモリ変数$1にキャプチャ (.{0,5}) # メモリ変数$2にキャプチャ /sx){ print "Matched: |$`<$&>$'|\n"; print "'word' contains '$1'" ." 続く最大5文字'$2'\n"; } else { print "No match: |$_|\n"; } }
入出力結果(Ternimal)
これまでと同様に、単なるwilmaにもマッチする。
サンプルテキストを入力として与えてみる。
入出力結果(Ternimal)
またも出力が変な形に。。そろそろ原因が分かるようにならないと!
ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。
0 コメント:
コメントを投稿