perl 复制exe文件的简单方法
use warnings; use strict; open EXE, "cmd.exe" or die "Can not open cmd.exe:$!\n"; open EXEBACK, '>', 'c.exe' or die "Can not open c.exe:$!\n"; binmode(EXE); binmode(EXEBACK); while(<EXE>){ print EXEBACK $_; } close EXE; close EXEBACK;