Programming Perl - 正規表現によるテキスト処理(書き戻し編集(in-lace editing))

開発環境

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

4.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; $^I = ".bak"; while (<>){ $_ .= "## Copyright (C) 2011 by kamimura\n" if /^#!/; print; }

コピーライト表示を追加するファイル(sample)

#!/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"; }

入出力結果(Terminal)

$ ./perl_program sample $

コピーライト表示の追加と元のファイルのバックアップが出来たか確認。

ファイル(sample)

#!/usr/bin/env perl ## Copyright (C) 2011 by kamimura 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.bak)

#!/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に追加されたコピーライト表示を削除して、次はコマンドラインから同様な働きをするプログラムを実行してみる。

入出力結果(Terminal)

$ perl -p -i.bak -w -e '$_.="## Copyright (C) 2011 by kamimura" if /^#!/' sample

最初に書いたプログラムと同様な結果になり上手くいった。