aca les dejo otro programita que hice ^^
2da modifcacion gracias a Leo Gutiérrez. (http://foro.elhacker.net/profiles/rockox-u260086.html)
#!/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:
#!/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"
}
}
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..
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 ::)
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 ;)
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 ^^
-e "vocabulario.txt_" or die("No se encontró el archivo. $!");
-e "vocabulario.txt" ? say "Existe" : say "No existe";
Me gusta Perl. :D
@Niko^, tienes que mejorar la indentación.
Cita de: Leo Gutiérrez. en 14 Diciembre 2010, 07:21 AM
-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
#!/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";
@Niko^
Una cosa es que no se pueda abrir el archivo y otra muy distinta que no se encuentre.
Cita de: Leo Gutiérrez. en 14 Diciembre 2010, 07:21 AM
-e "vocabulario.txt_" or die("No se encontró el archivo. $!");
Esa linea hace todo lo que hace tu script xD
Info (http://perldoc.perl.org/functions/-X.html)
Scritp Perl para borrar archivos (http://foro.elhacker.net/scripting/scritp_perl_para_borrar_archivos-t302265.0.html;msg1499303#msg1499303)