Perl 当前离线
中尉
open EXE,'C:\Windows\System32\clip.exe'; binmode EXE; while (<EXE>) { print &asc2hex($_); } sub asc2hex { ($s = shift) =~ s/./sprintf("%02lx ", ord $&)/egs; return $s; }复制代码
TOP