・気分転換にここ二日位で書いたソースの行数数えてみた。 #!/usr/bin/perl -w my $dir = '/var/www/hoge/'; my @searchDirs = ('config', 'controllers', 'models', 'views'); my $count = 0; sub readDir { my $dirname = shift; print "$dirname\n"; open…