そんな日に書いた、Perlのスクリプト。
#!/usr/bin/perl use strict; use warnings; my $some_dir = 'F:\foo\bar; opendir( DIR, $some_dir ) or die "can't opendir $some_dir: $!"; while ( my $d = readdir(DIR) ) { if ( $d =~ /^a\d/ ) { print "$d ==========================================\n"; my $dd = "$some_dir\\$d"; opendir( DIR2, "$dd" ) or die "can't opendir $dd: $!"; my $cnt = 1; while ( my $f = readdir(DIR2) ) { next if $f =~ /^\./; print "$f "; print "\n" if $cnt % 10 eq 0; $cnt++; } print "\n"; } } closedir DIR;