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:
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.003 segundos, usando GeSHi 1.0.8.4
y lo uso de esta forma
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.