silly question

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: silly question by chromatic (Archbishop) on Apr 27, 2000 at 19:23 UTC
Mmm, map: `%args = map { split /=/ } @ARGV;` Nondestructive, too!	[reply] [d/l]
RE: Re: silly question by merlyn (Sage) on Apr 28, 2000 at 06:30 UTC
Not entirely non-destructive. It's pretty damaging to `%args`. I'd suggest (although messy) if you wanted to keep the previous value of `%args` and merge in the new, you could do this: `%args = (%args, map { split /=/ } @ARGV);` [download]	[reply] [d/l]
RE: RE: Re: silly question by chromatic (Archbishop) on Apr 28, 2000 at 19:34 UTC
I'm not sure whether this is better or worse. I suspect performance is better when %args is larger. If you're not interested in clobbering @_, use a temporary array. This won't win me any Perl golf either: `map { @_ = split /=/; $args{$_[0]} = $_[1]; } @data;`	[reply] [d/l]
Re: silly question by snowcrash (Friar) on Apr 27, 2000 at 18:53 UTC
the only way i come up with is using split twice... `$args{(split/=/)[0]}= (split/=/)[1] foreach (@ARGV);` [download]	[reply] [d/l]
RE: Re: silly question by snowcrash (Friar) on Apr 27, 2000 at 19:04 UTC
hah, got another one: two splits less but @ARGV is destroyed :) `s!(.+)=(.+)!$args{$1}=$2!e foreach (@ARGV);` [download]	[reply] [d/l]
Re: silly question by zodiac (Beadle) on May 04, 2000 at 11:57 UTC
`map{ $args{$1}=$2 if /(.+)=(.+)/ }@ARGV;` really nondestructive. plus it skips all values in @ARGV that do not match (that dont have text before and after the =)	[reply] [d/l]