Shell Programming and Scripting

Hello,
I am trying to check for an specific string in the first line and if this one is ok, I will go down one line and check for another string if this is ok, I will go dowm again and create one line with the string, if it's not ok I discard it. This is what I try so far but it's not working.

Here is the original file, here if 142.117.130.00 exist and is SUCCESS( from line down), I will print
142.117.130.00 -> SUCCESS -> MDL/VOICECOM_INFO20090312141603.TXT
But is not working, below is the script I am using

TG_20090312_141536.log 142.117.130.00
TG_20090312_141536.log 03/12/2009 SUCCESS
TG_20090312_141536.log MDL/VOICECOM_INFO20090312141603.TXT
TG_20090312_143041.log 142.117.130.01
TG_20090312_143041.log 03/12/2009 FAILURE
TG_20090312_140048.log 142.117.130.01
TG_20090312_140048.log 03/12/2009 FAILURE
TG_20090312_183436.log 142.117.130.01
TG_20090312_183436.log 03/12/2009 SUCCESS
TG_20090312_183436.log /CED/SCED_FCED_ID1_T20090312183450.DAT
TG_20090312_183329.log 142.117.130.01
TG_20090312_183329.log 03/12/2009 SUCCESS
TG_20090312_183329.log /CGV/SCGV_FCGD_ID1_T20090312183342.VM.DAT
TG_20090312_183226.log 142.117.130.02
TG_20090312_183226.log 03/12/2009 SUCCESS
TG_20090312_183226.log /CGV/SCGV_FCGD_ID1_T20090312183239.YT.DAT

awk '{
if ($2 = 142.117.135.36)
a=$2
getline
if ($3 = SUCCESS)
s=$3
getline
print p" -> "s" -> "$2}' File.txt

I also tried the following

awk '/142.117.135.36/{
a=$2
getline
if ($3 = SUCCESS)
s=$3
getline
print p" -> "s" -> "$2}'

Please help me with this one
Thanks

Jose Jaimes

Code:

awk '$2 ~ /142.117.130.00/ {a=$2; getline; if ( $3 ~ /SUCCESS/ ) {b=$3; getline; print a" -> " b " -> "$2}}' infile
142.117.130.00 -> SUCCESS -> MDL/VOICECOM_INFO20090312141603.TXT

Many thanks,

looks like is working now, always the details make the difference

hi, base on your input, below code will generate output, hope can help you some:

Code:

142.117.130.00--->SUCCESS---->MDL/VOICECOM_INFO20090312141603.TXT
142.117.130.01--->SUCCESS---->/CED/SCED_FCED_ID1_T20090312183450.DAT
142.117.130.01--->SUCCESS---->/CGV/SCGV_FCGD_ID1_T20090312183342.VM.DAT
142.117.130.02--->SUCCESS---->/CGV/SCGV_FCGD_ID1_T20090312183239.YT.DAT

code:

Code:

use strict;
my ($t1,$flag);
open my $fh,"<","a.txt";
while(<$fh>){
	chomp;
	if(/((?:\d{3}\.){3}\d{2})/){
		$t1=$1;
	}
	if(/SUCCESS/){
		$flag=1;
		next;
	}
	if($flag==1){
		my @tmp=split;
		print $t1,"--->SUCCESS---->",$tmp[1],"\n";
		$flag=0;
	}
}