Re: Como hago esto en perl? (fwd)

[Gunnar Wolf <gwolf en campus iztacala unam mx>]

> Necesito procesar algunos documentos de texto (iso-8859-1)
> con perl, pero ocasionalmente algunas palabras que comien-
> zan en un renglón terminan el siguiente (como en estas lí-
> neas). ¿Cómo le hago para quitar el guión y volver a te-
> ner la palabra completa?

A ver... Va al hilo, sin probar. Asumo que quieres procesar palabra por
palabra y que el archivo completo cabe en memoria. Modificarlo para que
vaya linea por linea debe ser trivial.

open (IN,'file.txt');
@in = <IN>;
close (IN);

while (@in) {
	$line = shift(@in);
	chomp ($line);
	if (substr($line, (length($line) -1) ) eq '-') {
		chop($line);
		$line.= shift(@in);
	}
	@palabras = split(/\s+/,$line);
	foreach $palabra (@palabras) {
		&procesa($palabra);
	}
}

Suerte!

-------------------------------------------------------------------
           Gunnar Wolf    gwolf en campus iztacala unam mx
     Universidad Nacional Autónoma de México, Campus Iztacala
   Jefatura de Sección de Desarrollo y Admon. de Sistemas en Red
        Area de Seguridad en Computo - DCI - DGSCA - UNAM
-------------------------------------------------------------------
  Beginner thinks 1Kb == 1000 bytes.   Master knows 1Km == 1024m


-- 
Para desuscribirse, mande correo a: ayuda-unsubscribe en linux org mx
Para comandos adicionales, envíelo a: ayuda-help en linux org mx