Using perl Syntax Highlighting
- use Win32::Job;
- cargar_hide("coraje_uno.jpg");
- cargar_hide("holamundo_dos.exe");
- sub cargar_hide { # nombre de la función marcada anteriormente
- my $job = Win32::Job->new;
- $job->spawn( "cmd", qq{cmd /C $_[0]}, { no_window => "true" } )
- ; # cargamos el archivo de forma oculta
- $ok = $job->run(30);
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
¿ Qué tendría que hacer para que la idea funcione ?
