Programming Perl - 正規表現によるテキスト処理(置換(プレースホルダとして「\n」を利用))

開発環境

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

3.

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

chompで改行文字を除いてから、fredを一時的に改行文字「\n」に変換しておいてwilmaをfredに変換し、最後に改行文字「\n」をwilmaに変換する。

コード(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>){ chomp; s/fred/\n/gi; s/wilma/fred/gi; s/\n/wilma/gi; print OUT "$_\n"; }

用意したテキストファイル(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 wilma wilma wilma wilmaerick Alwilma wilma flintstone Mr. Slate Mississippi Bamm-Bamm wilama barney fred and wilma wilma and fred fred and wilma wilma and fred fred&wilma Mrs. fred Flintstone I saw fred yesterday I, fred! llama

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