Question

I am new to Perl and trying to decode a Perl script which reads an Excel file and export the data into a text file. One of the steps in the script is performing weirdly. This is the step:

@array_name = grep {$_} @array_name;

如果值为 < code> 0 , 则此步骤仅略去最后一列, 否则它会正常工作。如果我删除了此步, 数值为 < code> 0 的最后一列就会返回, 但在我的摘录中包含一些不属于我源Excel 文件的假的 < code> NULLL 列。

有人能帮我理解这个步骤吗?

Answer 1

grep 命令过滤器不是空内容。所以所有不进行真实评价的内容都将被丢弃。空单元格和包含 0 的单元格将被删除。如果您只想删除空单元格, 您可以使用

@array_name = grep { defined && length } @array_name ;

取而代之。

Answer 2

$A->[$i][10]=~s/
//g;

$variable_value =~s/
//g;

$vilable_value 是存储值的变量。

它将删除下一行。

Answer 3

grep 基本上返回数组的所有真实值, 0 被内插为假。

例如,这里使用 grep 将真实值过滤到@b,

my @dirty = (0,1,2,3,,0,5,);
my @clean = grep {$_} @dirty;
for(@clean) {print "$_
";}

回返回返返回

保留零的小把戏包括给grep 参数添加一条新线:

my @dirty = (0,1,2,3,,0,5,);
my @clean = grep {"$_
"} @dirty;
for(@clean) {print "$_
";}

返回时,

友情链接