mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-18 09:59:37 +01:00
14 lines
274 B
Perl
14 lines
274 B
Perl
|
#!/usr/bin/perl -w -I /home/msmud/lib/lib/perl5/site_perl/5.10.0/
|
||
|
#
|
||
|
use strict;
|
||
|
use LWP::Simple;
|
||
|
|
||
|
$_ = get("http://www.randominsults.net/");
|
||
|
if (/<strong><i>(.*?)<\/i><\/strong>/) {
|
||
|
print @ARGV,': ' if @ARGV;
|
||
|
print $1;
|
||
|
}
|
||
|
else {
|
||
|
print "yo momma!";
|
||
|
}
|