Re: One for the regexp fans

[Corion]

I first tried a pack / unpack approach, that didn't work and then went to perlman:perlre and read a bit about the zero-width lookbehind operators ... And this is what I came up with :

#!/usr/bin/perl -w
use strict;

my $Test = "5.ae.20.b.1c.7";

print "05.ae.20.0b.1c.07\n";

# A feeble try with pack/unpack, that dosen't work
# print join( ".", unpack( "H2" x 6, pack( "H2" x 6, split( /\./, $Tes
+t )))), "\n";

# Now a regex which uses the zero-width lookbehind and works
# the "defined $1 ? "0$1" : "" part is ugly, I admit this ...
# but I see no other way around it ;-)
$Test =~ s/(?(?<![a-f0-9])([a-f0-9]))?\./(defined $1?"0$1":"")/eig;
print $Test, "\n";