#!/usr/local/bin/perl -w --
use Benchmark qw(timethese clearallcache);

$FILENAME = "datafile.txt";
$TEXT = "lease";
$STUDIED_TEXT = $TEXT;
study($STUDIED_TEXT);
$COUNT = 100;

clearallcache;
&timethese($COUNT, 
    { 'with study' => \&fn1,
        'w/o study' => \&fn2,
        'with study in loop' => \&fn3 } );

sub fn1 {
    &mystat($FILENAME);
    print(STDERR "Searching for $STUDIED_TEXT\t");
    open(DF, $FILENAME);
        my $count = 0;
        while ($line = <DF>) {
            $count++    if ($line =~ m/$STUDIED_TEXT/);
        }
        print(STDERR "fn1 : Lines found : $count\n");
    close(DF);
}
sub fn2 {
    &mystat($FILENAME);
    print(STDERR "Searching for $TEXT\t");
    open(DF, $FILENAME);
        my $count = 0;
        while ($line = <DF>) {
            $count++    if ($line =~ m/$TEXT/);
        }
        print(STDERR "fn2 : Lines found : $count\n");
    close(DF);
}
sub fn3 {
    &mystat($FILENAME);
    print(STDERR "Searching for $TEXT\t");
    open(DF, $FILENAME);
        my $count = 0;
        while ($line = <DF>) {
            study($TEXT);
            $count++    if ($line =~ m/$TEXT/);
        }
        print(STDERR "fn3 : Lines found : $count\n");
    close(DF);
}
sub mystat {
    local($filename) = @_;
    print(STDERR "Filename : $filename\tSize : ", 
        (stat($filename))[7], 
        "\t");
}