例えば、このようにして読み込むファイル名を使って出力ファイル名をつくるケースがあるとします。 my @files = `ls *.txt`; my ($r, $w) = (); for my $r_file (@files) { my $w_file = "ex_$r_file"; open $r, $r_file; open $w, $w_file; print $w "#".$_…

「Effective Perl」でgrepとmapの使い分けについて学んだので簡単な纏めです。 #!/usr/bin/perl use strict; use warnings; chomp (my @list = `ls *.txt`); # 元の要素から抽出したものだけのリスト my @grepped = grep { /(.*)\.txt$/ } @list; print join…