<div><br> Bueno, por que no instentas algo así:</div>
<div> </div>
<div>my $var=algo_que_devuelve_digitos();</div>
<div>my $relleno=´0´ x (length($var) > 10 ? 0 : (10 - length($var)));</div>
<div>print $relleno,$var,"\n";</div>
<div> </div>
<div> algo_que_devuelve_digitos() es precisamente lo que te está generando los digitos que quieres completar con ceros, $relleno es el número de 0's con vas a concatenar </div>
<div>a $var para tener el formato que quieres, sólo hago una pequeña comprobación de que $var tiene menos de 10 digitos y el resultado se utiliza para generar las repeticiones de</div>
<div>´0´.</div>
<div> </div>
<div> O sea que si en $var tienes un 10, $relleno tendría 8 ceros ya que $var tiene dos digitos y el formato final sería 0000000010.</div>
<div> Espero te sirva esto.</div>
<div> </div>