利用perl转换16进制成2进制,详细代码如下
open SRC,"hex.txt"
open BIN,"bin.txt"
while(<SRC>){
$binvalue=sprintf("%32b",hex($_));
print BIN "$binvalue\n";
}
close SRC;
close BIN;
利用perl转换16进制成2进制,详细代码如下
open SRC,"hex.txt"
open BIN,"bin.txt"
while(<SRC>){
$binvalue=sprintf("%32b",hex($_));
print BIN "$binvalue\n";
}
close SRC;
close BIN;