Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Perl by count.pl ( 16 years ago )
#!/usr/bin/env perl
use strict; use warnings;
#########################
$| = 1;
my $count = 0;
while(<>){
chomp(my $desc = $_);
open(FILE,"<$desc") || die "Can't open $desc: $!n";
foreach my $line (<FILE>){
$count++
}
close(FILE);
}
print $count."n";
Revise this Paste