Perl，从两个文件读取并写入第三个文件

我的程序无法正常运行。基本上，我从两个文件中读取数据，然后将数据写入其中。有人能指出问题所在吗？在我试图写入文件的打印输出语句中，我不断遇到有关实例化的错误。这是我的密码：

print "Please input file name \n";
$infile=<DATA>;
$infile2=<DATA>;

open IN, "$infile";
open JUNK, "$infile2";
open OUT, '>' ,'convertedback.txt';

$line = <IN>;
$line2 = <JUNK>;

#pull first line from sample (name 1)
print OUT "$line";
$line =<IN>;
#pull sequence line from FASTQ
print OUT "$line";
#pull line from quality file *2
print OUT "$line2";
$line2 =<JUNK>;
print OUT "$line2";

#Repeat until EOF
while($line =<IN>) {#for lines 5 to end

#Build Line 1
print "line 1 inf (name) is\n";
print $line2;
print OUT "$line2";


#Build Line 2
print "line 2 inf (seq) is\n";
print $line;
print OUT "$line";

#Build Line 3
$line2 =<JUNK>;
print "line 3 inf (quality) is\n";
print $line2;
print OUT "$line2";

#Build Line 4
$line2 =<JUNK>;
print "line 3 inf (quality) is\n";
print $line2;
print OUT "$line2";

}#while $line=<IN>
close (IN);
close (OUT);

print "Done!\n";

__DATA__
outfilenew.txt
sample.qualities

打印“请输入文件名\n”；
$infile=；
$infile2=；
在“$infle”中打开；
打开垃圾邮件，“$infile2”；
打开“>”，“convertedback.txt”；
$line=；
$line2=；
#从样本中提取第一行（名称1）
打印出“$line”；
$line=；
#从FASTQ中拉出序列行
打印出“$line”；
#从质量文件*2中提取行
打印出“$line2”；
$line2=；
打印出“$line2”；
#重复此操作直到EOF
而（$line=）{#第5行结束
#建造1号线
打印“第1行inf（名称）为\n”；
打印$line2；
打印出“$line2”；
#建造2号线
打印“第2行inf（序列）为\n”；
打印$行；
打印出“$line”；
#建造3号线
$line2=；
打印“第3行inf（质量）为\n”；
打印$line2；
打印出“$line2”；
#建造4号线
$line2=；
打印“第3行inf（质量）为\n”；
打印$line2；
打印出“$line2”；
}#而$line=
关闭（IN）；
收尾；
打印“完成！\n”；
__资料__
outfilenew.txt
样品质量

在脚本开头使用和使用

使用三个参数，如

open(my $fh, '<', "input.txt") or die $!;

open（my$fh），在脚本开头使用

使用三个参数，如

open(my $fh, '<', "input.txt") or die $!;

打开（我的$fh，'
use strict;
use warnings;
print "Please input file name \n";
my $infile=<DATA>;
my $infile2=<DATA>;

open(my $in,'<', "$infile") or die $!;
open(my $junk,'<',"$infile2") or die $!;
open(my $out, '>' ,'convertedback.txt') or die $!;

my $line = <$in>;
my $line2 = <$junk>;

#pull first line from sample (name 1)
print $out "$line";
$line =<$in>;
#pull sequence line from FASTQ
print $out "$line";
#pull line from quality file *2
print $out "$line2";
$line2 =<$junk>;
print $out "$line2";

#Repeat until EOF
while($line =<$in>) {#for lines 5 to end

#Build Line 1
print "line 1 inf (name) is\n";
print $line2;
print $out "$line2";


#Build Line 2
print "line 2 inf (seq) is\n";
print $line;
print $out "$line";

#Build Line 3
$line2 =<$junk>;
print "line 3 inf (quality) is\n";
print $line2;
print $out "$line2";

#Build Line 4
$line2 =<$junk>;
print "line 3 inf (quality) is\n";
print $line2;
print $out "$line2";

}#while $line=<IN>
close ($in);
close ($out);

print "Done!\n";

__DATA__
outfilenew.txt
sample.qualities