Help for this page

Select Code to Download


  1. or download this
    wc -l file
  2. or download this
    my $cnt;
open(FH,"file") or die "Damn. $!";
$cnt++ while <FH>;
close FH;
  3. or download this
    while (<FH>) {}
print $.;
  4. or download this
    open(FH,"calendar.cgi") or die "Damn. $!";
while (<FH>) { $cnt++ if  !/^\s+?$/;}
close FH;