Foro - Perl en Español

por **pablov** » 2014-01-29 21:06 @921

Hola, estimados. Primero que todo felicitarlos por esta comunidad, no la conocía porque hasta ahora no he tenido la necesidad de programar en Perl.

Bueno, comencé hoy con la programación y estoy haciéndolo orientado a objeto.

Tengo un problema con comprobar la existencia de un archivo en Perl; sé que es fácil, le pondré un ejemplo.

Estoy probando con un método que antes de inicializar el atributo archivo, confirma que exista. Esta es la prueba:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub archivo{
             my $self=shift; # El primer parámetro de un método es la  clase
 
                #print @_;
                
                if(-e @_){
                print "Existe";
                }else{
                print "No existe";
                }
       $self->{archivo}=shift if (@_);
 
       #Devolvemos el nombre
       return $self->{archivo};
         }
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y lo uso de esta forma

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use clases::Archivo;
$archivo = Archivo->new();
$archivo->archivo("C:\\Users\\ANA\\Documents\\perl\\prueba.log");
print "Mi archivo es". $archivo->archivo."";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema es que me imprime que el archivo no existe, sabiendo yo que sí existe. ¿Cuál es el problema con Perl en Windows?

Saludos y gracias de antemano.

Bienvenido a los foros de Perl en Español, pablov.

Perl no tiene problemas en Windows. El problema está en la forma de hacer la pregunta de si existe o no el archivo.

Tu pones if (-e @_) {.

Resulta que la función -e necesita que le pasemos como argumento el nombre del archivo que queremos que nos diga si existe o no. Es decir, un solo argumento, y resulta que le estás pasando un array, que puede contener una lista de elementos. Y esa forma de trabajar no está documentada. Probamos en la línea de comandos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

> ls test*.tex
test-out.tex  test-pdf.tex  test.tex
> perl -E '@_ = qw(test.tex test-out.tex); say "Sí" if -e @_'
>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Como ves, no sale nada, y eso que sí sabemos que los archivos que hemos puesto en @_ sí existen (los hemos visto con el comando ls).

Entonces, como el archivo lo hemos pasado como argumento al método, debemos sacarlo primero de @_, y luego pasarlo a -e:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub archivo {
    my $self = shift;                  # El primer parámetro de un método es el objeto de la clase
 
    if (@_) {                          # si aún quedan argumentos
        my $archivo = shift;           # extraemos el primero como el nombre del archivo a probar
 
        if ( -e $archivo ) {           # ¿existe?
            print "Existe";
        }
        else {
            print "No existe";
        }
        $self->{archivo} = $archivo;   # guardamos el nombre del último archivo que hemos buscado
    }
 
    return $self->{archivo};               # devolvemos el nombre del último archivo encontrado
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **pablov** » 2014-01-30 08:45 @406

Estimado, entiendo la solución, pero tengo una consulta, resulta que me funcionó si es que le coloco "@_" al parámetro.

Coloco mi ejemplo de solución, me gustaría saber en qué podría afectar de manera negativa si no opto por la solución de ud.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
sub archivo {
    my $self = shift;       # El primer parámetro de un método es la  clase
 
    #print @_;
    if ("@_") {
        if ( -e "@_" ) {
            $self->{archivo} = shift if ("@_");
        }
        else {
            print "Error!!! el archivo @_ no existe\n";
            exit;
        }
    }
 
    #Devolvemos el nombre
    return $self->{archivo};
}
 
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Actualización:

Probé tu solución y no me guarda la variable, me funciona como lo hice yo, no comprendo el porqué.

por **explorer** » 2014-01-30 11:28 @519

Te ha funcionado porque, al poner @_ entre comillas dobles, transformas el array en un escalar que contiene todos los elementos de ese array, separados por el delimitador indicado por la variable especial $" (por defecto, un espacio en blanco).

Entonces, si el array solo contiene un nombre de archivo (argumento que le pasas al método), resulta que -e ya puede realizar bien la comprobación de la existencia del archivo, ya que le estamos pasando el nombre de ese archivo (está entre comillas dobles, pero no le importa a -e).

Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

> ls test*.tex
test-out.tex  test-pdf.tex  test.tex
> perl -E '@_ = qw(test.tex test-out.tex); say "Sí" if -e "@_"'                                                      
> perl -E '@_ = qw(test.tex); say "Sí" if -e "@_"'
Sí
>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ves que -e "@_" no funciona si @_ contiene más de elemento. Si contiene un solo elemento, sí.

Las consecuencias no se ven claras ahora, pero sí te dará problemas más tarde si quieres ampliar el método con más argumentos. El código no queda legible (no es muy claro que a -e se le pase un argumento).

He modificado mi código anterior para guarde el nombre del archivo en todas las ocasiones en que llamamos al método con un argumento.

por **pablov** » 2014-01-30 23:24 @017

Estimado, ahora me funciona todo ok; he seguido tu consejo; y gracias por la orientación.

Pego acá los cambios.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
 
sub archivo {
    my $self =shift;
    if (@_) {   # si aún quedan argumentos
        my $archivo =shift;   
        if ( -e $archivo ) {    # ¿existe?
 
            $self->{archivo} = $archivo;
        }
        else {
            print "Error !!!! No existe el fichero $archivo";
            exit;
        }
 
    }
 
    return $self->{archivo};
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Comprobar si existe un archivo en Windows

Comprobar si existe un archivo en Windows

Publicidad

Re: Comprobar si existe un archivo en Windows

Re: Comprobar si existe un archivo en Windows

Re: Comprobar si existe un archivo en Windows

Re: Comprobar si existe un archivo en Windows

¿Quién está conectado?