|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alan Long 2:5030/1082.72 11 Apr 2002 00:03:01
To : Konstantin Stupnik
Subject : map/shift, подводя итог
--------------------------------------------------------------------------------
Следуя советам переписал сегодня кусок:
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 );
}
--
With best,
Ъ-· Ъ
Е-ЧLaі\і <alan@x-rays.eu.org>
--- timEd/386 1.10+
* Origin: X - Rays Station (2:5030/1082.72)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
