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

So something resembling this

#!/usr/bin/perl --
use strict; use warnings; use Data::Dump;
my $command = q{awk}
.q{ -v start="$(date -d '10 mins ago' +'%b  %e %T')"}
.q{ -v end="$(date +'%b  %e %T')"}
.q{ '} #### ????
    .q{ {tm=$1" "$2" "$3}} 
    .q{ ; }
    .q{ start<tm }
    .q{ && }
    .q{ tm<end}
.q{ '}
.q{ /d/d1/logs/stdout-1132.txt};

dd $command;

my $line = qx{$command};
dd $line;
[download]

If I knew awk, I'd still recommend converting it to perl using a2p

Comment on Re^2: grep lines from log for last 10 mints Download Code

Replies are listed 'Best First'.
Re^3: grep lines from log for last 10 mints by Anonymous Monk on Aug 06, 2012 at 10:30 UTC
I think I figured out how to a2p #!perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $running_under_some_shell; # this emulates #! processing on NIH machines. # (remove #! line above if indigestible) eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift; # process any FOO=bar switches while (<>) { @Fld = split(' ', $_, -1); $tm = $Fld[(1)-1] . ' ' . $Fld[(2)-1] . ' ' . $Fld[(3)-1]; ; print $_ if $start lt $tm && $tm lt $end; #??? #??? } Please check my work on the 2 lines I've marked with "#???". The operation I've selected may be wrong for the operand types. [download] Massaging that a little and adding start/end `#!/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; }` [download] Use as `./tminus10 path/to/logfile`	[reply] [d/l] [select]
Re^4: grep lines from log for last 10 mints by bimleshsharma (Beadle) on Aug 06, 2012 at 11:14 UTC
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; }` [download] 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.	[reply] [d/l]
Re^5: grep lines from log for last 10 mints by Anonymous Monk on Aug 07, 2012 at 09:22 UTC
So? FWIW, its a warning, if you don't want warnings, turn them off	[reply]