小编ahm*_*100的帖子

我怎样才能使split(/\t/, $STRING)检测空项目时，$STRING两端用"\t\t"？

使用Perl脚本，我试图根据项目之间的分隔符来分割字符串，然后计算并使用这些项目。但是，当字符串以s结尾时，脚本不会计算空项目。

例：

string="value1\tvalue2\t\t\t\t" （值1，值2和4个空项目）

但计数2个项目（值1，值2）：

$STRING="value1\tvalue2\t\t\t\t";
print $STRING."\n";
my @F = split(/\t/, $STRING);
print scalar(@F)."\n";

# The number of items must match the number of header name
if( scalar(@F) == 6 )
            {
                    print  "Done \n";
            }

代码显示：

value1  value2      
2

而预期的是：

value1  value2  
6