Re^2: Do not run code even if one element has matched exit code value

Thanks. Below is the snippet:

my @retCodes_values;

open my $read_log_file, '<', '/tmp/app.log' or die $!;

while(<$read_log_file>){
next unless /retCode\=/;
   my ($string, $exit_code) = split /retCode\=/,$_,2;
   push @retCodes_values, [ $string, $exit_code ];
}

foreach(@retCodes_values) {

if ($_!=~3) {

read 2nd log file;
read 3rd log file;

}
}
[download]

____app.log______

15288 :: Mon Mar 2 13:23:32 2015::App.pm:status returned with retCode=1

15288 :: Mon Mar 2 13:24:32 2015::App.pm:status returned with retCode=3

15288 :: Mon Mar 2 13:25:32 2015::App.pm:status returned with retCode=4

15288 :: Mon Mar 2 13:23:32 2015::App.pm:status returned with retCode=5

Comment on Re^2: Do not run code even if one element has matched exit code value Download Code

Replies are listed 'Best First'.
Re^3: Do not run code even if one element has matched exit code value by toolic (Bishop) on Mar 12, 2015 at 15:43 UTC
The main issue is that you are creating an array of arrays, which you then need to dereference: use warnings; use strict; my @retCodes_values; while (<DATA>) { next unless /retCode\=/; chomp; my ( $string, $exit_code ) = split /retCode\=/, $_, 2; push @retCodes_values, [ $string, $exit_code ]; } for my $aref (@retCodes_values) { if ($aref->[1] != 3) { print "@{ $aref }\n"; } } __DATA__ 15288 :: Mon Mar 2 13:23:32 2015::App.pm:status returned with retCode= +1 15288 :: Mon Mar 2 13:24:32 2015::App.pm:status returned with retCode= +3 15288 :: Mon Mar 2 13:25:32 2015::App.pm:status returned with retCode= +4 15288 :: Mon Mar 2 13:23:32 2015::App.pm:status returned with retCode= +5 [download] Outputs: `15288 :: Mon Mar 2 13:23:32 2015::App.pm:status returned with 1 15288 :: Mon Mar 2 13:25:32 2015::App.pm:status returned with 4 15288 :: Mon Mar 2 13:23:32 2015::App.pm:status returned with 5` [download] See also: chomp perldsc	[reply] [d/l] [select]
Re^4: Do not run code even if one element has matched exit code value by jayu_rao (Sexton) on Mar 12, 2015 at 16:02 UTC
Thanks. How do I loop to check all lines for an existence of 3. It could occur in any line number of the log file and not necessarily at $aref->1. I'll have to read more about array of arrays. Regards, Jay	[reply]
Re^5: Do not run code even if one element has matched exit code value by AppleFritter (Vicar) on Mar 12, 2015 at 21:25 UTC
For checking whether a list contains an element matching certain criteria or not, `grep` is a natural choice (natural for me, anyway). So if you merely need to know whether this retCode occurs, you could do this (based on toolic's script): #!/usr/bin/perl use strict; use warnings; use feature qw/say/; my @retCodes_values; while (<DATA>) { next unless /retCode\=/; chomp; my ($string, $exit_code) = split /retCode\=/, $_, 2; push @retCodes_values, [ $string, $exit_code ]; } if(grep { $_->[1] == 3 } @retCodes_values) { say "retCode=3 occurred!" } __DATA__ 15288 :: Mon Mar 2 13:23:32 2015::App.pm:status returned with retCode= +1 15288 :: Mon Mar 2 13:24:32 2015::App.pm:status returned with retCode= +3 15288 :: Mon Mar 2 13:25:32 2015::App.pm:status returned with retCode= +4 15288 :: Mon Mar 2 13:23:32 2015::App.pm:status returned with retCode= +5 [download] If you also need information on e.g. the associated log message, just save `grep`'s result to another array.	[reply] [d/l]
Re^6: Do not run code even if one element has matched exit code value by jayu_rao (Sexton) on Mar 14, 2015 at 13:48 UTC
Re^3: Do not run code even if one element has matched exit code value by marinersk (Priest) on Mar 12, 2015 at 15:47 UTC
~~Your snippet is not fully functional. Give a minute to clean it up:~~ Never mind, toolic is way ahead of me. #!/usr/bin/perl use strict; my @retCodes_values; open my $read_log_file, '<', '/tmp/app.log' or die $!; while(<$read_log_file>){ next unless /retCode\=/; my ($string, $exit_code) = split /retCode\=/,$_,2; push @retCodes_values, [ $string, $exit_code ]; } foreach(@retCodes_values) { if ($_!=~3) { read 2nd log file; read 3rd log file; } } exit; __END__ D:\PerlMonks>test2.pl Bareword found where operator expected at D:\PerlMonks\test2.pl line 1 +9, near "2nd" (Missing operator before nd?) Bareword found where operator expected at D:\PerlMonks\test2.pl line 2 +0, near "3rd" (Missing operator before rd?) Not enough arguments for read at D:\PerlMonks\test2.pl line 19, near " +2nd " syntax error at D:\PerlMonks\test2.pl line 19, near "2nd " Not enough arguments for read at D:\PerlMonks\test2.pl line 20, near " +3rd " syntax error at D:\PerlMonks\test2.pl line 20, near "3rd " Execution of D:\PerlMonks\test2.pl aborted due to compilation errors. [download]	[reply] [d/l]