Use of uninitialized value in substitution (s///)

humwawe

#!/usr/local/bin/perl -w                                                                                                                        
use strict;                                                                        
use encoding "utf8", STDOUT =>"utf8";                                                                        

while(<>)                                                                        
{
    chomp;                                                                        
    next if not ((defined $_));                                                                        
    my @arr = split /\t/, $_;                                                                        
    if (@arr +0 == 1)                                                                        
    {
        print $_,"\n";                                                                        
        next;                                                                        
    }
    if( $arr[0] =~ s/(^[^0-9a-z\p{Han}]+)|([^0-9a-z\p{Han}]+$)//ig)                                                                        
    {

        print STDERR $_,"\n";                                                                        
    }
        print $arr[0],"\t",$arr[1],"\n";                                                                        
}

出现Use of uninitialized value in substitution (s///) at scripts/rm_no_word\_char.pl line 15, <> line 30 错误？

ntwarren

输入文件第30行为空行.

if (@arr +0 == 1)                                                                        
    {
        print $_,"\n";                                                                        
        next;                                                                        
    }

改为
if (@arr +0 <= 1)                                                                        
    {
        print $_,"\n";                                                                        
        next;                                                                        
    }

humwawe

嗯嗯
谢谢。
回复 2# ntwarren