[Omaha.pm] Perl-golf -- zero-pad an IP address.

[Jay Hannah]

On Jan 28, 2005, at 4:49 PM, Daniel Linder wrote:
> I recently wrote a quick script that took a standard IP address format 
> of
> 12.34.56.78 and reformat it to zero-padded numbers (012.034.056.078).
> Here is  the smallest subroutine I could come up with:
>
> sub zeropad {
>   my $IN = shift;
>   $IN =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
>   return (sprintf("%03d.%03d.%03d.%03d", $1, $2, $3, $4));
> }

sub zeropad {
    return sprintf("%03d.%03d.%03d.%03d", split /\./, $_[0]);
}

Cheers,

j