half-tempted to make this work by prompting for a username and password...
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my $url = 'http://perlmonks.org/index.pl?';
my @usernames;
my $xml = get("${url}node_id=15851");
my @ret = split(/\n/, $xml);
@ret = grep(/\A\<user/, @ret);
foreach (@ret){
/username="([\w\d\ \$\.\%\@\-]*)"/;
push(@usernames, $1);
}
foreach (@usernames){
s/\s/_/g;
print $_;
get("${url}op=message&message=/msg\%20$_\%20Here's+some+coffee.+Enjoy.
+");
}
If anyone else wants to make it work... be my guest.
John J Reiser
newrisedesigns.com