如何创建一个从文件到所需格式的值并使用Perl分配给变量

Question

有人可以让我知道如何通过perl。

我有一个带有下面值的CVS文件。

i/p：

符号，a，b，c，d，e，f

66，.8500，.8500,1.1600,1.1600

o/p：

[['符号'，'a'，'b'，'c'，'d'，'e'，'f']，['66'，'。8500'，'。8500'，'1.1600'，'1.1600']];

并将其分配给变量。

我如何能够通过perl脚本实现这一目标。

$sts = open( CSV, "< File.csv" );
while (<CSV>) {
   $csv = $_;
   chomp($csv);
   @csv_rcd = split( ',', $csv );
   foreach $cell (@csv_rcd) {
      push @rowdata, $cell;
   }
   push @$somedata, @rowdata;
}

但是上面的代码未产生所需的O/p。

Answer 1

use strict;
use Data::Dumper;
my $somedata;
while (my $csv = <DATA>) {
    chomp $csv;
    push @$somedata, [ split (',' , $csv)];
}
print Dumper($somedata);
__DATA__
Symbol,A,B,C,D,E,F
66,.8500,.8500,1.1600,1.1600

这是使用PDF :: Table

的完整示例

use PDF::API2;
use PDF::Table;
my $somedata;
while (my $csv = <DATA>) {
    chomp $csv;
    push @$somedata, [ split (',' , $csv)];
}
my $pdftable = new PDF::Table;
 my $pdf = new PDF::API2(-file => "table_of_lorem.pdf");
 my $page = $pdf->page;
$pdftable->table($pdf, $page, $somedata, x => 50, w => 495, start_y => 500, start_h => 300,
    padding => 5, background_color_odd => 'gray', background_color_even => 'lightblue');
$pdf->saveas();
__DATA__
Symbol,A,B,C,D,E,F
66,.8500,.8500,1.1600,1.1600