Re: [Perl-unix-users] need some help in pattern matching

2002-09-03 Thread $Bill Luebkert
logger wrote: > Hi All > I have an entry like this in a file which I want to parse > #comments1 > DNFAR1S query tli tcp /dev/tcp \x00020bb8a9f3702f > #comments2 > PKG1S query tli tcp /dev/tcp \x000205c8a9f3702f > and put into another file as different variables like

RE: [Perl-unix-users] need some help in pattern matching

2002-09-03 Thread Peter Eisengrein
Title: RE: [Perl-unix-users] need some help in pattern matching ### UNTESTED my $line = 'DNFAR1S query tli tcp /dev/tcp \x00020bb8a9f3702f'; my @chunks = split(/\ /,$line); # get the first 5 vars from @chunks my ($v5,$h6,$ip1,$ip2,$ip3,$ip4) = $line =~ /^.(\w{4})(\w{4})(\

[Perl-unix-users] need some help in pattern matching

2002-09-03 Thread logger
Hi All I have an entry like this in a file which I want to parse #comments1 DNFAR1S query tli tcp /dev/tcp \x00020bb8a9f3702f #comments2 PKG1S query tli tcp /dev/tcp \x000205c8a9f3702f and put into another file as different variables like #comments V1=DNFAR1S V2=qu