[Phpwiki-talk] line count

[Steve W. <sw...@wc...>]

Subtracting comments, comment blocks and blank lines, I count 2,426 lines
of executable code (and a few html comments) in *php3 with this perl
script:

#!/usr/bin/perl

while (<STDIN>) {
    m#\*/# && do { $flag = 0 };
    next if $flag;
    m#/\*# && do { $flag = 1; next };
    next if m#^\s*//#;
    /[a-zA-Z0-9]/ && $count++;
}

print "$count\n";

and:

cat *php3|./linecount.pl


just thought you'd be interested...

sw

...............................ooo0000ooo.................................
   Hear FM quality freeform radio through the Internet: http://wcsb.org/
                     home page: www.wcsb.org/~swain