use strict; use warnings; use HTML::TableExtract; my $response; { local $/ = undef; $response = ; } my $te = HTML::TableExtract->new( keep_html => 0 ); $te->parse($response); foreach my $ts ($te->tables) { print "\nTable found at ", join(',', $ts->coords), ":\n"; foreach my $row ($ts->rows) { foreach my $col (@$row) { if( defined $col ) { print "\t$col"; } else { print "\t---"; } } print "\n"; } } __DATA__ Cell Collections [IFX]
[LOGO]

Cell collection status

AnalogIP:Test1 command: exec


[Collection overview]  [Overview for this collection]  [All cells of this collection]  [Custom HTML Report]


(Click on the hyperlinks in the table headers to see information on methods [if available])
Cellcdl_prefixdrcdrc_prefixgds_abstractgds_prefixlayverDoclayverShadowlvslvs_prefixmacroLibocapiprefix
  clock_x2
    clock_x2OK-OKOKOKOKOK-OKOKOKOK

© Copyright(c) 1996 - 2013 by , Team
All rights reserved.		 Last modified Tue Apr 9 08:44:32 MEST 2013
by usergroup 		[dvtk]