in reply to grep lines from log for last 10 mints

interpolation is interpolation, in shell, in awk, in perl -- that is right, you've got three four levels of interpolation in there (quite nuts by my standards) 

use strict; use warnings;
use Data::Dump;
my $line= qq{awk -v start="$(date -d '10 mins ago' +'%b  %e %T')" -v e
+nd="$(date +'%b  %e %T')" '{tm=$1" "$2" "$3}; star
t<tm&&tm<end' /d/d1/logs/stdout-1132.txt};
dd $line;
__END__
Use of uninitialized value $1 in concatenation (.) or string at - line
+ 3.
Use of uninitialized value $2 in concatenation (.) or string at - line
+ 3.
Use of uninitialized value $3 in concatenation (.) or string at - line
+ 3.
"awk -v start=\"0date -d '10 mins ago' +'%b  %e %T')\" -v end=\"0date 
++'%b  %e %T')\" '{tm=\" \"\" \"}; start<tm&&tm<end' /d/d1/logs/stdout
+-1132.txt"

[download]

So, not being interested in debugging your shell or awk , I thought I'd just point out the perl errors

Read perlintro and employ some single quotes

Replies are listed 'Best First'.
Re^2: grep lines from log for last 10 mints
by Anonymous Monk on Aug 06, 2012 at 10:11 UTC

    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

[reply]
[d/l]
      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]
        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]

In Section Seekers of Perl Wisdom