perl同时打印多列应该怎么写

elaine2017

这是我写的脚本，就想问问我想同时输出多列应该怎么改，像我这里种写法太笨了。。。。。。
use strict ;
use warnings ;
if ($#ARGV<0)
{
print STDERR "usage: $0 infile output_file \n";
exit(1);
}
my $infile=$ARGV[0];
my $outfile=$ARGV[1];
my $UMI_1;
my $UMI_2;
open (IN, "$infile") or die "file1 cannot open \n";
open (OUT, ">$outfile") or die "$! error creating output file";

while (<IN>)
      {
           chomp;
           my @f=split();
           my @g=split(/\|/,$f[0]);
           my $UMI_1= substr $g[1],0,12;
           my $UMI_2= substr $g[1],12;
           print OUT "$g[0]\t$UMI_1\t$UMI_2\t$f[1]\t$f[2]\t$f[3]\t$f[4]\t$f[5]\t$f[6]\t$f[7]\t$f[8]\t$f[9]\t$f[10]\t$f[11]\t$f[12]\t$f[13]\t$f[14]\t$f[15]\t$f[16]\n";
       }
close IN;
close OUT;

elaine2017

为什么就不能有$f[2:16]这种写法。。。。。

iamlimeng

Perl这种语法最丰富了，比其他语言多得多：

1. print OUT "$g[0]\t$UMI_1\t$UMI_2\t$f[1]\t",join("\t",@f[2..16]),"\n";  

复制代码

elaine2017

回复 3# iamlimeng

谢谢

elaine2017

回复 3# iamlimeng

报错了诶：Argument "" isn't numeric in array element at rearrangement2.pl line 26, <IN> line 30838.

523066680

访问数组切片使用 @arr[ start .. end ]; 是 @ 开头的

示例

1. my @f = ('a'..'z');
   
2. print join("\t", @f[2..16]), "\n";

复制代码

elaine2017

回复 6# 523066680

哦，原来错在这里啊，我再试试

iamlimeng

回复 6# 523066680

一时糊涂了，多谢指正！

elaine2017

回复 6# 523066680

再请教一下，如果每一行列数是不确定的，那么就是打印第2列到最后一列，试了一下，这种写法好像是不对的。perl中有类似的操作吗print OUT "$g[0]\t$UMI_1\t$UMI_2\t$f[1]\t",join("\t",@f[2..]),"\n";

523066680

$#arr  表示最后一个。
-1 也可以表示最后一个，但是 2..-1 是不能用的，所以还是 $#arr