Cómo me ahorro líneas en este código
Publicado: 2008-10-13 13:37 @609Using perl Syntax Highlighting
my @dias_calendario = qw( 02 05 10 20 );
sub quitacero{
my $num = $_;
if($num < 10){
return substr $num, 1;
};
};
@dias_calendario = map (quitacero($_,1),@dias_calendario);
print join "<br>",@dias_calendario;
sub quitacero{
my $num = $_;
if($num < 10){
return substr $num, 1;
};
};
@dias_calendario = map (quitacero($_,1),@dias_calendario);
print join "<br>",@dias_calendario;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Mejor dicho: lo que quiero es quitarle los ceros que antepone a cualquier número menor de 10 pero hacerlo en una sola línea con map() ^^ sin crear función aparte.