前書いた気もするけど，ソースの行数を数えるスクリプトを書いてみた

・気分転換にここ二日位で書いたソースの行数数えてみた。

#!/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";
  opendir(my $DIR, $dirname);
  while (my $filename = readdir($DIR)) {
    if ($filename eq '.' || $filename eq '..') {
      next;
    }
    if (-d $dirname.'/'.$filename) {
      readDir($dirname.'/'.$filename);
    }
    else {
      print "- $filename\n";

      open(my $file, $dirname.'/'.$filename);
      my @lines = <$file>;
      close $file;

      $count += $#lines;
    }
  }
  closedir($DIR);

}

foreach (@searchDirs) {
  readDir($dir.$_);
}
print "$count\n";

・実行結果

$ perl line_counter.pl
26731

／（＾o＾）＼