poti incerca mai simplu, cu perldoc -f split si delimitator / +/.
ceva de genul
@b=split(/ +/, $mystring);
print $b[1];
On Fri, Jul 25, 2003 at 04:18:11PM +0300, Ovidiu G. wrote:
>
> O rugaminte la cei care se au mai bine nitel cu regexpu' din perl:
>
> Interoghez un chain de iptables sa vad care-i nr. de octeti transferat.
> Linia primita e de forma:
> 121 10744 LOG all -- * * 123.456.789.012 0.0.0.0/0 LOG flags 0 level 4
> prefix 'test'
>
> Ce ma intereseaza pe mine e cum obtin a doua valoare (btw, aceasta poate fi
> exprimata si in K sau alte minuni, M/G/T/etc), gen:
>
> 2076 194K LOG all -- * * 213.154.100.24 0.0.0.0/0
> LOG flags 0 level 4
>
> O expresie perl pt. procesarea chestiei asteia (delimiter = 0x20 alias space)
>
> Thanks,
> Ovi
>
--
___
<o-o> Viorel ANGHEL <vang @ lug.ro>
[`-']
-"-"- In Linux We Trust.
