[d]急perl 读取一个资料，然后把读出来的数据写进另一个文件中去

[d]急！perl 读取一个文件，然后把读出来的数据写进另一个文件中去！

if(open(MYFILE, "c:/fistFile.txt")){

	print "OPEN TRUE!";

}

else

{

	print "FALSE!";

}

my @arraysList=<MYFILE>;#把这些数据写入到twoFile.txt文件里去

请大侠帮帮忙！
--------------------------
Double行动：
原帖分数：50
------解决方案--------------------

#!/usr/bin/env perl


open $in,  '<', 'firstFile.txt' or die $!;

open $out, '>', 'twoFile.txt'   or die $!;

while (<$in>) {

    print $out $_;

}

close $out;

close $in;

------解决方案--------------------
输入输出重定向
------解决方案--------------------
试试这个：
#!/usr/bin/perl

open IN, "fistFile.txt";
open OUT, ">>fistFile.txt";
while (defined($temp=<IN>)) {
    print OUT  ("$temp");
}
close IN;
close OUT;

------解决方案--------------------
得到<bold>用这个：
open IN, "b1";
open OUT, ">>bbb";
while (defined($temp=<IN>)) {
    $where=index($temp,"<bold>");
    $variable=substr($temp,$where,6);
    print"$variable";
    print OUT  ("$temp");
}
close IN;
close OUT;



print语句你可以删掉。