プログラミング学習の記録 492.1 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)の9章(正規表現によるテキスト処理)の練習問題1

開発環境

• 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) の9章(正規表現によるテキスト処理), 9.6(練習問題)、1を解いてみる。

1.

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

$what="fred"バージョン

コード(TextWrangler)

#!/usr/bin/perl -w my $what="fred"; while(<>){ chomp; if(/($what){3}/){ print "Matched: |$`<$&>$'|\n"; } else { print "No match: |$_|\n"; } }

入出力結果(Ternimal)

$ ./my_program fred No match: |fred| fredfred No match: |fredfred| fredfredfred Matched: |<fredfredfred>|

 

$what="fred|barney"バージョン

コード(TextWrangler)

#!/usr/bin/perl -w my $what="fred|barney"; while(<>){ chomp; if(/($what){3}/){ print "Matched: |$`<$&>$'|\n"; } else { print "No match: |$_|\n"; } }

入出力結果(Ternimal)

$ ./my_program fred No match: |fred| barney No match: |barney| fredfredbarney Matched: |<fredfredbarney>| barneyfredfred Matched: |<barneyfredfred>| barneybarneybarney Matched: |<barneybarneybarney>|