Dotted decimal to hex 3

[gjandrews35]

I am trying to convert dotted decimal strings
into their hex equivalent and vice versa...
For example
0.0.244.175.197.51 to
00.00.F4.AF.C5.33 or 0000f4afc533 or 00:00:F4:AF:C5:33

any ideas ? I know that you can print decimals
as hex with "%x"..

I am writing a perl program to map switch ports.

 

[mikevh]

This produces the second of the example outputs you show above. You can vary the format string to get different outputs.

my $str = "0.0.244.175.197.51";
printf "%02x" x 6, split /\./, $str;

 

[mikevh]

you could map that back to the original string like so, though there may be a more elegant way.
(It's late ...)

my $str = "0.0.244.175.197.51";
my $x = sprintf "%02x" x 6, split /\./, $str;
print "\$x: $x\n";
[b]my $y = sprintf "%d." x 6, map {hex} $x=~ m|(..)|g;
print "\$y: $y\n";[/b]

 

[rharsh]

You could also do something like:

my $str = '0.0.244.175.197.51';
# Dec To Hex
$str =~ s/([0-9]+)/sprintf("%02x", $1)/eg;
print $str, "\n";
# Hex to Dec
$str =~ s/(\w+)/hex($1)/eg;
print $str, "\n";

 

[MikeLacey]

That is neat, elegant and readable; nice one.

Mike

http://www.google.com/tsunami_relief.html

shows ways to help with Tsunami Relief.

You cannot really appreciate Dilbert unless you've read it in the
original Klingon.

Want great answers to your Tek-Tips questions? Have a look at faq219-2884

 

[rharsh]

Thanks for the stars!