16 진수를 perl의 char 문자열로 변환하는 방법

Question

% xx HEX 문자를 문자로 변경해야합니다. 이 코드에 노력하고 있지만, 그것은 작동하지 않습니다 그래서 검색 및 교체가 $cadena 이루어집니다

#!/usr/bin/perl -w 

my $cadena = "%40%61%62"; 
print $cadena."\n"; 
$cadena =~ s/%//g; 
print "cad: ".$cadena."\n"; 
my $string =~ s/([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg; 
print "traducida: ".$string; 

Answer 1

변경

my $string =~ s/([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg; 

$cadena =~ s/([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg; 

합니다.

출력 : @ab

40 => @ 
61 => a 
62 => b 

Answer 2

더 나은 정규식 패턴 :

$cadena =~ s/([[:xdigit:]]{2})/chr(hex($1))/eg; 

는 POSIX 문자가 하나의 진수 문자와 일치, 둘, 그 중 두 가지를 지정할 수 {2}를 사용하는 [:xdigit:]을 설정할 때 사용합니다.