帮忙debug数组判断取值类问题

kobe1424

问题描述如下,请帮我debug下：

1. #!/perl/5.8.8/x86_64/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. open (IN, '< file1');
   
5. open (OUT, '>> file2');
   
6. my $line;
   
7. my @each;
   
8. for ($line = <IN>)
   
9. {
   
10.   if ($line[3] =~ m/^\d+$/i)
    
11. {
    
12.    @each = ((split/\t/,$line)[4,5])
    
13. }
    
14. else
    
15. { @each = (split/\t/,$line)[3,4]) }
    
16. print OUT "@each\n";
    
17. }
    
18. close IN;
    
19. close OUT;

复制代码

若file1第3列不是数字，取file1 (4，5)两列输出到file2; 若第3列是数字，则取file1 (3，4)两列输出到file2。

kobe1424

Yeah, I have debug it by myself!

substr函数

刚学Perl，献丑了, 你看看可以吗
debug后如下

1. while (<DATA>) {
   
2.     my @line = split;
   
3.     my @want = $line[2] =~ /^\d+$/ ? @line[ 2, 3 ] : @line[ 3, 4 ];
   
4.     print join( "\t", @want ), "\n";
   
5. }
   
6. 
   
7. __DATA__
   
8. 1 1 1 2 3
   
9. 1 1 a b c
   
10. 1 1 2 3 4
    
11. 1 1 b C D

复制代码