Perl 统计java代码行数

use warnings;
use strict;
use File::Find;
my $dir = "D:/workspace";
my @fileNames;
find(\&wanted,$dir);

sub wanted {
		next unless $_ =~ /\.java$/;
		push @fileNames , $File::Find::name;
}
my $count =0;
foreach my $filename (@fileNames){
	open(FILE,$filename);
	my $isCom = 0;
	foreach my $line(<FILE>){
		chomp $line;
		$line =~ s{(.*)//.*}{$1\n}; #去掉注释//
		$line =~ s{//.*}{\n}; #去掉以//开头的注释
		$line =~ s/(.*)(\/\*.*\*\/)(.*)/$1 $3\n/; #用空格替换 /* */
		next if $line =~ /^\s*$/; #去掉空白行
		#去掉方法注释
		$isCom = 1 if $line =~ /\S*\/\*/;
		$isCom = 0 if $line =~ /\S*\*\//;
		next if $isCom | $line =~ /\S*\*\//;
		$count++;
	}
}
print "Total lines：$count";

 同事要把java代码抽取出来，并且把注释和空行去掉于是写了一个perl的代码。心想那不再改成一个统计代码行数的程序。于是这段代码就产生了。