Wonderland ONLINE　雑談稀に升　Part9

($srcfilesize) = (stat("aLogin.exe"))[7];
($srcfiletime) = (stat("aLogin.exe"))[9];
open INFILE, "aLogin.exe";
　binmode(INFILE);
　read(INFILE,$srcfiledata,$srcfilesize);
close INFILE;
　$dstfilename = $srcfiledata;
#製粉所文字化け
　$dstfiledata =~ s/\x02\x00\x00\x00ｭﾓ/\x02\x00\x00\x00個/g;
open OUTFILE, ">aLogin.exe";
　binmode(OUTFILE);
　print OUTFILE $dstfiledata;
close OUTFILE;