Question

perl 不同文件按列合并

很多个如图所示txt文件，要做的通过比对是把前面四列相同的取出来放到一个新的文件中，第五列的频率值按列放到新文件中，效果如图
每个 txt 文件有前四列相同的行，也有不同的，程序要做的就是输出所有 txt 文件前四列相同的行，对应的频率值按顺序排列在第 5 列，第 6 列，第 7 列 。。。求大神指点，左图是要比对的输入文件，右图是想要达到的效果图。急，求大神指点！





Answer 1

my %elm;
my @files = <*.txt>;
for my $f(@files){merge($f);}
save("final.log");

sub merge{
	my $f = shift;
	my $H;
	open $H, $f;
	<$H>;
	while (<$H>) {
		chomp;
		my @e = split(/[ \t]/, $_);
		my $k = join(',', @e[0..2]);
		$elm{$k} = [] if (!exists $elm{$k});
		push @{$elm{$k}}, $e[3];
	}
}
sub save {
	my $out = shift;
	my $H;
	open $H, '+>', $out;
	print $H "CHROM\tpos\tref\tfreq\n";
	for my $k(keys %elm) {
		print $H join("\t", split(',', $k), @{$elm{$k}}) . "\n";
	}
	close $H;
}

追问

输出文件应该放哪，我还是一个 perl 小白，还有就是好像 25 行有语法错误，报错了，求指点，麻烦您了1

Answer 2

你好，你的问题解决了吗