[Perl] File Exist

Iniciado por Niko^, 13 Diciembre 2010, 23:48 PM

0 Miembros y 2 Visitantes están viendo este tema.

Niko^

aca les dejo otro programita que hice ^^

2da modifcacion gracias a Leo Gutiérrez.
Código (perl) [Seleccionar]

#!/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]
#!/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..
Entren al chat de elhacker.net
    
   

@kln13

Niko^

Cita de: kln en 13 Diciembre 2010, 23:54 PM
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 :D

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  ;)
Entren al chat de elhacker.net
    
   

@kln13

Niko^

Cita de: kln en 14 Diciembre 2010, 00:15 AM
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

#5
Código (perl) [Seleccionar]
-e "vocabulario.txt_" or die("No se encontró el archivo. $!");
Código (perl) [Seleccionar]
-e "vocabulario.txt" ? say "Existe" : say "No existe";

Me gusta Perl. :D

@Niko^, tienes que mejorar la indentación.
Código (perl) [Seleccionar]

(( 1 / 0 )) &> /dev/null || {
echo -e "stderrrrrrrrrrrrrrrrrrr";
}

http://leonardogtzr.wordpress.com/
leogutierrezramirez@gmail.com

Niko^

Cita de: Leo Gutiérrez. en 14 Diciembre 2010, 07:21 AM
Código (perl) [Seleccionar]
-e "vocabulario.txt_" or die("No se encontró el archivo. $!");

Me gusta Perl. :D

@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]
#!/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.
Código (perl) [Seleccionar]

(( 1 / 0 )) &> /dev/null || {
echo -e "stderrrrrrrrrrrrrrrrrrr";
}

http://leonardogtzr.wordpress.com/
leogutierrezramirez@gmail.com

~ Yoya ~

Cita de: Leo Gutiérrez. en 14 Diciembre 2010, 07:21 AM
Código (perl) [Seleccionar]
-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
Mi madre me dijo que estoy destinado a ser pobre toda la vida.
Engineering is the art of balancing the benefits and drawbacks of any approach.