#!/usr/bin/perl use strict; use CGI qw/:standard/; use LWP::UserAgent; use utf8; use List::Util qw(shuffle); # 1. http://en.wikipedia.org/wiki/Special:Random my $ua = LWP::UserAgent->new(requests_redirectable => ["GET"]); $ua->timeout(5); my $q = new CGI; my $things = [shuffle(@{getThingsFromWikipedia()})]; my $errors = []; if (scalar @$things < 25) { push (@$errors, "Hmmm, had some trouble getting those 25 things"); } my $new = $q->url(); my $errorsBox = @$errors ? "
".join("
", @$errors)."
" : ""; # this is a fucking mess! rewrite this using real templates, mother fucker! my $ht =<25 Random Things About Me

Rules: Once you've been tagged, you are supposed to write a note with 25 random things, facts, or goals about you. At the end, choose 25 people to be tagged. You have to tag the person who tagged you. If I tagged you, it's because I want to know more about you.

EOH ; my $htthings = "
    "; foreach my $thing (@$things) { $htthings .= "
  1. $thing
    2. \n"; } $htthings .= "
"; print "Content-type: text/html\n\n"; # yuck! print < 25 things about me
$ht $htthings
$errorsBox

This page randomly generates completely fake lists of 25 facts, all pulled from your friendly wikipedia.

Click this link to generate a few to get the gist.

END_OF_TEMPLATE2 ; #----- sub getThingsFromWikipedia { my $things = []; my $tries = 0; while (1) { my $page = randomWikipediaPage(); $tries++; unless ($page) { last if $tries > 7; next; } my $facts = factsFromPage($page); if (scalar @$facts > 0) { push @$things, @$facts; last if scalar @$things >= 25; } } # munge the things my $finalThings = []; while (scalar @$finalThings < 25) { my $aFact = shift @$things; my $r = int(rand(4)); if ($r == 1) { $aFact =~ s/ is / was /g; $aFact = "I was ".$aFact; $aFact =~ s/ (his|her|its) / my /g; $aFact =~ s/ (he|she|it) / I /g; } elsif ($r == 2) { $aFact =~ s/ is / am /g; $aFact = "I have never been ".$aFact; $aFact =~ s/ (his|her|its) / my /g; $aFact =~ s/ has / had /g; } elsif ($r == 3) { $aFact = "Someone in my family was ".$aFact; $aFact =~ s/ is / was /g; } elsif ($r == 0) { $aFact = "One of my fave things in the world is ".$aFact; } else { $aFact = "As a child, I was ".$aFact; } if (length($aFact) > 200) { $aFact = substr($aFact, 0, 200)."..."; } push @$finalThings, $aFact; } return $finalThings; } sub randomWikipediaPage { my $response = $ua->get("http://en.wikipedia.org/wiki/Special:Random"); if ($response->is_success()) { return $response->content; } return undef; } sub factsFromPage { my ($page) = @_; # strip off the header goop $page =~ s/[\t\r\n]/ /gm; $page =~ s/.*
//gm; $page =~ s/
.*//gm; # strip out paragraphs my $facts = []; my $fact; while ($page =~ / is (.*?)\.[< ]/gm) { next unless $1; my $m = $1; next if ($m =~ />stub]+(>|$)//mg; push @$facts, $m; } return $facts; }