34 lines
571 B
Perl
34 lines
571 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
my $total = 0;
|
|
my $blank = 0;
|
|
my $comment = 0;
|
|
|
|
while(<STDIN>) {
|
|
my $line = $_;
|
|
chomp($line);
|
|
|
|
$total++;
|
|
|
|
if($line =~ /^\s*$/) {
|
|
$blank++;
|
|
}
|
|
elsif($line =~ /^\s*#/) {
|
|
$comment++;
|
|
}
|
|
}
|
|
|
|
my $other = $total - $blank - $comment;
|
|
|
|
printf("Total: %4d\n", $total);
|
|
|
|
if($ARGV[0] eq '-noblank') {
|
|
$total -= $blank;
|
|
}
|
|
|
|
printf("Blank: %4d ( %.2f%% )\n", $blank, $blank / $total * 100);
|
|
printf("Comments: %4d ( %.2f%% )\n", $comment, $comment / $total * 100);
|
|
printf("Other: %4d ( %.2f%% )\n", $other, $other / $total * 100);
|
|
|