Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.36 KB | None | 0 0
  1.   foreach( { tables=>[qw|earnings capitalRatios valuationMeasures|], minRows=>8 } ){
  2.     foreach my $tableName( @{$_->{tables}} ){
  3.       my $table = $dataTables{$tableName};
  4.       while( scalar @{$table->{data}} < $_->{minRows} ){
  5.         $table->addOneRow( map{ { format=>'A', data=>'&nbsp;', encoded=>1 } } 0..scalar@{$table->{data}[0]} );
  6.       }
  7.     }
  8.   }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement