Perl utiliza -e $filevar
para comprobar la existencia de un fichero cuyo nombre es el guardado en la variable
$filevar
. Si el fichero existe el resultados es verdadero; en otro caso es falso. Por ejemplo:
$name = "index.html"; if (-e $name) { print "Ya existe un fichero denominado $name\n"; } else { print "No existe un fichero denominado $name\n"; }
He aqui otro ejemplo:
if (-e "index.html" && -e "index.cgi") { print "Encontrados.\n"; }
Existen otros operadores.
Por ejemplo, -r $filevar
es cierto si el fichero cuyo nombre se guarda en $filevar
existe y es de lectura.
Análogamente, -w $filevar
comprueba si es de escritura.
print "Donde? "; $filename = <STDIN>; chomp $filename; if (-r $filename && -w $filename) { # El fichero existe y es de lectura y escritura ... }
La tabla 2.1 contiene algunos de los operadores mas importantes.
Estos operadores pueden usarse indistintamente sobre filehandles
o nombres de fichero.
Por ejemplo:
if (-x SOMEFILE) { # SOMEFILE es ejecutable }
Si no se especifica el nombre del fichero,
el operador por defecto es la variable $_
.
Por ejemplo:
foreach (@some_list_of_filenames) { print "$_ es de lectura\n" if -r; # Lo mismo que -r $_ }
Casiano Rodríguez León