Topic: Lifelong Programmer Looking For Work (See what I can do) - page 2. (Read 2659 times)

#!/usr/bin/perl
use LWP::UserAgent;
use DBI;

open(my $fh, '>>', 'errorlog') or die ("Could not open file 'errorlog' $!");
open(my $logs, '>>', 'logs') or die ("Could not open file 'logs' $!");
my $db = DBI-> connect("dbi:SQLite:/usersdb") || die ("Can't open database");
my $URL = "";
my @html; #The HTML will be saved here
my $reply = "";
##Start

my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
my $res = $ua->get("https://bitcointalk.org/index.php");
($today) = $res->decoded_content =~ /(\w+ \d{1,2}, \d{4},) [0-9][0-9]:[0-9][0-9]:[0-9][0-9] (?:AM|PM)<\/span>/s;


my $ref = $db->selectall_arrayref( "SELECT bttid FROM accounts WHERE bttid <> ''" ); #return an array reference to an array of all the user ids to watch.
my @ress = @$ref; #redundant but I like it for readability.
 foreach( @ress ) {
  foreach $i (0..$#$_) { #Loops through the current array, in this case just the ID.
   print $logs "$_->[$i] is the current ID.\n";
   &loadHTML($_->[$i]);
   &parseHTML();
   `sleep 1`;
 }
}
print $reply;
close $fh;
close $logs;
exit(0); ##Done

sub parseHTML() {
 my (@quoted, @content, @date, @name, @post);
 @content = @date = @name = @post = ('','','','','');
 my $s = 32; #This variable is the line to start at that contains the first comment info.

 ($user) = ($html[4] =~ /