Question

perl，我想将A.txt文档里的的数传给B.txt，他们的结构如下，请问我应该怎么做呢？求指点，谢谢~

A.txt结构 B.txt结构
GSE1000 summaryGSE1000
GSE1001 GSE1000GSE1001

Answer 1

传给B.txt？太笼统了吧。
说清楚点啊，不然大伙儿怎么帮你弄

追问

就是A.txt中的每一行作为一个参数传给B.txt的每一行，比如A.txt中的GSE1000写入B.txt编程summaryGSE1000，这样说清楚了吗？谢谢~

追答

my $a = 'C:\Users\Administrator\Desktop\A.txt';
my $b = 'C:\Users\Administrator\Desktop\B.txt';
my $c = 'C:\Users\Administrator\Desktop\C.txt';
open(A, $a)or die "";
open(B, $b)or die "";
open(C, ">".$c)or die "";
my @list = () ;
my $i = 0;
while (<A>)
{
chomp($_);
$list[$#list+1] = $_;
}
while (<B>)
{
chomp($_);
print C $_.$list[$i], "\n";
$i++;
}
close(A);
close(B);
close(C);
print "over", "\n";

可以么？