code:
#!/usr/bin/perl
use strict;
my ($line, $i);
system ("/usr/bin/curl -s \"http\:\/\/www.cascadeclimbers.com/cgi-bin/ultimatebb.cgi?ubb=get_daily\" > temp.txt");
open (TEMP, "<temp.txt");
my (@page) = <TEMP>;
close (TEMP);
foreach $line (@page) {
if ($line =~ m/<a href.+>(.*)<\/a> by ([A-Za-z0-9\. ]+) [\ \;]*\(post \# ([0-9]+)\)/ ) {
if ($3 % 25 == 0) { print "topic $1, last by $2, number is $3\n" }
$i++;
}
} [/code]