sxw

#!/usr/bin/perl
use strict;
use warnings;
open(FH,"<",'C:\Windows\System32\clip.exe') or die;
my $a;
my $buffer;
while (read(FH,$buffer,16)) {
    $a=unpack("H*",$buffer);
	$a=~s/../$& /g;
	print $a;
	}
close(FH);
复制代码

sxw

回复 4# Perl


    呵呵，不清楚，plp26的结果比3楼的多了1kb，下面的也可以吧

#!/usr/bin/perl
use strict;
use warnings;
open(FH,"<",'C:\Windows\System32\clip.exe') or die;
my @a;
my $buffer;
while (read(FH,$buffer,16)) {
    @a=unpack("H*",$buffer);#@a中只有一个元素
         print $a[0],"\n";
        }
close(FH);
复制代码