Foro - Perl en Español

por **Arianss90** » 2016-09-08 05:25 @267

Hola, estoy intentado abrir un archivo para escribir en él y me gustaría hacer el código para que no pare de preguntar al usuario hasta que el archivo esté abierto y creado correctamente.

En otras ocasiones esta estructura me ha funcionado pero no sé por qué no lo está haciendo en esta ocasión. ¿Cómo podría arreglarlo?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dest, my $fh, my $w=0;
while ($w == 0) {
        print "Please, enter the destination path to locate the Report (do not forget to add the file name and extension):\n";
        $dest=<STDIN>;
        chomp($dest);
        if (open($fh, ">>", $dest)){
                open($fh, ">>", $dest);
                $w=1;
        } 
        else {
                print "Wrong path, please enter the path and the file name again."
        }
 }
        print $fh "HA FUNCIONADO!!!";
        close ($fh);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Muchas gracias de ante mano.

¡Saludos!

my $nombre_archivo_destino;
my $FH;
 
while (not defined $FH) {
 
    print "Please, enter the destination path to locate the Report (do not forget to add the file name and extension):\n";
    $nombre_archivo_destino = <STDIN>;
    chomp $nombre_archivo_destino;
 
    if (-e $nombre_archivo_destino and -w _) {                  # si el archivo existe y se puede escribir en él
        open $FH, ">>", $nombre_archivo_destino;                # lo abrimos en modo añadir
    }
    else {
        print "Wrong path, please enter the path and the file name again.\n";
    }
}
 
print $FH "¡¡¡HA FUNCIONADO!!!\n";
 
close $FH;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tienes más información sobre los test '-X' con perldoc -f -X

El '_' equivale a $nombre_archivo_destino, pero así nos ahorramos volver a preguntar al sistema otra vez, por los permisos del archivo. En el mismo perldoc -f -X te lo explica también.

Lo que también puedes hacer... quitar tu segundo open()

por **Arianss90** » 2016-09-08 10:42 @487

¡Muchas gracias por contestar!

He cambiado mi código como me indicas y ahora no sale nunca del bucle y por lo tanto no crea el archivo, le meta lo que le meta siempre va al else. ¿En que estoy fallando?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dest, my $fh;
while (not defined $fh){
print "Please, enter the destination path to locate the Report (do not forget to add the file name and extension):\n";
        $dest=<STDIN>;
        chomp($dest);
        if (-e $dest and -w _){
                open $fh, ">>", $dest;
        } 
        else {
                print "Wrong path, please enter the path and the file name again.\n\n"
        }
}
 print $fh "¡¡¡HA FUNCIONADO!!!\n";
 close $fh;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡Gracias de nuevo!

por **explorer** » 2016-09-08 16:18 @721

Si está en un bucle infinito, es que el archivo que metes por el teclado no existe (el test -e falla).

Yo he supuesto... que querías escribir en un archivo que ya existía. Pero a lo peor lo entendí mal, y lo que querías hacer es que querías escribir en un nuevo archivo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my $nombre_archivo_destino;
my $FH;
 
while (not defined $FH) {
 
    print "Please, enter the destination path to locate the Report (do not forget to add the file name and extension):\n";
    $nombre_archivo_destino = <STDIN>;
    chomp $nombre_archivo_destino;
 
    open $FH, ">>", $nombre_archivo_destino
        or do {
            print "ERROR al abrir el archivo: $!\n";
            undef $FH;
        };
}
 
print $FH "¡¡¡HA FUNCIONADO!!!\n";
 
close $FH;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En este caso, ejecutamos el open(), pero si falla, sacamos un mensaje, e indefinimos $FH para repetir el bucle, hasta que pueda conseguirlo.

por **Arianss90** » 2016-09-09 04:33 @231

¡Mil gracias de nuevo por responderme!

He cambiado el código como me indicas y ahora si introduzco un directorio incorrecto, pero con formato de directorio sí que funciona y me pide volver a introducir el directorio (Ej. C:\Users\asanz\Desop\Report\Report.txt , Desop en vez de Desktop).

Pero si introduzco simplemente basura (Ej. aoijfepoaijfpoqjie) sale del while y pasa a la siguiente instrucción.
¿Por qué ocurre esto? ¿Alguna forma para solucionarlo?

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Mensajes impresos por pantalla:

Please, enter the destination path to locate the Report (do not forget to add the file name and extension):

C:\Users\asanz\Desop\Report\Report.txt

Wrong path, please enter the path and the file name again.

Please, enter the destination path to locate the Report (do not forget to add the file name and extension):

dasfwehe

Please, enter the file 1 path (do not forget to enter also the file type):Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¡¡¡Muchas gracias!!!

por **explorer** » 2016-09-09 11:51 @535

Si metes basura... depende de cómo sea esa basura

Por ejemplo, 'aoijfepoaijfpoqjie' es completamente válido, como nombre de archivo. El open() intenta abrir/crear un archivo así, y como respeta las reglas del sistema de archivos, lo consigue, y termina.

Pero, si metes cosas como esta: 'djfhkj\jhkjhdkhf\hjdkfhdkshf' no funcionará, por la presencia del cáracter '\'. open() le pedirá al sistema de archivos que localice la carpeta 'djfhkj', y dentro de ella, otra carpeta 'jhkjhdkhf', y finalmente, crear dentro de ella el archivo 'hjdkfhdkshf'. Y como es muy, muy posible, que esa ruta no exista, por eso falla.

Lo importante es saber exactamente que quieres conseguir. Solo sabemos que le pides una ruta/archivo al usuario, y que luego lo quieres abrir en modo agregar, pero lo que no sabemos es si es obligatorio que el archivo exista antes o no.

por **Arianss90** » 2016-09-12 08:37 @400

¡Gracias de nuevo por contestar otra vez!

Finalmente ya lo arreglé. La idea es que el archivo no exista, que se cree en el momento.

A raíz del comentario he pensado en una solución para abrir el archivo en caso de que haya el carácter '\' en la cadena recogida del teclado. ¡Lo dejo aquí por si alguien lo necesita alguna vez!

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while ( not defined $fh ) {
 
    print "\nPlease, enter the destination path to locate the Report (do not forget to add the file name and extension):\n";
    $dest = <STDIN>;
    chomp($dest);
    if ( $dest =~ /\\/ ) {
        open( $fh, ">>", $dest )
            or do {
            print "Wrong path, please enter the path and the file name again.\n\n";
            undef $fh;
            }
    }
    else {
        print "Wrong path structure (\\ not found), please enter the path and the file name again.\n\n";
        undef $fh;
    }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Muchísimas gracias por todo.

Foro - Perl en Español

Bucle de control de errores

Bucle de control de errores

Publicidad

Re: Bucle de control de errores

Re: Bucle de control de errores

Re: Bucle de control de errores

Re: Bucle de control de errores

Re: Bucle de control de errores

Re: Bucle de control de errores

¿Quién está conectado?