in reply to creating a particular hash

I don't have anything of value to add aside from this vile line of code...
1 while s/^(.+?\b),?(.*):(.+?\b),?(.*)$/$hash{$1}=$3;"$2:$4"/e;
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Replies are listed 'Best First'.
Re: Re: creating a particular hash
by the_slycer (Chaplain) on Jun 01, 2001 at 08:33 UTC
    I don't have anything really to add either, here's an ugly one as well:
    /(.*):(.*)/;@h{split',',$1}=split',',$2;
      I have something to add to that:
      /:/;@h{split',',$`}=split',',$';
      but this is __nasty__ and i do not advocate the use of $` or $' in anything but golf/obfu :)

      "Argument is futile - you will be ignorralated!"