User:Jmax-/perlalg

use warnings;
use strict;
use POSIX qw(floor);
my $res = search('talbot', 'Philippe Adjutor Talbot');
print "Found on $res\n";
sub search {
my ($search_string, $page) = @_;
my @revisions = get_revs($page); # revision data
my $total_revisions = @revisions; # count
my $revisions_left = $total_revisions - 1; # revisions left to check
my $revision_number_to_check = floor($revisions_left / 2);
while ($revisions_left > 1) {
my $revision_to_check = $revisions->[$revision_number_to_check]; # revision datum
$revisions_left = floor($revisions_left / 2);
if (check_page($revision_to_check, $search_string)) {
$revision_number_to_check -= floor($revisions_left / 2);
} else {
$revision_number_to_check += floor($revisions_left / 2);
}
}
my $revision_to_check = $revisions->[$revision_number_to_check]; # revision datum
if (check_page($revision_to_check, $search_string)) {
return $revision_number_to_check;
} else {
return $revision_number_to_check + 1;
}
}
sub check_page { # TODO
# uses query.php to see if $page contains $search_string
# returns 1 if it does, 0 otherwise.
}
sub get_rev { # TODO
# returns revisions for a specific page as a list of hashrefs.
}