<br><br><div class="gmail_quote">2009/8/24 Horacio Hidalgo <span dir="ltr"><<a href="mailto:horacio.hidalgo@gmail.com">horacio.hidalgo@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
buenas,<br><br>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"?<br>
<br>Saludos,<br>Horacio<br><br>use strict;<br>use warnings;<br>use feature ':5.10';<br>my $var = "vivo \"en un bonito barrio\" en costa rica";<br>say($var);<br>my @splitted = grep{ defined $_} split(m/\s+(\".*\")\s+|\s+/,$var);<br>
#my @splitted = split(m/\s+/,$var);<br>print $#splitted ."\n";<br>for(@splitted)<br>{<br> print;<br> print "\n";<br>}<br>print "\n";<br>
<br>__<br>
<a href="mailto:Costarica-pm@pm.org">Costarica-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/costarica-pm" target="_blank">http://mail.pm.org/mailman/listinfo/costarica-pm</a><br>
<br></blockquote></div><br><div>Es muy dificile de hacer lo que quieres con un "split" - he experimentado con el novo "branch reset pattern" ?| pero sin suceso.</div><div><br></div><div>Puedes hacer solamente:</div>
<div><br></div><div>@fields = $var =~ /"[^"]*"|\S+/g;</div><div><br></div><div><br></div><div><br></div>