[Perl] Funcion getdrive()

Iniciado por BigBear, Julio 03, 2011, 09:41:09 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario
Julio 03, 2011, 09:41:09 PM Ultima modificación: Marzo 14, 2015, 10:07:45 AM por Expermicid
Con esta funcion podran tener el tipo de disco que se e esta ejecutando
actualmente (c:/ o el que sea)

Código: perl

#By Doddy H
use Cwd;


sub getdrive {

$path = getcwd();

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

}


Ejemplo de uso

Código: perl

print getdrive();

Imprimir
Ir Arriba Páginas1
Acciones del Usuario