#!/usr/bin/perl -w use strict; use Data::Dumper; use Carp; use HTML::TableExtract; my $temp_file = do { open my $in, '<', 'myfile.html' or carp "Can't open in $!\n"; local $/ = undef; <$in>; }; #-------------------------------------------------- # Extract Element of HTML Table #-------------------------------------------------- #print Dumper $temp_file ; ( my $id ) = $temp_file =~ /([\w]+\.[\w\d]+)/ms; print "$id\n"; my $te = HTML::TableExtract->new( headers => [ 'Data set','nTP','nFP', 'nFN','nTN','sTP', 'sFP','sFN',' ','nSn', 'nPPV','nSp','nPC', 'nCC','sSn','sPPV', 'sASP', ] ); $te->parse($temp_file); my @all_table_content = $te->tables; # Here to extract the 'last' row my @total = @{ $all_table_content[0]->[-1] }; print Dumper \@all_table_content ; #### scrPage

Assessment Score

Here is your confirmation ID: SP.A91389F67D1C79B4157818A8EDF2A6C2

statistics explanation
Data setnTPnFPnFNnTNsTPsFPsFN nSnnPPVnSpnPCnCCsSnsPPVsASP
dm01g0801255795087 000.9863830-0.0169565000
Fly 0801255795087 000.9863830-0.0169565000
Human 0000000 NaNNaNNaNNaNNaNNaNNaNNaN
Mouse 0000000 NaNNaNNaNNaNNaNNaNNaNNaN
Yeast 0000000 NaNNaNNaNNaNNaNNaNNaNNaN
Total 0801255795087 000.9863830-0.0169565000