I compiled a perl script to C using activeState perl's c compiler (that's perlcc, the optimized c compiler, not perlc). The result is ~62,000 line file full of monstrosoties like { (OP*)&binop_list[727], 0, NULL, 15, 0, 65535, 0xb6, 0x3, (OP*)&padop_list[584] } and which won't compile under borland c/c++ compiler. The script itself is simple enough, as you can see below.
use File::Find;
sub wanted{
if (/\.$exts_patt\Z/){
open FILE, $_;
while (<FILE>){$num++;}
close FILE;
}
};
$num = 0;
print "Enter the directories and/or files to count\n";
$dirs = <STDIN>;
print "Enter the extensions of the files to count\n";
$exts_list = <STDIN>;
$exts_patt = (join '|', split (' ', $exts_list));
find \&wanted, split (' ', $dirs);
print $num;
I've never converted perl to C before (the ultimate objective here is to produce a binary), so any help would be appreciated.