[问题求助] Perl怎样查看可执行文件的十六进制编码？

Perl

比如，我有一个可执行文件：
C:\Windows\System32\clip.exe
怎样查看它的十六进制编码？就像用UE打开那样

Perl

回复 3# sxw


多谢。用unpack和ord得到的结果有点差异，请问是为什么？

open EXE,'C:\Windows\System32\clip.exe';
binmode EXE;
while (<EXE>) {
    print &asc2hex($_);
}

sub asc2hex {
    ($s = shift) =~ s/./sprintf("%02lx ", ord $&)/egs;
    return $s;
}
复制代码