- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3001 [502]
От : Alexander Onokhov 2:5020/400 21 марта 04, 12:40
Кому : Grygory Tertychny 21 марта 04, 20:26
Тема : Re: Убрать пробелы в хеше
-------------------------------------------------------------------------------
From: Alexander Onokhov
"Grygory Tertychny" writes:
> > Есть хеш %Param вида
> > %Param = (
> > "one" => "One param"
> > .
> > .
> > );
> >
> > Hеобходимо в данных убрать все начальные и концевые пробелы
> > Делаю
> > while (($key,$val) = each (%Param)) {
> > $val =~ s/^\s+//;
> > $val =~ s/\s+$//;
> > }
> >
> > Как это проще сделать?
>
> может так:
> for (keys %Param) {
> if (/^\s*(.+)\s*$/) {
> $Param{$_} = $1;
> }
> }
>
s/^\s+//, s/\s+$// foreach values %Param;
--
Alexander
--- ifmail v.2.15dev5.3
* Origin: What me? (2:5020/400)