lllsoslll

把2楼精简下：

:: seehex.bat <file>
@perl -x -S %~s0 %*&goto:eof

#!perl
open EXE,"@ARGV" or die $!;
binmode EXE;
while (<EXE>) {
   $_ =~ s/./sprintf("%02lx", ord $&)/egs;
   print;
}
复制代码

lllsoslll

open EXE,'C:\Windows\System32\clip.exe' or die $!;
binmode EXE;
while (<EXE>) {
   $_ =~ s/./sprintf("%02lx", ord $&)/egs;
   print;
}
复制代码