elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Funcion cmd()
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Funcion cmd()  (Leído 1,836 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Funcion cmd()
« en: 13 Octubre 2011, 17:12 pm »

Hola a todos

Acabo de hacer esta funcion cmd() para poder ejecutar comandos
de forma comoda

Código
  1.  
  2. #By Doddy H
  3.  
  4. use Win32::Job;
  5.  
  6. sub cmd {
  7.  
  8. my $job = Win32::Job->new;
  9. $job->spawn("cmd",qq{cmd /C $_[0]},{
  10. no_window => "true",
  11. stdout => "logx.txt",
  12. stderr => "logx.txt"
  13. }
  14. );
  15. $ok = $job->run("30");
  16.  
  17. open (F,"logx.txt");
  18. @words = <F>;
  19.  
  20. unlink("logx.txt");
  21.  
  22. return @words;
  23.  
  24. }
  25.  
  26.  

Ejemplo de uso


Código
  1. @re = cmd("ver");
  2. print @re;
  3.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Funcion Ip Publica [Perl]
Scripting
isseu 2 3,162 Último mensaje 8 Mayo 2010, 00:17 am
por leogtz
[Perl] Funcion conectar()
Scripting
BigBear 0 1,374 Último mensaje 13 Octubre 2011, 17:12 pm
por BigBear
[Perl] Funcion crazymouse()
Scripting
BigBear 0 1,319 Último mensaje 13 Octubre 2011, 17:13 pm
por BigBear
[Perl] Funcion download()
Scripting
BigBear 0 1,453 Último mensaje 13 Octubre 2011, 17:14 pm
por BigBear
[Perl] Funcion cambiar_fondo()
Scripting
BigBear 0 1,352 Último mensaje 13 Octubre 2011, 17:15 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines