[Perl] Funcion hideit()

BigBear · Julio 03, 2011, 09:43:57 PM

Con esta funcion podran esconder o mostraR archivos/directorios
ocultos en windows

Código: perl


#By Doddy H
use Win32::File;

sub hideit {
if ($_[1] eq "show") {
Win32::File::SetAttributes($_[0],NORMAL);
}
elsif ($_[1] eq "hide") {
Win32::File::SetAttributes($_[0],HIDDEN);
}
else {
print "error\n";
}
}

Ejemplo de uso show/hide

Código: perl


hideit("test.pl","show");

[Perl] Funcion hideit()

BigBear

Julio 03, 2011, 09:43:57 PM Ultima modificación: Marzo 14, 2015, 10:01:04 AM por Expermicid