兄弟,你 只打开了文件,而且,读入与追加描述符用的是一个。看你这意思,应该是用perl 复制一个文件。按照下面的写就行了。open(LOG,"open(LOG1,">>perl_logfile");print LOG1 LOG; #这一句的意思就是把你打开的文件描述符LOG的内容,写到LOG1里。close(LOG);close(LOG1);
只是打开文件怎么会有东西写进去呢?open LOG, "open LOG1, ">>perl_logfile";while(){print LOG1 $_;}close(LOG);close(LOG1);