のファイルからごにょごにょするスクリプト。私専用。書き捨てだけど、いちおう残しておきます。エラーチェックとかなにもしてないのは仕様。 use strict; use warnings; opendir my $dh, '.'; my @fp; while (defined($_ = readdir $dh)) { next unless /AL…