|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 11 Apr 2002 14:53:44
To : Alan Long
Subject : Re: map/shift, подводя итог
--------------------------------------------------------------------------------
Alan Long wrote:
> * Reply to a message
>
> Следуя советам переписал сегодня кусок:
>
> my @table = ();
> foreach ( split( '<tr>', join( '', @content ) ) ) {
> my @row = ();
>
> s#</tr>##g;
> s#^\s+##;
> s#\s+$##;
> next unless $_;
> foreach ( split( '<td>', $_ ) ) {
> s#</?[^>]+>##g;
> s#^\s+##;
> s#\s+$##;
> next unless $_;
> push( @row, $_ );
> }
> push( @table, \@row );
> }
>
>
Почти хорошо. Вот только:
1. Hезачем инициализировать массивы @table и @row
пустым списком. Они и так при создании пустые.
2. Использование в первом аргументе split строки,
согласно документации возможно только для одного
единственного случая - для пробела. Все остальные
случаи требуют регулярного выражения. И хотя
интерпретатор пропускает подобные вещи, никто не
может гарантировать, что и завтра будет. Т.е.
split /<td>/, $_ вместо split '<td>', $_
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
