Código de Perl - Rellenar con ceros a la izquierda

Rellenar con ceros a la izquierda

Publicado el 16 de Enero del 2013 por Xavi (548 códigos)

8.821 visualizaciones desde el 16 de Enero del 2013

Función para rellenar un numero con ceros a la izquierda del mismo hasta llegar al valor dado.

Publicado el 16 de Enero del 2013

8.822 visualizaciones desde el 16 de Enero del 2013

#!/usr/bin/perl -w

# Rellena con ceros a la izquierda de un valor hasta llegar al valor dado

# Tiene que recibir dos valores:

#   - cadena

#   - numero total de caracteres. Si la cadena es inferior los rellenara con 0's

sub zero_fill

    $pad_len = $_[1];

    $padded = sprintf("%0${pad_len}d", $_[0]);

    return $padded;

$result=zero_fill("71",5);

print "$result\n"

No hay comentarios

http://lwp-l.com/s2272

Conversor de grados Centigrados a Kelvin

Código para leer archivos con extensión .zim