Select Code to Download

Select or download this

74.13.151.1     -       -       [22/Jun/2010:06:00:00   +0000]  GET
67.195.112.248  -       -       [21/Jun/2010:20:09:42   +0000]  GET
99.138.106.5    -       -       [21/Jun/2010:23:10:18   +0000]  GET
99.138.106.5    -       -       [21/Jun/2010:09:10:18   +0000]  GET

Select or download this

#!/usr/bin/perl

...
close DATA;
close FH;

Select or download this

74.13.151.1     -       -       [21/Jun/2010:22:00:00   +0000]  GET
67.195.112.248  -       -       [21/Jun/2010:12:09:42   +0000]  GET
99.138.106.5    -       -       [21/Jun/2010:15:10:18   +0000]  GET

Select or download this

my $target = UnixDate(Date_ConvTZ( ParseDate("3 days ago"), 'GMT', 'PS
+T' ),"%e/%h/%Y");
print $target;
...
m/\[$target:/ and print DATA $_ while <FH>;
close DATA;
close FH;

Select or download this

67.195.112.248  -       -       [21/Jun/2010:20:09:42   +0000]  GET
99.138.106.5    -       -       [21/Jun/2010:23:10:18   +0000]  GET

Select or download this

while(<FH>){
  my @tab_delimited_array = split(/\t/,$_);
...
        }
    }
}