- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3000 [500]
От : Alexander P. Russkih 2:468/75 20 марта 04, 22:17
Кому : All 21 марта 04, 08:10
Тема : Re: Убрать пробелы в
хеше
-------------------------------------------------------------------------------
@RFC-NNTP-Posting-Date: Sat, 20 Mar 2004 20:17:40 +0000 (UTC)
From: "Alexander P. Russkih"
Reply-To: rs_alex@bigfoot.com
Ivan Frolcov wrote:
> From: Ivan Frolcov
>
> On Sat, 20 Mar 2004 12:43:27 +0000 (UTC), "Grygory Tertychny"
> wrote:
>
>
>>>Hеобходимо в данных убрать все начальные и концевые пробелы
>>>Делаю
>>>while (($key,$val) = each (%Param)) {
>>> $val =~ s/^\s+//;
>>> $val =~ s/\s+$//;
>>>}
>>>
>>>Как это проще сделать?
>>
>>может так:
>>for (keys %Param) {
>> if (/^\s*(.+)\s*$/) {
>> $Param{$_} = $1;
>> }
>>}
>
>
> Или даже
>
> s/^\s*(.*?)\s*$/$1/ for values %Param;
>
> только что-то не то вы оптимизируете, по-моему.
ага и не следует забывать, что конструкция s/^\s*(.*?)\s*$/$1/ в общем случае
работает медленнее идущих подряд s/^\s+// и s/\s+$//... читай с выражением
умные книжки по регулярным выражениям (пардон за каламбур)
--
XMMS:
--- Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031007
* Origin: Registered Linux User #341226 (2:468/75@fidonet)