Foro - Perl en Español

por **mariomb19** » 2012-05-04 11:23 @516

Buenas tardes, un cordial saludo. Tengo una duda: no encuentro la función que me permita abrir un directorio de archivos para poder manejarlos globalmente. Actualmente lo manejo uno por uno así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( MIFICH, "/home/rocco/dir2/fi_sir_20120301_20120308.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";
 
my $archivo = "fi_sir_";
 
if ( $archivo =~ m/fi_sir_/ ) {
 
    while (<MIFICH>) {
 
        $cadena = "$_";
 
        @cadena = split( /\|\s*/,, $cadena );
        print "\n";
        print $cadena[1];
    }
 
}
else {
 
    print "enviar correo";
}
 
close(MIFICH);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿Qué función me permite abrir el directorio y compararlos?

Gracias.

Quiero una función como la de passthru en PHP o función equivalente en Perl.

Debes usar opendir(), readdir() y closedir(). Más información en perldoc -f opendir, perldoc -f readdir, perldoc -f closedir.

Una función que ejecute código externo, puedes hacerlo con exec(), system() y qx(), dependiendo de si no quieres que regrese el control al programa que llama, o sí, o si quieres obtener además el resultado de la ejecución.

Más información en perldoc -f exec, perldoc -f system, perldoc -f qx, y perldoc perlop.

por **mariomb19** » 2012-05-04 13:44 @614

Muchas gracias, de verdad, pues no conozco Perl y es de gran ayuda tus conocimientos.

por **mariomb19** » 2012-05-04 14:23 @641

Amigo: pero tengo otro problema. En mi directorio tengo dos tipos de archivos:

el primero fi_sir_20100708_20100715.txt en cual varía por fecha, y son muchos.

Y otro sapfi_rechazo_09082010_HCM_1420.txt.

Ya los veo todos mediante el dir, pero ¿Con qué función los separo ya que cada archivo tiene que ir a una base de datos diferente?

por **explorer** » 2012-05-04 14:30 @645

También puedes usar glob():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@archivos_fi=glob("fi_sir_*.txt");
my@archivos_sapfi=glob("sapfi_rechazo_*.txt");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **mariomb19** » 2012-05-07 09:19 @430

Buenas, amigo. He intentado varias maneras, pero nada. Tengo una gran cantidad de archivos que quiero validar primero separándolos, por nombre:

fi_sir_*.txt, y el otro
sapfi_rechazo_*.txt

La duda: ¿cómo logro abrir y separar los dos archivos, para validarlos todos y poder cargar cada variable a base de datos?

Con la función glob() la abro pero no logro validar cada campo de los archivos.

por **explorer** » 2012-05-07 09:25 @434

Si nos enseñas el código que tienes, te podemos decir dónde está el problema...

Por cada archivo, lo puedes abrir, leer por líneas, y separar los campos con split().

por **mariomb19** » 2012-05-07 09:45 @448

Disculpa. Aquí está:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
$dirname = "/home/rocco/dir2/";
 
opendir( DIR, $dirname ) || die "Error in opening dir $dirname\n";
 
while ( ( $filename = readdir(DIR) ) ) {
    $fisir  = "fi_sir_.*txt";
    @fi_sir = glob("$fisir");
    if ( $filename = "$fisir" ) {
        print "@fi_sir\n";
    }
    else {
        print "no hay";
    }
 
}
 
closedir(DIR);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Quiero que me habrá solo los archivos fi_sir_*.txt.

por **explorer** » 2012-05-07 10:14 @468

Una de las posibles formas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
 
while (my $archivo = glob "/home/rocco/dir2/fi_sir_*.txt") {
    open my $FH, '<', $archivo or die "ERROR: No se pudo abrir [$archivo]: $!\n";
 
    while (my $linea = readline $FH) {
        my @cadena = split /\|\s*/, $linea;
        print $cadena[1];
    }
 
    close $FH;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **mariomb19** » 2012-05-07 10:32 @481

Muchas gracias.

Foro - Perl en Español

Función que me permita abrir un directorio

Función que me permita abrir un directorio

Publicidad

Re: Función que me permita abrir un directorio

Re: Función que me permita abrir un directorio

Re: Función que me permita abrir un directorio

Re: Función que me permita abrir un directorio

Re: Función que me permita abrir un directorio

Re: Función que me permita abrir un directorio

Re: Función que me permita abrir un directorio

Re: Función que me permita abrir un directorio

Re: Función que me permita abrir un directorio

¿Quién está conectado?