[Perl] File Exist

[Niko^]

aca les dejo otro programita que hice ^^

2da modifcacion gracias a Leo Gutiérrez.

Código (perl) [Seleccionar] Expandir


#!/usr/bin/perl

print "Ruta del archivo: ";
$ruta = <stdin>;
open(FILE,"<$ruta") or die("No se encontro el archivo. $ruta");
close(FILE);
print "el archivo existe";



1er codigo:

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl

print "Ruta del archivo: ";
$ruta = <stdin>;
existe(ruta);

sub existe($ruta){

open(FILE,$ruta);
if (@source = <FILE>)
{
print "el archivo existe";
close(FILE);
}
else
{
print "el archivo No Existe"
}
}

[-- KiLiaN --]

Es bastante simple..pero bueno tambien podrias haberle metido un bucle y que te preguntara de nuevo la ruta de otro archivo tras comprobar uno..

[Niko^]

Es bastante simple..pero bueno tambien podrias haberle metido un bucle y que te preguntara de nuevo la ruta de otro archivo tras comprobar uno..

sip, igual recien toco este lenguaje quiero empezar tranquilo

gracias por la sugerencia 

[-- KiLiaN --]

Yo hace tiempo tambien estuve tocando un poco perl..pero por estudios, trabajo, etc tuve que dejarlo pero me gustaba bastante y no es muy complicado 

[Niko^]

Yo hace tiempo tambien estuve tocando un poco perl..pero por estudios, trabajo, etc tuve que dejarlo pero me gustaba bastante y no es muy complicado 

yo lo estoy estudiando por cuenta propia ^^ y la verdad que no es muy complicado tiene una syntax parecida a la de C y eso me favorece bastante ^^

[leogtz]

Código (perl) [Seleccionar] Expandir

-e "vocabulario.txt_" or die("No se encontró el archivo. $!");

Código (perl) [Seleccionar] Expandir

-e "vocabulario.txt" ? say "Existe" : say "No existe";

Me gusta Perl.

@Niko^, tienes que mejorar la indentación.

[Niko^]

Código (perl) [Seleccionar] Expandir

-e "vocabulario.txt_" or die("No se encontró el archivo. $!");

Me gusta Perl.

@Niko^, tienes que mejorar la indentación.

es verdad, aca lo hice devuelta al codigo:
es mucho mas corto y sencillo

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl

print "Ruta del archivo: ";
$ruta = <stdin>;
open(FILE,"<$ruta") or die("No se encontro el archivo. $ruta");
close(FILE);
print "el archivo existe";


[leogtz]

@Niko^

Una cosa es que no se pueda abrir el archivo y otra muy distinta que no se encuentre.

[~ Yoya ~]

Código (perl) [Seleccionar] Expandir

-e "vocabulario.txt_" or die("No se encontró el archivo. $!");

Esa linea hace todo lo que hace tu script xD

Info
Scritp Perl para borrar archivos