HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

Perl [Perl] Funcion getdrive()

Status
Not open for further replies.
D

Doddy

Leech
User
Joined
Apr 1, 2012
Messages
169
Reputation
0
Reaction score
406
Points
63
Credits
0
‎13 Years of Service‎
57%
Con esta funcion podran tener el tipo de disco que se e esta ejecutando actualmente (c:/ o el que sea).

El codigo

Code: 
>
#By Doddy H
use Cwd;

sub getdrive {

$path = getcwd();

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

}
Ejemplo de uso

Code: 
>
print getdrive();
 
Status
Not open for further replies.
Back
Top