Programming

#! /usr/bin/perl -w

use strict;
use POSIX 'strftime';

# Grab yesterday's date in $yest_date
my $yest_date = strftime("%Y%m%d", localtime(time - 86400));
# Glob yesterday's filename in $yest_file
my $yest_file = glob "access.${yest_date}-*";
my $line = undef;

# Iterate through today's and yesterday's file (in the same sequence).
for ("access", $yest_file) {
    # Open the file in consideration
    open FH, "< $_";
    
    # Read the file content line by line using while loop
    while ($line = <FH>) {
        <statements>
    }
    
    # Close the filehandle.
    close FH;
}

perl mfile.pl

perl mfile.pl access

readline() on unopened filehandle statements at mfile.pl line 19.