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

開発環境

• 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(練習問題)、6を解いてみる。

5.

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

用意したテキストファイル(TextWrangler)

(いくつかの行の行末に空白をいくつか追加)

test

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!

コード(TextWrangler)

#!/usr/bin/perl -w while(<>){ chomp; if(/\s+$/){ print "$_ (行末に空白文字発見!)\n"; } }

入出力結果(Ternimal)

$ ./my_program test fred flintstone (行末に空白文字発見!) Bamm-Bamm (行末に空白文字発見!) Fred and Wilma (行末に空白文字発見!) I saw Wilma yesterday (行末に空白文字発見!) I, Wilma! (行末に空白文字発見!)