Help for this page

Select Code to Download


  1. or download this
    $x =~ tr/://d;
    my $y = pack('H*', $x);
    
  2. or download this
    my $y = pack('H*', $x =~ tr/://dr);  # 5.14+ required
    
  3. or download this
    (my $y = $x) =~ s/([0-9a-fA-F]{2}):?/chr(hex($1))/eg;
    
  4. or download this
    my $y = $x =~ s/([0-9a-fA-F]{2}):?/chr(hex($1))/egr;  # 5.14+ required
    
  5. or download this
    my $y = pack 'C*', map hex, split /:/, $x;
    
  6. or download this
    my $y = join '', map chr hex, split /:/, $x;