37,721
社区成员
发帖
与我相关
我的任务
分享
if(open(MYFILE, "c:/fistFile.txt")){
print "OPEN TRUE!";
}
else
{
print "FALSE!";
}
my @arraysList=<MYFILE>;#把这些数据写入到twoFile.txt文件里去
#!/usr/bin/env perl
open $in, '<', 'firstFile.txt' or die $!;
open $out, '>', 'twoFile.txt' or die $!;
while (<$in>) {
print $out $_;
}
close $out;
close $in;