開発環境
- macOS Mojave - Apple (OS)
- Emacs (Text Editor)
- Windows 10 Pro (OS)
- Strawberry Perl (WindowsのPerlの言語処理系)
- Visual Studio Code (Text Editor)
- Perl 5.28 (プログラミング言語)
初めてのPerl 第7版 (Randal L. Schwartz(著)、brian d foy(著)、Tom Phoenix(著)、近藤 嘉雪(翻訳)、嶋田 健志(翻訳)、オライリージャパン)の9章(正規表現によるテキスト処理)、9.6(練習問題)5の解答を求めてみる。
コード
#!/usr/bin/env perl ## Copyright (C) 2019 by kamimura use strict; use warnings; use utf8; use autodie; use v5.18; # Wide character in print at ... line ...が出力されないようにに指定 # 付録C(Unicode入門)、C.4(ファンシーな文字)、C.4.2(さらにファンシーな文字)より # WindowsとmacOSのどちらでも標準入力、標準出力、標準エラーについてちゃんと動くように設定 use Encode::Locale; binmode STDIN, ':encoding(console_in)'; binmode STDOUT, ':encoding(console_out)'; binmode STDERR, ':encoding(console_out)'; say '5.'; say "ハッシュを作成"; my %files; for (@ARGV) { $files{$_} = 0; } while (<>) { if (/^## Copyright/) { delete $files{$ARGV}; say $ARGV; } } say "書き戻し編集"; @ARGV = keys %files; say @ARGV; $^I = '.bak'; while (<>) { if (/^#!/) { $_ .= "## Copyright (C) 2019 by kamimura\n"; } print; }
入出力結果(Bash、cmd(コマンドプロンプト)、Terminal)
$ ls *.pl sample1.pl* sample2.pl* sample3.pl* sample4.pl* sample5.pl* $ cat sample5.pl #!/usr/bin/env perl use strict; use warnings; use utf8; use autodie; use v5.18; # Wide character in print at ... line ...が出力されないようにに指定 # 付録C(Unicode入門)、C.4(ファンシーな文字)、C.4.2(さらにファンシーな文字)より # WindowsとmacOSのどちらでも標準入力、標準出力、標準エラーについてちゃんと動くように設定 use Encode::Locale; binmode STDIN, ':encoding(console_in)'; binmode STDOUT, ':encoding(console_out)'; binmode STDERR, ':encoding(console_out)'; say '5.'; say "ハッシュを作成"; my %files; for (@ARGV) { $files{$_} = 0; } while (<>) { if (/^## Copyright/) { delete $files{$ARGV}; say $ARGV; } } say "書き戻し編集"; @ARGV = keys %files; say @ARGV; $^I = '.bak'; while (<>) { if (/^#!/) { $_ .= "## Copyright (C) 2019 by kamimura\n"; } print; } $ ./sample5.pl *.pl 5. ハッシュを作成 sample1.pl sample2.pl sample3.pl sample4.pl 書き戻し編集 sample5.pl $ cat sample5.pl #!/usr/bin/env perl ## Copyright (C) 2019 by kamimura use strict; use warnings; use utf8; use autodie; use v5.18; # Wide character in print at ... line ...が出力されないようにに指定 # 付録C(Unicode入門)、C.4(ファンシーな文字)、C.4.2(さらにファンシーな文字)より # WindowsとmacOSのどちらでも標準入力、標準出力、標準エラーについてちゃんと動くように設定 use Encode::Locale; binmode STDIN, ':encoding(console_in)'; binmode STDOUT, ':encoding(console_out)'; binmode STDERR, ':encoding(console_out)'; say '5.'; say "ハッシュを作成"; my %files; for (@ARGV) { $files{$_} = 0; } while (<>) { if (/^## Copyright/) { delete $files{$ARGV}; say $ARGV; } } say "書き戻し編集"; @ARGV = keys %files; say @ARGV; $^I = '.bak'; while (<>) { if (/^#!/) { $_ .= "## Copyright (C) 2019 by kamimura\n"; } print; } $ cat sample5.pl.bak #!/usr/bin/env perl use strict; use warnings; use utf8; use autodie; use v5.18; # Wide character in print at ... line ...が出力されないようにに指定 # 付録C(Unicode入門)、C.4(ファンシーな文字)、C.4.2(さらにファンシーな文字)より # WindowsとmacOSのどちらでも標準入力、標準出力、標準エラーについてちゃんと動くように設定 use Encode::Locale; binmode STDIN, ':encoding(console_in)'; binmode STDOUT, ':encoding(console_out)'; binmode STDERR, ':encoding(console_out)'; say '5.'; say "ハッシュを作成"; my %files; for (@ARGV) { $files{$_} = 0; } while (<>) { if (/^## Copyright/) { delete $files{$ARGV}; say $ARGV; } } say "書き戻し編集"; @ARGV = keys %files; say @ARGV; $^I = '.bak'; while (<>) { if (/^#!/) { $_ .= "## Copyright (C) 2019 by kamimura\n"; } print; } $
0 コメント:
コメントを投稿