[Perl] Funcion getdrive()

[BigBear]

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

Código (perl) [Seleccionar] Expandir

#By Doddy H
use Cwd;


sub getdrive {

$path = getcwd();

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

}


Ejemplo de uso

Código (perl) [Seleccionar] Expandir


print getdrive();