Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- foreach( { tables=>[qw|earnings capitalRatios valuationMeasures|], minRows=>8 } ){
- foreach my $tableName( @{$_->{tables}} ){
- my $table = $dataTables{$tableName};
- while( scalar @{$table->{data}} < $_->{minRows} ){
- $table->addOneRow( map{ { format=>'A', data=>' ', encoded=>1 } } 0..scalar@{$table->{data}[0]} );
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement