in reply to Parsing Challenge

my @off_pairs = split '=', $input;
my %hash;
my $lastkey = $off_pairs[0];
foreach ( 1 .. @off_pairs - 2 )
{
   my @array = split ' ', $off_pairs[ $_ ];
   my $newlastkey = pop @array;
   $hash{ $lastkey } = join ' ', @array;
   $lastkey = $newlastkey;
}
$hash{ $lastkey } = $off_pairs[-1];

[download]
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain

Replies are listed 'Best First'.
(tye)Re: Parsing Challenge
by tye (Sage) on May 24, 2001 at 22:58 UTC

    Yeah, that is more what I was thinking. Here is a similar method: 

    my $key;
for(  split /(?<==)/, $input  ) {    # Split after each "="
    s#(^|\s+)(\S+)=$##;              # Remove trailing key
    if(  defined $key  ) {           # Not first time thru:
        $hash{$key}= $_;
    }
    $key= $2;                        # Note next key to use.
}

    [download]

            - tye (but my friends call me "Tye")
[reply]
[d/l]

In Section Seekers of Perl Wisdom