perl 数组问题

Qinxocy

如下格式一个文本文件：
1 3
2 3
3 34
- 34
+ 34
sf 34
s2 34
999 34

现在我要匹配第一列的所有数字并打印，做了如下perl脚本：
（1）
#!/usr/bin/perl -w
open (FH,'<',"test.txt");
while(<FH>){
my @t=split(/ /,$_);
my $v=$t[0] if($t[0]=~/^[\d]+$/);
print $v;
print "\n";
}
close FH;

输出结果：
1
2
3
Use of uninitialized value in print at test.pl line 6, <FH> line 4.

Use of uninitialized value in print at test.pl line 6, <FH> line 5.

Use of uninitialized value in print at test.pl line 6, <FH> line 6.

Use of uninitialized value in print at test.pl line 6, <FH> line 7.

999

请教各位大侠，有什么办法能去掉“Use of uninitialized value in print at test.pl line 6, <FH> line 5.”这个报错(不是不报，而是要解决这个问题)。到底问题出在哪里，明明匹配了数字，另外说明，匹配规则肯定没错，我用单列文本做了一个脚本测试过了。

MMMIX

回复 1# Qinxocy

何必这么费劲？

1. 
   
2. perl -ne ' ($n) = m/^(\d+)/; print "$n\n" if $n ' t.txt
   

复制代码

Qinxocy

回复 2# MMMIX


    这个我要用脚本的形式写出来，上面这个我只是测试的。希望能根据我这个格式帮我找出问题。。

MMMIX

Qinxocy 发表于 2012-03-06 13:38
 这个我要用脚本的形式写出来

难道脚本写到命令行中就不是脚本了？

Qinxocy

回复 4# MMMIX


    哎。。。。新手新手。。

fly_in_thesky

回复 1# Qinxocy [/

这个代码可以完成你的要求！

#!/usr/bin/perl -w
open (FH,'<',"test.txt");
my @t;
my $v;
while(<FH>){
@t=split(/ /,$_);
if($t[0]=~/^[\d]+$/){$v=$t[0] ;
print $v;
print "\n";}
else {print " ","\n";}
}
close FH;




   

perlnewbie

1. #!perl -w
   
2. use strict;
   
3. # AUTHOR: niejieqiang
   
4. 
   
5. while (<DATA>) {
   
6.         next if /^\D/;
   
7.         my @array=split/\s+/;
   
8.         print $array[0],"\n";
   
9. }
   
10. __DATA__
    
11. 1 3
    
12. 2 3
    
13. 3 34
    
14. - 34
    
15. + 34
    
16. sf 34
    
17. s2 34
    
18. 999 34
    

复制代码