ales.pl

#!/usr/bin/perl
# Komut: ./ales.pl

$interval = 300;

while (1) {
	check();
	sleep($interval);
}

sub check {
	`wget "http://sonuc.osym.gov.tr" --quiet --no-check-certificate -O SONUC`;

	open $sonuc, "SONUC" or die "Valla açamadım: $!";

	while (<$sonuc>) {
		$line = $_;
		if ($line =~ /<a href="Sorgu.aspx\?SonucID.*(ALES)/) {
			print "ALES AÇIKLANDI. GİT BAK HADE.\n";
			exit;
		}
	}
	print "Hala açıklamamış. $interval saniye sonra bir daha gel!\n";
}