[Perl] Funcion getdrive()
Publicado: 02 Oct 2015, 03:47
Con esta funcion podran tener el tipo de disco que se e esta ejecutando actualmente (c:/ o el que sea).
El codigo
El codigo
#By Doddy H
use Cwd;
sub getdrive {
$path = getcwd();
if ($path=~/(.*):\/\//ig or $path=~/(.*):\//) {
return $1.":/";
}
}Código: Seleccionar todo
print getdrive();