[d]急perl 读取一个资料，然后把读出来的数据写进另一个文件中去
[d]急！perl 读取一个文件，然后把读出来的数据写进另一个文件中去！本帖最后由 fibbery 于 2012-10-13 12:08
[d]急！perl 读取一个文件，然后把读出来的数据写进另一个文件中去！
本帖最后由 fibbery 于 2012-10-13 12:08:13 编辑
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语句你可以删掉。
