Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
test.pl:
Using perl Syntax Highlighting
- #use LWP::UserAgent;
- use Parallel::ForkManager;
- my $forker = Parallel::ForkManager->new(5);
- foreach my $child ( 1 .. 5 ) {
- $forker->start and next;
- for (my $i = 0; $i < 1; $i++) {
- `perl down.pl`;
- #print "child numero ",$child," con respuesta ",$response->code," ", $response->message,"\n";
- }
- $forker->finish;
- }
- $forker->wait_all_children;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
down.pl:
Using perl Syntax Highlighting
- use LWP::UserAgent;
- my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
- my $response = $ua->get("http://pagina.com");
- open(ARCHIVO,">>./respuestas.txt");
- #open(ARCHIVO,">>./$child.respuestas.txt");
- print ARCHIVO $response->code,' ', $response->message,"\n";
- close(ARCHIVO);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¿Cómo podría ejecutar está línea?
Using text Syntax Highlighting
linea 14 print "child numero ",$child," con respuesta ",$response->code," ", $response->message,"\n";
¿Y esta?
Using text Syntax Highlighting
linea 7 open(ARCHIVO,">>./$child.respuestas.txt");
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Es decir, pasar las variables de un script a otro.
He estado leyendo sobre require, crear un módulo, do()... pero cuanto más leo, más me estoy liando a la hora de aplicarlo.
¿Podéis echarme una mano?