Test Foro de elhacker.net SMF 2.1

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();