Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: BigBear en 12 Octubre 2011, 16:44 PM

Título: [Perl] Funcion getdrive()
Publicado por: BigBear en 12 Octubre 2011, 16:44 PM
Con esta funcion podran tener el tipo de disco que se e esta ejecutando actualmente (c:/ o el que sea)


Código (perl) [Seleccionar]
#By Doddy H
use Cwd;


sub getdrive {

$path = getcwd();

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

}


Ejemplo de uso

Código (perl) [Seleccionar]

print getdrive();