Demrit

Miguel Vazquez Gocobachi

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;
}
 

Y su uso es tan simple como lo siguiente:

my  $string = trim(' Foo bar ');
 

Happy hacking!
Trackback URI: http://demrit.gnu.org.mx/index.php/trackback/2

Dejar un comentario

Escribe el código Captcha que estás viendo

Fuentes XML de comentario: RSS | Atom

Calendario del Blog

Noviembre 2008
Dom Lun Mar Mie Jue Vie Sab
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 1 2 3 4 5 6
rss
atom