Dear All, Please correct Me If i am wrong:Here's the code which I wrote
[code] #!/usr/bin/perl use 5.10.0; use strict; use warnings; my $var=`grep -nr "| 72| Traffic Test | 1| 561| 561| 1| (none)" /tmp/EO-PCPE-23-10GT`; # extract the "failed" field i.e., 6th field my $failed = (split /\|/, $var)[6]; # strip leading spaces $failed =~ s/^\s+//; printf "$failed"; if ($failed) { say 'Failed'; } else { say 'Sucsess'; } [code] Regards Uday V G On Tue, Jun 24, 2014 at 4:25 PM, Charles DeRykus <dery...@gmail.com> wrote: > On Tue, Jun 24, 2014 at 3:15 AM, Uday Vernekar <vernekaru...@gmail.com> > wrote: > > Hi all, > > > > I tried this its working fine when we have this pattern at hand,but the > > pattern is in a log file which is very large and i need to grep this > pattern > > first from the generated log file then Match.how do i do it? > > > > Once $pattern grepped out from log, then: > > $fail_count = ( (split(/\Q$pattern/, $_) )[-2]; > > or maybe: > > my $re = qr/\Q$pattern/; > $fail_count = ( split( /$re/, $_) )[-2]; > > For explanation of "qr", see: Regexp Quote-Like Operators in perlop. > > > On Tue, Jun 24, 2014 at 1:30 PM, Uday Vernekar <vernekaru...@gmail.com> > > wrote: > >> > >> Thanks everybody will work out the Feasible option from all > >> these......Thanks a lot > >> > >> > >> > >> On Mon, Jun 23, 2014 at 10:12 PM, Charles DeRykus <dery...@gmail.com> > >> wrote: > >>> > >>> On Mon, Jun 23, 2014 at 2:42 AM, Uday Vernekar <vernekaru...@gmail.com > > > >>> wrote: > >>> > Hi All, > >>> > > >>> > > >>> > I have following Pattern from which I need to grep only the Fail > count > >>> > and > >>> > store that in a variable. > >>> > > >>> > U/A/S|Test| Test |Loop | Run |Pass |Fail | > >>> > Arguments > >>> > | Name |Count|Count|Count|Count | > >>> > > >>> > > -----+----+---------------------------+-----+-----+-----+-----+--------------+--------------- > >>> > | 72| Traffic Test | 1| 11| 11| > >>> > 0| > >>> > (none) > >>> > > >>> > based on fail count value need to print > >>> > > >>> > if 0------Sucess > >>> > if >0------Fail > >>> > > >>> > >>> Another way: > >>> > >>> while ( <DATA>) { > >>> ... > >>> my $fail_count - ( split( /\|/, $_ ) )[-2]; > >>> ... > >>> } > >>> > >>> See: perldoc -f split > >>> > >>> -- > >>> Charles DeRykus > >>> > >>> -- > >>> To unsubscribe, e-mail: beginners-unsubscr...@perl.org > >>> For additional commands, e-mail: beginners-h...@perl.org > >>> http://learn.perl.org/ > >>> > >>> > >> > >> > >> > >> -- > >> ********************************************************* > >> Don't ask them WHY they hurt you, > >> because all they'll tell you is lies and excuses. > >> Just know they were wrong, and try to move on. > >> ********************************************************** > > > > > > > > > > -- > > ********************************************************* > > Don't ask them WHY they hurt you, > > because all they'll tell you is lies and excuses. > > Just know they were wrong, and try to move on. > > ********************************************************** > -- ********************************************************* Don't ask them WHY they hurt you, because all they'll tell you is lies and excuses. Just know they were wrong, and try to move on. **********************************************************