1
mirror of https://github.com/rapid7/metasploit-framework synced 2024-10-09 04:26:11 +02:00
metasploit-framework/wsee.pl
Spoon M 9749724a80 wc... see?
git-svn-id: file:///home/svn/incoming/trunk@2589 4d416f70-5f16-0410-b530-b9f4589650da
2005-06-06 01:26:38 +00:00

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);