RE: Simple split question

[jdavis]

> 
> ($left,$right) = split(/word/, $sentence);
> 

I am trying this but its not working. Im lost :)
could someone take a look...

This is the beggining of a scrip to make reports
based on droped iptable packets 

thanks
jd

#################################################

#!/usr/bin/perl -w

$file = '/var/log/messages';
open(FILE, "$file") || die "cant open messages";
@log = <FILE>;
close(FILE);


## get lines from Messages for iptables - IPT
foreach $log (@log){
        if($log =~ /IPT/){
                push(@ipts, "$log");
        }
}

## get lines for the 31st
foreach(@ipts){
        @good = split(" ", $_);
        if($good[1] == 31){
                push (@finale, "$_");
        }
}

## get offending ports
foreach(@finale){
        @broken = split(" ", $_);
        foreach $field(@broken){
                if($field =~ /DPT/){
                        push(@stuff, $field);
                }
        }
}



## @stuff vars look like ---    DPT=80 DPT=1433 etc...
foreach(@stuff){
        (@trash,@good) = split(/DPT\=/, $_);
}
        
foreach(@good){
        print;
}
     

thanks,
jd


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]