Member Avatar for perl1user

Hi,
i'd like to know how to get hex code of an ASCII char.
Ex: 'a' => 61

  • 3 Contributors
  • 2 Replies
  • 87 Views
  • 3 Weeks Discussion Span
  • Latest Post Latest Post by mitchems
Member Avatar for mitchems 
sub ascii_to_hex ($)
    {
    	(my $str = shift) =~ s/(.|\n)/sprintf("%02lx", ord $1)/eg;
    	return $str;
    }
    sub hex_to_ascii ($)
    {
    	(my $str = shift) =~ s/([a-fA-F0-9]{2})/chr(hex $1)/eg;
    	return $str;
    }
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.