明日の自分に私信。 use strict; use warnings; my $dirname = "./Data"; opendir(DIR, $dirname) or die "$dirname: $!"; my @dirs = readdir(DIR); foreach my $entry (@dirs) { if( $entry =~ /\.txt$/ ) { #echo $entry."\r\n"; open(FILE,"$dirname/$en…