根据某一列的数值，重复其他列的次数为这个值的数值数

pengjiayu

比如下面所述表格：chr     start     end    number
chr1   112      134     3
chr2   234      245     2

想要输出为：
chr     start     end
chr1   112      134
chr1   112      134
chr1   112      134
chr2   234      245
chr2   234      245

求大神帮忙写一段命令能执行这个操作   

大裤衩

这个脚本试试

[Perl] 纯文本查看 复制代码

open A,"$ARGV[0]" ;

<A>;
my @all=<A>;
my (@num,@info);
foreach my $k(@all){
	chomp($k);
	my @line=(split /\s+/,$k);
	my $rep=pop @line;
	push @num,$rep;
	push @info,join("\t",@line);
}

print "chr\tstart\tend\n";
for(my $k=0; $k<@num; $k++){
	for(my $i=0; $i<$num[$k]; $i++){
		print"$info[$k]\n";		
	}
}
close A;

lierking

大裤衩 发表于 2020.11.13 06:41
这个脚本试试
[mw_shl_code=perl,true]open A,"$ARGV[0]" ;

可能还需要写出怎么执行代码

pengjiayu

大裤衩 发表于 2020.11.13 14:41
这个脚本试试
[mw_shl_code=perl,true]open A,"$ARGV[0]" ;

这个可以用 感谢！

pengjiayu

lierking 发表于 2020.11.16 10:29
可能还需要写出怎么执行代码

perl A.pl A > B