[caracas-pm] abrir archivo

[Alexis Arnal]

Saludos, lo que se me ocurre es que no le mandes el die, ya que este
aborta la operación.

Por el contrario utiliza un condicional y para saber cual es el archivo
podemos utilizar un contador.

$i=0;
while (</opt/braz/$year*.T>) {
unless open( R, </opt/braz/$year*.T> ){
		print "Error opening: $i Trackfile $year*.T ;
		}
		................
		................
                trabaja sobre cada linea del archivo;
		$i++;
	}

Creo que es un poco arcaico, espero que te sirva. 
Nota: Si lo que dije anteriormente no es factible por favor me lo dicen
ya que _SOY un NOVATO Perl_. 

Atte. Ing.Alexis Arnal

El mar, 19-10-2004 a las 08:57, Hans Olzem escribió:
> Hola Mongers,
> 
> estoy usando lo siguiente para trabajar sobre todos los archivos en un 
> directorio.
> 
> while (</opt/braz/$year*.T>) {
>     open( R, </opt/braz/$year*.T> ) || die "Error opening: Trackfile";
>                          trabaja sobre cada linea del archivo;
>                                   }
> 
> 
> 
> Cuando uno de estos archivos presenta una falla, el programa aborta con 
> un error.
> 
> Me gustaria que el programa imprimaria una lista de los archivos sobre 
> el cual esta
> trabajando actualmente para saber cual archivo contiene informacion errada.
> 
> Alguien tiene una idea?
> 
> Cu
> 
> Hans
>  
> 
> _______________________________________________
> caracas-pm mailing list
> caracas-pm at mail.pm.org
> http://www.pm.org/mailman/listinfo/caracas-pm
>