Programming Perl - 正規表現によるテキスト処理(置換演算子「s///」とオプション修飾子「/gi」)

開発環境

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

2.

大文字小文字を区別しないのでオブション修飾子「/i」を指定。

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; my $in = $ARGV[0]; die if !$in; my $out = $in."out"; die "Can't open '$in': $!" unless (open IN, "<$in"); die "Can't write '$out': $!" unless (open OUT, ">$out"); while(<IN>){ s/fred/Larry/gi; print OUT $_; }

用意したテキストファイル(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 $

作成したプログラムを実行した後に出来上がった上記のテキストファイルに修正を加えたコピー(sample.out)

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

思い通り置換出来たみたい。