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

開発環境

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

 

5.

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

コード(TextWrangler)

#!/usr/bin/perl use strict; use warnings; my %hash; foreach (@ARGV){ $hash{$_} = 0; } while (<>){ if(/^## Copyright/){ delete $hash{$ARGV}; } } @ARGV = sort keys %hash; die if !@ARGV; $^I = ".bak"; while (<>){ if(/^#!/){ $_ .= "## Copyright (C) 20XX by Yours Truly\n"; } print; }

入出力結果(Terminal)

$ ./perl_program perl_progrm

コピーライトを追加後のファイル(perl_program)

#!/usr/bin/perl ## Copyright (C) 20XX by Yours Truly use strict; use warnings; my %hash; foreach (@ARGV){ $hash{$_} = 0; } while (<>){ if(/^## Copyright/){ delete $hash{$ARGV}; } } @ARGV = sort keys %hash; die if !@ARGV; $^I = ".bak"; while (<>){ if(/^#!/){ $_ .= "## Copyright (C) 20XX by Yours Truly\n"; } print; }

コピーライトをさらに追加しようとしても

入出力結果(Terminal)

$ ./perl_program perl_programDied at ./perl_program line 16, <> line 23.

ファイル(perl_program)

#!/usr/bin/perl ## Copyright (C) 20XX by Yours Truly use strict; use warnings; my %hash; foreach (@ARGV){ $hash{$_} = 0; } while (<>){ if(/^## Copyright/){ delete $hash{$ARGV}; } } @ARGV = sort keys %hash; die if !@ARGV; $^I = ".bak"; while (<>){ if(/^#!/){ $_ .= "## Copyright (C) 20XX by Yours Truly\n"; } print; }

すでにコピーライト表示が入っているファイルが、編集しないように出来た。