perl利用什么语句可以检测并过滤掉带删除线（strikethrough）的文字

Question

用perl写了个脚本处理excel文件将其生成为.scs文件，其中在excel文件里有一些文字被加上删除线，在处理时候不需要被处理，因为权限关系不可以修改excel。
想问有什么方法可以让perl自动过滤掉带删除线的文字。
感谢~！

Answer 1

OK，既然你知道怎么写perl,那么不细说其他。你应该知道如何获取Font，对吧?而删除线是Font的一种。{Font}->{Strikethrough} strike through: 0 or 1如果匹配到等于1，那么Filter

Answer 2

 #!/usr/bin/perl -w    use strict;    use Spreadsheet::ParseExcel;    my $parser = Spreadsheet::ParseExcel->new(        CellHandler => \&cell_handler,        NotSetCell  => 1    );    my $workbook = $parser->parse('test.xls');    sub cell_handler {        my $workbook    = $_[0];        my $sheet_index = $_[1];        my $row         = $_[2];        my $col         = $_[3];        my $cell        = $_[4];        # Do something useful with the formatted cell value        #print $cell->value(), "\n";                print $cell->get_format()->{Font}->{Strikeout},"\n";    }test.xls: