Help for this page

Select Code to Download

Select or download this

while (<FILE>) {
    $count += () = /\Q$constant\E/g;
}
print "$constant occurs $count times\n";

Select or download this

use File::Slurp;
my $constant = '$_';
$_ = read_file('filename.pl');
$count = () = /\Q$constant\E/g;
print "$constant occurs $count times\n";