Foro - Perl en Español

por **AnKiSeTh** » 2007-06-03 14:09 @631

¡Buenas!
Tanto tiempo, lamento no responder antes, pero el resto de los ramos también me tenían un tanto atareado.

¡¡Estoy a un paso de resolver el problema!! ^^
Ya no tengo problemas con las comas o ';' dentro de las comillas, lo logré con la siguiente expresión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

push(@todo,$+)while$_=~(m/(".*?")|(%.*?%)|[,;](.*?)[,;]|[,;](.*?)|(.*?)[,;]|(.*)/g);Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Bueno, eso resulta bastante bien (¡larga vida a los cortocircuitos!).

Ahora, el único problema que me queda es el siguiente: en el caso de que la línea de entrada sea algo como ';,;4;2' debería imprimir algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

<td></td>
<td></td>
<td></td>
<td>4</td>
<td>2</td>

El problema es que solo me imprime el espacio vacío una sola vez, y ahí no entiendo que falla, ya que la regex para esos casos es no voraz, debería tomar todos los espacios vacíos :S

Bueno, ojalá me puedan ayudar ^^ (no necesariamente la solución, ¡pero que alguien me explique porque no funciona, estaría muy agradecido!)

¡Disculpen las molestias, muchas gracias!

#!/usr/bin/perl -w

die"Y el argumento?"unless$ARGV[0];
open(ENTRADA,"<$ARGV[0]")ordie"No puedo abrir el archivo $ARGV[0]";
$ARGV[0]=~s/(\.csv)$/\.html/or$ARGV[0].=".html";
open(SALIDA,">$ARGV[0]");
printf SALIDA "<html>\n<head>\n</head>\n<body>\n<table border=1>\n";
while(<ENTRADA>){
chomp;

#Expresion regular para "desarmar" la linea
push(@todo,$+)while$_=~(m/(".*?")[,;]?|(%.*?%)[,;]?|(.*?)[,;]|(.*)/gx);

#Caso especial de que no hayan datos despues del ultimo separador
push(@todo,"")if(m/[,;]$/);
print SALIDA "\t<tr>\n";
while($#todo>0){
$q=shift(@todo);

#Insercion de TAGS
($q=~s/^"/<i>/ and $q=~s/"$/<\/i>/)or($q=~s/^%/<b>/and$q=~s/%$/<\/b>/);
print SALIDA "\t\t<td>$q</td>\n";
}
#Eliminamos ultimo espacio vacio que queda en el arreglo ($todo[0])
shift(@todo);
print SALIDA "\t</tr>\n";
}
print SALIDA "</table>\n</body>\n</html>\n";
close(ENTRADA);close(SALIDA);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

así transforma el archivo csv en un html, la limitación es que no deben haber comillas dentro de otras comillas, la que la regex no trabaja ese caso.

Saludos!!

Foro - Perl en Español

Problema CSV y expresiones regulares

Publicidad

¿Quién está conectado?