2da modifcacion gracias a Leo Gutiérrez.
Código
#!/usr/bin/perl $ruta = <stdin>;
1er codigo:
Código
#!/usr/bin/perl $ruta = <stdin>; existe(ruta); sub existe($ruta){ if (@source = <FILE>) { } else { print "el archivo No Existe" } }
|
|||
|
Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020 |
|
|