Perl - capturing data in a string

[Chronictank]

Dec 16 07:50:22 vpn-kkk-ppp 1765156 12/16/2007 07:50:21.110 SEV=5 IKEDBG/64 RPT=183939 10.100.252.160 IKE Peer included IKE fragmentation capability flags: Main Mode: True Aggressive Mode: False


Right so the beginning of the line is not needed so i want to remove "Dec 16 07:50:22 vpn-kkk-ppp 1765156 SEV=5 ",

The idea is to get the data

IKEDBG/64
RPT=183939
10.100.252.160
IKE Peer included IKE fragmentation capability flags: Main Mode: True Aggressive Mode: False

The method i currently use is to split the line using spaces,
@words = split(/\s/, $line);

then reconstruct it using the @words array, recoveirng the data i need
This seems like a very cumbersome and more improtantly resource intensive way of doing this, surely there is a better way

Any help is much appreciated

Thanks

 

[Una]

Just use a regex http://perldoc.perl.org/perlre.html

Not sure how many parts you want it in, but if it always starts with IKEDBG and you want the rest then,

/(IKEDBG.*)/

 

[Chronictank]

Just use a regex http://perldoc.perl.org/perlre.html

Not sure how many parts you want it in, but if it always starts with IKEDBG and you want the rest then,

/(IKEDBG.*)/

thanks