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


if(open(MYFILE, "c:/fistFile.txt")){
	print "OPEN TRUE!";
}
else
{
	print "FALSE!";
}
my @arraysList=<MYFILE>;#把这些数据写入到twoFile.txt文件里去

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

6 个解决方案

#1

还要补充一点。我要获取到fistFile.txt文件里的某个字符串，如：<bold>这个标签，怎么获取？

#2

#!/usr/bin/env perl

open $in,  '<', 'firstFile.txt' or die $!;
open $out, '>', 'twoFile.txt'   or die $!;
while (<$in>) {
    print $out $_;
}
close $out;
close $in;

#3

引用 2 楼的回复:

Perl code
#!/usr/bin/env perl

open $in,  '<', 'firstFile.txt' or die $!;
open $out, '>', 'twoFile.txt'   or die $!;
while (<$in>) {
    print $out $_;
}
close $out;
close $in;

这个我这里报错。 No such file or directory at c:\a.pl line 231报的是open $in, '<', 'firstFile.txt' or die $!;这句。我不懂perl 请帮我写明白一点好吗？然后打开了文件，怎么得到字符串中某一个我想要的<bold>,bold 是可以改变的

#4

输入输出重定向

#5

试试这个：
#!/usr/bin/perl

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

#6

得到<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语句你可以删掉。

#1