#! / usr / bin / perl ## www.52chb.com ####print "----------- encoded conversion tool Net2k garbage ^ _ ^ ---- ----- "; Print" / N / N input parameters (1) hexadecimal turn ten progress, no input ASCII code is converted into a unsigned character: "; $ CIA = 1; $ ci = ; if ($ CI == $ CIA) {Print "/ n ####################; 请Enter the value of the required conversion: "; $ cinn = ; kHomp $ cinn; $ decimal = HEX (" $ cinn "); the decimal value of Print" / N $ CINN is: $ decimal ";} else {print" / n ##### ASCII code converted into a unsigned character ##### "; print" / n Please enter the ASCII code you want to convert: "; $ scann = ; kHomp $ scann; print" / n Please enter the unsigned character you want to convert: "; $ scanna = ; kHomp $ SCANNA; $ String = Pack (" $ SCANN ", $ SCANNA); Print" $ String ";
