Код: Выделить всё
$html_string =~ s/\<table(.*?)\>(.*?)\<\/table\>/Dump_table($2)/igs;
я там это не могу найти, посмотрел полностью то что по ссылке...hizel писал(а):используй первоисточники http://perldoc.perl.org/perlretut.html
5.12 не у всех, а вообще человеку дорога на cpanhizel писал(а):мдэ
http://perldoc.perl.org/perlretut.html# ... expression
объясню зачем:hizel писал(а):я правда не понимаю зачем
Код: Выделить всё
<table><tr><td></td></tr>........................etc</table>Код: Выделить всё
[ '.=', '=.', '-', '-' ], # .=-----------=.
[ '|', '|', '|' ], # | info | info |
[ '|-', '-|', '=', '=' ], # |-===========-|
[ '|', '|', '|' ], # | info | info |
[ "'=", "='", '-', '-' ], # '=-----------='
[ '|=', '=|', '-', '*' ] # rowseperatorт.е. нужно найти модуль который позволяет использовать возможности 5.12?thefree писал(а):5.12 не у всех, а вообще человеку дорога на cpanhizel писал(а):мдэ
http://perldoc.perl.org/perlretut.html# ... expression
Код: Выделить всё
use Modern::Perl;http://search.cpan.org/~chromatic/Moder ... rn/Perl.pmFor now, this only enables the strict and warnings pragmas, as well as all of the features available in Perl 5.10. It also enables C3 method resolution order; see perldoc mro for an explanation. In the future, it will include additional CPAN modules which have proven useful and stable.
Код: Выделить всё
[ '.=', '=.', '-', '-' ], # .=-----------=.
[ '|', '|', '|' ], # | info | info |
[ '|-', '-|', '=', '=' ], # |-===========-|
[ '|', '|', '|' ], # | info | info |
[ "'=", "='", '-', '-' ], # '=-----------='
[ '|=', '=|', '-', '*' ] # rowseperatorКод: Выделить всё
...............................................
$text =~ s/<table(.*?)>(.*?)</table>/&dumptt($2)/egs;
sub dumptt {
my($html) = (@_);
$html = " <table> ". $html." </table>";
my $t = HTML::TreeBuilder->new();
$t->parse($html);
$t->eof;
foreach my $em ($t->find_by_tag_name('table')) {
my $em2 = $em;
my @tar = $em2->find_by_tag_name('tr');
if ($#tar > 3) {
my $ttt = Encode::encode( 'cp1252',DumpTable( $em )), $/, $/;
$ttt =~ s/ /-/isg;
$ttt = "1111111111111111".$ttt."2222222222222222";
return $ttt;
}
else {
return "";
}
#
}
}
sub DumpTable {
my($ht, $depth) = (@_,0);
die "$ht is not a table" unless $ht->tag eq 'table';
my $tt = Text::ASCIITable::->new;
my @co;
my @da;
my $da = [];
for my $ro ( @{ $ht->content() } ) {
if( $ro->tag eq 'tr' ) {
push @da, $da if @$da;
$da = [];
for my $ce ( @{ $ro->content() } ) {
if( $ce->tag eq 'td' ) {
if( $ce->look_down( '_tag', 'table' ) ) {
my $string = '';
for my $i ( @{ $ce->content() } ) {
if( not ref $i ) {
$string .= $i;
}
elsif( $i->tag eq 'table' ) {
$string .= "\n";
$string .= DumpTable($i,$depth+1);
$string .= "\n";
}
else {
$string .= $i->as_text;
}
}
push @$da, $string;
}
else {
push @$da, $ce->as_text;
}
}
elsif( $ce->tag eq 'th' ) {
push @co, $ce->as_text;
}
}
}
}
push @da, $da if @$da;
unless(@co) {
use List::Util qw(max);
my $max = 1 + max( 0, map { $#$_ } @da );
( @co ) = (' ') x $max ;
$tt->setOptions( hide_HeadRow => 1 );
$tt->setOptions( hide_HeadLine => 1 );
}
# warn " co ", map {"{$_}"} @co;
$tt->setCols( @co );
if( $depth == 0 ){
my $maxcolwidth = 120;
$maxcolwidth -= 1 for split //, '.==.'; # bad guesstimation
$maxcolwidth -= 2 for @co; # '| ' and '| '
$tt->setColWidth( $_, $maxcolwidth/(0+@co), 1) for @co;
}
$tt->addRow($_) for @da;
$tt->setOptions( 'drawRowLine', 1) if $ht->attr('border');
# return $tt->draw();
return $tt->draw(
[ '.=', '=.', '-', '-' ], # .=-----------=.
[ '|', '|', '|' ], # | info | info |
[ '|-', '-|', '=', '=' ], # |-===========-|
[ '|', '|', '|' ], # | info | info |
[ "'=", "='", '-', '-' ], # '=-----------='
[ '|=', '=|', '-', '*' ] # rowseperator
);
}