вот тебе еще готовый пример, может подойдет:
Код | @items=('item1=value1','item2=value2','item3=value3');
%hash = map {getkey($_) => getval($_) } @items;
foreach (keys %hash) { print $_." => ".$hash{$_}."\n"; }
sub getkey { my $s= $_[0]; $s=~s/(.+)\=.+/$1/; return $s; }
sub getval { my $s = $_[0]; $s =~ s/.+\=(.+)/$1/; return $s; }
| Добавлено @ 13:01
Цитата | причем забыл нужно не тривиальный способ типа там foreach split etc. а более оригинальный , например, с использованием map но у меня так не получается )) |
а чем тебя foreach неустраивает ?? |