Re^3: Issues with Split


go ahead... be a heretic
	PerlMonks

Re^3: Issues with Split

by graff (Chancellor)

on Jun 14, 2016 at 10:34 UTC ( [id://1165545]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Issues with Split
in thread Issues with Split

Here is what afoken was talking about -- instead of this:

    my ($type, $restofstring) = /^type=(\w+) (.+)$/;
    for $restofstring (split) {
        my ($key, $val) = split /=/, $restofstring;
        $hash{$type}{$key} = $val;
    }
[download]

you should do this:

    my ($type, $restofstring) = /^type=(\w+) (.+)$/;
    for $token ( split ' ', $restofstring ) {
        my ($key, $val) = split /=/, $token;
        $hash{$type}{$key} = $val;
    }
[download]