Re^4: grep lines from log for last 10 mints

[bimleshsharma]

i tried to run below code by passing path of log but getting below error continuous for line "my $tm = $Fld(1)-1 . ' ' . $Fld(2)-1 . ' ' . $Fld(3)-1;"

#!/usr/bin/perl --
use strict; use warnings; use Data::Dump;

my $start = qx{date +'%b  %e %T'};
my $end   = qx{date -d '10 mins ago' +'%b  %e %T'};

dd $start, $end;

while (<>) {
    my @Fld = split(' ', $_, -1);
    my $tm = $Fld[(1)-1] . ' ' . $Fld[(2)-1] . ' ' . $Fld[(3)-1];

    print $_ if $start lt $tm and $tm lt $end;
}

Use of uninitialized value in concatenation (.) or string at ./test.pl line 11, <> line 144807. Use of uninitialized value in concatenation (.) or string at ./test.pl line 11, <> line 144807.

[Anonymous Monk]

So?

FWIW, its a warning, if you don't want warnings, turn them off