Perl script 之两小时七行代码

今天憋了一个多小时，就只写了7行代码，郁闷。。。

现把代码贴出来，以后再要用的时候就不用满世界地G了。

 

# perl script

# open one file and write to another

open(FILEREAD,"<$readFile");

open(FILEWRITE,">>$writeFile"); #用>>是代表填写在文件末，不用覆盖原先的内容

while(FILEREAD)

{

    print FIEWRITE;

}

close FILEREAD;

close FILEWRITE;

这个里面FILEREAD,FILEWRITE是句柄，<是读出文件内容，>是写入文件。

白天满世界找的其实就是如何把值从句柄复制到句柄，找了半天，原来就是那么三句话而已，晕倒，原来我是这么的不开窍。。。