Help for this page
my @Fld = ( split /\t/ )[0,4]; my $col = 0; foreach my $token (@Fld) {
my @fld_no = qw( 0 4 ); my $row = 0; # ... foreach my $idx (@fld_no) { $worksheet->write($row, $col, $fld[$idx]);
www.com | www.net | www.org
No recent polls found