
Rellenar con ceros a la izquierda
Perl
Publicado el 16 de Enero del 2013 por Xavi (548 códigos)
8.941 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.
#!/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"
Comentarios sobre la versión: Versión 1 (0)
No hay comentarios