consulta

[Horacio Hidalgo]

buenas,

estaba trabajando en una expresion regular para hacer un split, sin embargo
me esta generando valores en el array indefinidos, lo que tuve que hacer fue
filtrar los resultados que populan el array con grep, alguna idea de como se
podria eliminar esto de una forma mas "elegante"?

Saludos,
Horacio

use strict;
use warnings;
use feature ':5.10';
my $var = "vivo \"en un bonito barrio\" en costa rica";
say($var);
my @splitted = grep{ defined $_} split(m/\s+(\".*\")\s+|\s+/,$var);
#my @splitted = split(m/\s+/,$var);
print $#splitted ."\n";
for(@splitted)
{
    print;
    print "\n";
}
print "\n";
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://mail.pm.org/pipermail/costarica-pm/attachments/20090824/e4ae454e/attachment.html>