[SOLVED] Perl extract information for a particular column

kdelover · 10-24-2010, 08:35 AM

Hi,

I have a file which has the output as shown below:

Code:

Teams                             |  matches |Goals     |   YC     |   RC   
------------------------------------------------------------------------------
Liverpool:                        |          |          |          |          
Gerrard             		  |    97    |  100  	|  41665   |   1342   
Torres            		  |    75    |   90   	|   1929   |   630    
Babel            		  |    86    |   80   	|  10621   |   1666   
carregher   			  |    93    |   40   	|   1901   |   146    
                                  |          |          |          |    
     
Chelsea:                          |          |          |          |          
Lampard                           |    40    |   459    |   172    |   264    
Terry                      	  |    22    |   459    |    96    |   341    
Cole                     	  |    52    |   459    |   223    |   213    
                                  |          |          |          |    
     
Manutd:                           |          |          |          |          
Roooney                		  |    85    |    59    |    48    |   8.6    
Berba               		  |    44    |    67    |    28    |    36    
Giggs               		  |    35    |   130    |    43    |    81    
Scholes                  	  |    33    |   917    |   281    |   591

I need to extract the Info from the RC column for the first 4 players of liverpool.

The test code i have does the same,but can anyone show me a better way of doing it.I could do it easily with gawk -F"|" and print the respective column,but i need to do this in perl.. Its just a test code and the naming convention sucks. Thanks a bunch

Code:

#!/usr/bin/perl
use strict;
use warnings;
open (FH,'<','/local/a/tmp/disk.log') ;
my @x=<FH>;
my $i=1;
my @arr;
my @newarr;

# Reading the lines,where the 4 pool players occur.
foreach (@x) {
    $i++;
    next if ($i ~~ [1..4]); 
    push (@arr,$_) if ($i<='8'); 
}


my $count=0;
while ($arr[$count]) {
my @lol=split(/ /,$arr[$count]);
push(@newarr,(join("","$lol[-4]","$lol[-5]")));
$count++
}

Output:

Code:

ghostdog74 · 10-24-2010, 09:52 AM

Code:

perl -F"\|" -ane '$f=4 and next if /Liverpool/;print $F[-1] if ($f-- && $f>=0)' mysoccerfile

kdelover · 10-24-2010, 09:59 AM

AWESOME! Thanks ghostdog.i really need to know how this one liner works .I actually need to do this in a script without a oneliner. How do i get this perl -F"|" in a script?Only thing i think of split function.

kdelover · 10-25-2010, 05:47 AM

any help

grail · 10-25-2010, 06:31 AM

I am confused a little ... it appears your code is already outputting the correct information. Could it be improved .. probably, but you have the groundwork.

Does it look as succinct as ghostdog's, no but that comes with practice and time.

ghostdog74 · 10-25-2010, 06:59 AM

Quote:

Originally Posted by kdelover

How do i get this perl -F"|" in a script?Only thing i think of split function.

-F is basically just split, so yeah, just use split

kdelover · 10-26-2010, 02:40 AM

Thanks grail and ghostdog. I wanted a solution based on regex,i'll see if i can do it that way. Thanks again

grail · 10-26-2010, 03:24 AM

Quote:

I wanted a solution based on regex

Seems to me this was the first mention of this being a requirement?

If you still need help on it you may need to be more specific on what you want to regex?