Shell Programming and Scripting

Hi

I would like to read a file using perl and search for a string (last entry). Then read that into an array and do further grep

File content for ex:

comp=a,value=30,runtime=12,type=lic
comp=d,value=15,runtime=2,type=lic
comp=a,value=90,runtime=43,type=lic
comp=e,value=78,runtime=45,type=lic

I would like to read this file and find out the last occurance of "comp=e" and "type=lic"

then read that into an array, which will have

comp=a,value=90,runtime=43,type=lic

I tried using ksh (tail -1), but since the file is huge and am using lot of greps its taking time to return the results.

Tried this simple perl script....

Code:

chomp($log);
foreach $comp ("a" "b")
{
        $var1=`grep \"comp=$comp\" $log | grep \"type=lic\" | tail -1 | cut -d\",\" -f2 | cut -d\"=\" -f2`;
        $var2=`grep \"comp=$comp\" $log | grep \""type=lic"\" | tail -1 | cut -d\",\" -f3 | cut -d\"=\" -f2`;
        chomp($var1);chomp($var2);
        print ("$comp,$var1,$var2");
}

but I would like to implement this using file handlers /array. I dont want to do multiple greps in that loop...instead read output of below in a array and then do the cut

Code:

grep \"comp=$comp\" $log | grep \"type=lic\" | tail -1

Can someone help? Thanks

You may use the following program to search for multiple instances of "comp":

Or alternatively, you may use the following perl one-liner to search for one "comp" at a time:

Code:

perl -ne '$x = $_ if (/^comp=a/ && /type=lic$/); END{@y = split /,/,$x;$v=(split /=/,$y[1])[1];$r=(split/=/,$y[2])[1];print "a $v $r\n"}' inputfile.txt