perl文件读写十分简单,有一个常用方式:
use FileHandle; |
#文件 读 my $fpos = "penn.txt"; my $read_pos = new FileHandle("$fpos") || die "can not open $fpos/n"; my @chunks; while($line = <$read_pos>){ |
#文件写 my $fmerge = new FileHandle(">$mergeFile") || die "can't open $mergeFile"; |