Trim en Perl
Muchas veces he utilizado la función trim() en PHP para eliminar espacios al principio y final de una linea. Esto se vuelve un problema cuando deseas hacer lo mismo en Perl, ¿por qué? Porque no existe función en perl que haga tal cosa, asi que aquí tenemos un ejemplo de como implementarlo en nuestras aplicaciones de Perl.
sub trim {
my $str = shift;
$str =~ s/^\s+//;
$str =~ s/\s+$//;
return $str;
}
my $str = shift;
$str =~ s/^\s+//;
$str =~ s/\s+$//;
return $str;
}
my $string = trim(' Foo bar ');
Dejar un comentario
Fuentes XML de comentario: RSS | Atom
Calendario del Blog
#1 Re:Trim en Perl
Excelente aporte, muchas gracias.