In case s.o. else will have the same problem.
Here's, how i solved it "my way":
[...]
# storage for APN data (multiple lines)
my %APNdata;
my @APNarray;
[...]
APNID PDPADD EQOSID VPAA PDPCH PDPTY PDPID
(?:[ ]+(\\d+)(?{\$APNdata{'APNID'} = \$^N;})[ ]+(\\d+)(?{\
$APNdata{'EQOSID'} = \$^N;})[ ]+(NO|YES|MAYBE)(?{\$APNdata{'VPAA'} = \
$^N;})[ ]+(IPV4)(?{\$APNdata{'PDPTY'} = \$^N;})[ ]+(\\d+)(?{\
$APNdata{'PDPID'} = \$^N; push [EMAIL PROTECTED], {\%APNdata};})\\n)*
[...]
rgds!
Frank
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
