Underc0de

Con esta funcion podran tener el tipo de disco que se e esta ejecutando
actualmente (c:/ o el que sea)


#By Doddy H
use Cwd;


sub getdrive {

$path = getcwd();

if ($path=~/(.*):\/\//ig or $path=~/(.*):\//) {
return $1.":/";
}

}


Ejemplo de uso


print getdrive();