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

5.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; my %files; for (@ARGV){ $files{$_} = 1; } while (<>){ delete $files{$ARGV} if /^## Copyright \(C\)/; } @ARGV = keys %files; $^I = ".bak"; while (<>){ $_ .= "## Copyright (C) 2011 by kamimura\n" if /^#!/; print; }

コピーライト表示が既に入っているファイル(sample1)

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

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

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

入出力結果(Terminal)

$ ./perl_program sample1 $

コピーライト表示の追加、既にコピーライトが入っているファイルは編集しない、そしてコピーライトを追加したファイルのバックアップがちゃんと出来てるか確認。

ファイル(sample1)

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

ファイル(sample2)

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

ファイル(sample2.bak)

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

パターンマッチで「(C)」の「()」を「\」でエスケープしないといけないのにそれに気づくのに時間がかかった。(それまで何度やってもコピーライトが2重になってた。)