Help for this page

Select Code to Download


  1. or download this
     
foreach $sourceLine (@SourceData) {
chomp $sourceLine; 
chomp $functionName;
if ($functionName =~ /$sourceLine/) {$counter++;}
}
  2. or download this
     
foreach $sourceLine (@SourceData) {
print "$sourcfeLine\n"; 
...
print "\n"; 
if ($functionName =~ /$sourceLine/) {$counter++;}
}