hexdump.pl

来自「在线生成手机二维码的源程序」· PL 代码 · 共 12 行

opendir(DIR,"./");
foreach (readdir(DIR)){
	if(/qrv\d.*dat$|rsc\d.*dat$/){
		open(DAT,$_);
		my $s = "";
		while(my $l=<DAT>){$s.=$l}
		open(DAT_HEX,">$_.hex");
		print DAT_HEX unpack("H*",$s)
	}
}