なんか、こうログファイルの監視とか。 #!/usr/bin/perl use strict; use warnings; use File::stat; sub main { my $pattern = shift; my %file_size; if (not defined $pattern) { $pattern = '*'; } for my $file (glob $pattern) { if (-f $file) { my $…