[Perl] Funcion hideit

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#By pr0xXx0r 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

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