in reply to Regex confusion

I had another idea, after reading sauoq's:

$a = "OPSms -N op01Sms1 -t SMS -T 0x70000000 -U op01/op011 -I sms1"; 
%a = split( " ", "-first " . $a); 
print "$a{-first} $a{-N} $a{-T}\n";

Output:
OPSms op01Sms1 0x70000000

[download]

Replies are listed 'Best First'.
Re: Re: Regex confusion
by peschkaj (Pilgrim) on Oct 31, 2002 at 03:37 UTC
    How wonderfully cunning. ++ and kudos to you.

    If you make something idiot-proof, eventually someone will make a better idiot.
    I am that better idiot.
[reply]

In Section Seekers of Perl Wisdom