Question

我想在perl中解析一个csv文件，并希望生成一个excel表。截至目前，我能够解析CSV文件并转换为xls。这个代码工作正常，根据CSV给出了大约6行和3个列。这是正确的。解析后我想做一些格式化.let比如任何一行或一个列，其中“通过”作为一个应该是绿色的字符串，然后失败然后应该是红色。我该怎么做才能帮助..

     #!/run/pkg/TWW-perl-/5.8.8/bin/perl -w
     use strict;
     use warnings; 
     use Spreadsheet::WriteExcel;
     use Text::CSV::Simple;
     use Spreadsheet::ParseExcel::Format
my $infile = "/project/ls1socdft_nobackup/rev2.0/user/Shah-       B53654/dft/dfta/perl/pattern_qa/output_0/xls_info.csv";
#usage()  unless defined $infile && -f $infile;
  my $parser = Text::CSV::Simple->new; 
  my @data = $parser->read_file($infile);
  my $headers = shift @data;

   my $outfile = shift || "/project/ls1socdft_nobackup/rev2.0/user/Shah-B53654/dft/dfta/perl/pattern_qa/output_0/xls_info.xls";
my $subject = shift || 'worksheet';

 my $workbook = Spreadsheet::WriteExcel->new($outfile);
my $bold = $workbook->add_format();
$bold->set_bold(1) ;
 my $color =$workbook->add_format(); 
 $color->set_bg_color('green'); 
 my $color1=$workbook->add_format();
 $color1->set_bg_color('red');
import_data($workbook, $subject, $headers, \@data);

# Add a worksheet
 sub import_data {
my $workbook  = shift;
my $base_name = shift ;
my $colums    = shift;
my $data      = shift;
my $limit     = shift || 50_000;
my $start_row = shift ||1;
my $worksheet = $workbook->add_worksheet($base_name);
$worksheet->add_write_handler(qr[\w], \&store_string_widths);
my $w = 1;
$worksheet->write('A' . $start_row, $colums,$bold);
my $i = $start_row;
my $qty = 0;
for my $row (@$data) {
    $qty++;
    if ($i > $limit) {
         $i = $start_row;
         $w++;
         $worksheet = $workbook->add_worksheet("$base_name - $w");
                     $worksheet->write('A1', $colums);

          }

$worksheet->write(1+$i++,0, $row);}

   autofit_columns($worksheet);
warn "Convereted $qty rows.";
return $worksheet;
  }
 sub store_string_widths {

my $worksheet = shift;
my $col       = $_[1];
my $token     = $_[2];

# Ignore some tokens that we aren't interested in.
return if not defined $token;       # Ignore undefs.
return if $token eq '';             # Ignore blank cells.
return if ref $token eq 'ARRAY';    # Ignore array refs.
return if $token =~ /^=/;           # Ignore formula

# Ignore numbers
#return if $token =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d++))?$/;

# Ignore various internal and external hyperlinks. In a real scena+rio
# you may wish to track the length of the optional strings used wi+th
# urls.
return if $token =~ m{^[fh]tt?ps?://};
return if $token =~ m{^mailto:};
return if $token =~ m{^(?:in|ex)ternal:};


# We store the string width as data in the Worksheet object. We us+e
# a double underscore key name to avoid conflicts with future name +s.
#
my $old_width    = $worksheet->{__col_widths}->[$col];
my $string_width = string_width($token);

if (not defined $old_width or $string_width > $old_width) {
    # You may wish to set a minimum column width as follows.
    #return undef if $string_width < 10;

    $worksheet->{__col_widths}->[$col] = $string_width;
  }


# Return control to write();
return undef;
  }


sub string_width {

  return length $_[0];
   }
  sub autofit_columns {

my $worksheet = shift;
my $col       = 0;

for my $width (@{$worksheet->{__col_widths}}) {

    $worksheet->set_column($col, $col, $width) if $width;
    $col++;
}
 }

Answer 1

有两种方法可以按照您期望的方式格式化单个单元格。

1：不是将数据数组传递到$ worksheet-＆gt; write（）方法，而是遍历每一行和每一行并单独写入每个单元格。 EX：

更改

$worksheet->write('A1', $colums);

到

for (my $r=0;$r<@$colums;$r++) {
    for (my $c=0;$c<@{$colums->[$r]}) {
        $worksheet->write($r,$c,$colums->[$r]->[$c]);
    }

现在，您可以测试为您的条件编写的每个值。如果匹配，只需包含您要使用的格式。

$worksheet->write($r,$c,$columns->[$r]->[$c],$color1);

}

2：另一种选择是使用Excel::Writer::XLSX

Spreadsheet :: WriteExcel处于仅维护模式并具有实际上被Excel :: Writer :: XLSX取代。

此模块更新，包含条件格式化功能，可在写入数据后添加此外，除了包含模块和初始化模块时，excel生成代码应该没有变化然后，您只需指定条件格式的规则。

$worksheet->conditional_formatting( 'A1:J10',
        {
            type     => 'text',
            criteria => 'containing',
            value    => 'Pass',
            format   => $color,
        }
    );
$worksheet->conditional_formatting( 'A1:J10',
        {
            type     => 'text',
            criteria => 'containing',
            value    => 'Fail',
            format   => $color1,
        }
    );

perl中的CSV到xls转换

1 个答案: