Re: Random Bumper Sticker Generator

[ailie]

Likewise, I have a silly script that creates a Hunter S. Thompson-like insult.

"That devious knee-crawling bastard!"

#!/usr/bin/perl -w
#
# A perl script that generates a Hunter S. Thompson-like invective
#
  use strict;
  my @LIST1;
  my @PRON;
  my @LIST2;
  my @NOUN;

  @LIST1  = ("vicious",
           "rancid",
           "savage",
           "fiendish",
           "filthy",
           "rotten",
           "demented",
           "treacherous",
           "heinous",
           "scurvy",
           "devious",
           "grisly",
           "hamwit",
           "filthy",
           "foetid",
           "cheapjack",
           "hellish"
           );

  @PRON = ("You",
           "That");
           
  @LIST2 = ("festering",
           "stinking",
           "crazed",
           "deranged",
           "soul-ripping",
           "drooling",
           "rabbit-punching",
           "knee-crawling",
           "thieving");

  @NOUN = ("bastard",
           "swine",
           "pig",
           "pile of albino warts");


  print "$PRON[rand @PRON] $LIST1[rand @LIST1] $LIST2[rand @LIST2] $NO
+UN[rand @NOUN]!\n";