use Spreadsheet::WriteExcel; require LWP::UserAgent; LWP::UserAgent(); my $request = HTTP::Request->new(GET=> "http://dvtk.com"); my $response = $ua->request($request); if(!$response->is_success()) { print $response->error_as_HTML(); die "No cpan module found"; } my @data = split(/\n/, $response->content()); # Create a new Excel file my $filename = "/home/report/test.xls"; my $workbook = Spreadsheet::WriteExcel->new($filename); # Add a worksheet my $worksheet = $workbook->add_worksheet('exec2'); while (defined ($_ = shift@data)) { print "$_ \n"; $worksheet->write(0,0, $_); } #### 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]