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