#!/usr/bin/perl $OUTPUT = 'bijin.html'; $TMPFILE = 'tmp'; $MAX_RETRY = 10; open(OUT, ">$OUTPUT"); print OUT <<_EOF_; 美人時計

美人時計

_EOF_ $retry = 0; for $h(0..23){ $h="0$h" if $h<10; for $m(0..59){ $retry++; if($retry>$MAX_RETRY+1){exit 1;} sleep(5); $m = '0'.($m+0) if $m<10; my @prof = (); print `wget http://www.bijint.com/jp/clocks/view/$h$m -O $TMPFILE`; open(IN,$TMPFILE) or redo; foreach (){ chomp; $_ =~ s/<[^a].*?>//g; push(@prof,$_) if $_; last if $_ =~ / _EOF_ close(IN); unlink($TMPFILE); while(not(-f "$h$m.jpg")){ $retry++; if($retry>$MAX_RETRY+2){exit 1;} sleep(5); print `wget http://www.bijint.com/jp/img/photo/$h$m.jpg -nc`; } $retry = 0; } } print OUT "

TIME	IMAGE	NAME	BIRTHDAY	HOME	BLD	HEIGHT	3-SIZE	OCC.	FAVORITE WEBSITE
",@prof); print OUT <<_EOF_;
$h$m		$elem

"; close(OUT); exit 0;