#!/usr/bin/perl -w my @pags=qw(bar_gobernador_stats.png det_bochil.htm det_cacahoatan.htm det_chamula.htm det_chiapa_de_corzo.htm det_cintalapa.htm det_comitan_de_dominguez.htm det_copainala.htm det_huixtla.htm det_las_margaritas.htm det_motozintla.htm det_ocosingo.htm det_palenque.htm det_pichucalco.htm det_pueblo_nuevo_solistahuacan.htm det_san_cristobal_de_las_casas.htm det_tapachula_norte.htm det_tapachula_sur.htm det_tenejapa.htm det_tonala.htm det_tuxtla_gutierrez_oriente.htm det_tuxtla_gutierrez_poniente.htm det_venustiano_carranza.htm det_villaflores.htm det_yajalon.htm ); for my $i (10..200){ mkdir("rem$i"); eval { local $SIG{ALRM} = sub{die "alarm\n"}; alarm 5*60; foreach(@pags){ system("cd rem$i; wget http://www.prep-chiapas.com.mx/current/gobernador/$_"); } # system("wget -O rem$i.txt http://www.prep-chiapas.com.mx/current/gobernador/"); # system("mkdir rem$i; cd rem$i; wget -r -nH --cut-dirs=2 http://www.prep-chiapas.com.mx/current/gobernador/"); alarm 0; }; if($@){ print "error: $@"; }else{ sleep 5*60; } }