perl 复制exe文件的简单方法

Posted 2020-09-16 FireC@t @ Perl6

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;