tighten the code
This commit is contained in:
parent
89cc65421c
commit
3ada526b23
12
script.pl
12
script.pl
@ -42,14 +42,10 @@ sub get_mersenne_results() {
|
||||
}
|
||||
|
||||
sub extract_first_table ($html) {
|
||||
$html =~ s/\n//g;
|
||||
|
||||
my $te = HTML::TableExtract->new( depth => 0, count => 2 );
|
||||
|
||||
$te->parse($html);
|
||||
|
||||
return $te->first_table_found;
|
||||
|
||||
return HTML::TableExtract
|
||||
->new( depth => 0, count => 2 )
|
||||
->parse( $html =~ s/\n//gr )
|
||||
->first_table_found;
|
||||
}
|
||||
|
||||
sub generate_output_table ($ts) {
|
||||
|
Loading…
Reference in New Issue
Block a user