Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: Niko^ en 13 Diciembre 2010, 23:48 pm


Título: [Perl] File Exist
Publicado por: Niko^ en 13 Diciembre 2010, 23:48 pm
aca les dejo otro programita que hice ^^

2da modifcacion gracias a Leo Gutiérrez. (http://foro.elhacker.net/profiles/rockox-u260086.html)
Código
  1. #!/usr/bin/perl
  2.  
  3. print "Ruta del archivo: ";
  4. $ruta = <stdin>;
  5. open(FILE,"<$ruta") or die("No se encontro el archivo. $ruta");
  6. close(FILE);
  7. print "el archivo existe";	
  8.  


1er codigo:
Código
  1. #!/usr/bin/perl
  2.  
  3. print "Ruta del archivo: ";
  4. $ruta = <stdin>;
  5. existe(ruta);
  6.  
  7. sub existe($ruta){
  8.  
  9. open(FILE,$ruta);
  10. if (@source = <FILE>)
  11. {
  12. print "el archivo existe";	
  13. close(FILE);
  14. }
  15. else
  16. {
  17. print "el archivo No Existe"
  18. }
  19. }

Título: Re: [Perl] File Exist
Publicado por: -- KiLiaN -- 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..

Título: Re: [Perl] File Exist
Publicado por: Niko^ en 13 Diciembre 2010, 23:57 pm
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  ::)

Título: Re: [Perl] File Exist
Publicado por: -- KiLiaN -- 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  ;)

Título: Re: [Perl] File Exist
Publicado por: Niko^ en 14 Diciembre 2010, 00:22 am
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 ^^

Título: Re: [Perl] File Exist
Publicado por: leogtz en 14 Diciembre 2010, 07:21 am
Código
  1. -e "vocabulario.txt_" or die("No se encontró el archivo. $!");
Código
  1. -e "vocabulario.txt" ? say "Existe" : say "No existe";

Me gusta Perl. :D

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

Título: Re: [Perl] File Exist
Publicado por: Niko^ en 14 Diciembre 2010, 17:28 pm
Cita de: Leo Gutiérrez. en 14 Diciembre 2010, 07:21 am
Código
  1. -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
  1. #!/usr/bin/perl
  2.  
  3. print "Ruta del archivo: ";
  4. $ruta = <stdin>;
  5. open(FILE,"<$ruta") or die("No se encontro el archivo. $ruta");
  6. close(FILE);
  7. print "el archivo existe";	
  8.  

Título: Re: [Perl] File Exist
Publicado por: leogtz en 15 Diciembre 2010, 07:16 am
@Niko^

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

Título: Re: [Perl] File Exist
Publicado por: ~ Yoya ~ en 16 Diciembre 2010, 15:32 pm
Cita de: Leo Gutiérrez. en 14 Diciembre 2010, 07:21 am
Código
  1. -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)


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines