Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 11 lines (9 sloc) 176 Bytes
#!/usr/bin/perl
# wtc - get random retarded commit msgs
use strict;
use LWP::Simple;
for(get('http://whatthecommit.com/')) {
if(m;<p>(.+)\n</p>;) {
print $1,"\n";
}
}