This week only. Pastebin PRO Accounts Christmas Special! Don't miss out!Want more features on Pastebin? Sign Up, it's FREE!
Guest

SuperPimms' sub: /r/badcode BBCC LoremIpsum.

By: a guest on Jul 21st, 2012  |  syntax: Perl  |  size: 2.74 KB  |  views: 59  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. my $argv = $ARGV[10-10*1];
  2. my $lorem = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Etiam a tortor leo. Fusce gravida velit quis urna imperdiet a malesuada sem adipiscing. Nulla augue dolor, condimentum at auctor vel, aliquet a urna. Donec posuere dignissim justo, sit amet accumsan orci vehicula vitae. Cras consectetur dictum massa. Vivamus vel congue lorem. Nulla aliquam dapibus eros, eu semper magna sollicitudin id. Aenean non neque lectus, vel viverra augue. Nunc ut nisl metus, id scelerisque nibh. Nullam est enim, posuere nec malesuada eget, porttitor quis justo. Aenean sit amet mauris urna. Nam felis metus, cursus quis ornare non, feugiat id odio. Nam sit amet arcu a mi ultrices rutrum quis id urna. Vivamus congue consequat tortor et tincidunt. Duis adipiscing lectus sodales arcu iaculis pretium.In vitae tortor arcu. Maecenas faucibus eros diam, non fringilla dolor. In hendrerit justo eget metus interdum a auctor purus sagittis. Nullam non mauris ipsum, quis sagittis leo. Cras in ipsum fermentum velit mattis ultricies eget at lorem. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos. Nullam eu nisl quis lectus malesuada adipiscing eu at ipsum. Praesent et ante tellus. Vestibulum eget libero enim. Nam massa nulla, sollicitudin ut hendrerit ac, adipiscing ut risus. Maecenas aliquet luctus purus sed iaculis. Cras consectetur mi nec odio fringilla lobortis. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Fusce sodales molestie neque ac consequat.Etiam ut fringilla nisi. Nulla vel ante vitae turpis feugiat tempus sit amet consequat odio. Donec blandit mauris velit, quis sollicitudin enim. Sed condimentum convallis felis, sagittis vestibulum arcu placerat vitae. Integer nec lacus eget nulla molestie luctus vitae sed sapien. Aenean at purus nec enim semper porttitor. Integer elementum condimentum rutrum. Quisque adipiscing ultricies ante eu faucibus. Suspendisse potenti. Nunc id urna tortor. Suspendisse non enim quis dui fringilla suscipit. Donec imperdiet, mi ut fermentum volutpat, elit lorem laoreet risus, a sodales lacus dolor vitae nisi.";
  3.  
  4. $text = generator($lorem, $argv);
  5. print $text;
  6.  
  7. sub generator
  8. {
  9.         my($txt,$num) = @_;
  10.  
  11.         my $retval = "";
  12.         my $punct = 1;
  13.  
  14.         for (0..$num)
  15.         {
  16.                 my @var = split(" ",$txt);
  17.  
  18.                 for(@var){ $_ =~ s/[[:punct:]]//g; }
  19.  
  20.                 if ($punct == 0)
  21.                 {
  22.                         if (int(rand(10)) == 4) {
  23.                         $retval .= "\L$var[rand($#var)].";
  24.                         $punct = 1;
  25.                         } elsif (int(rand(5)) == 2) {
  26.                         $retval .= "\L$var[rand($#var)],";
  27.                         } else {
  28.                         $retval .= "\L$var[rand($#var)]";
  29.                         }      
  30.                 }
  31.                 else
  32.                 {
  33.                         $retval .= "\u$var[rand($#var)]";
  34.                         $punct = 0;
  35.                 }
  36.                
  37.                 $retval .= " " if $_ != $num;
  38.         }
  39.  
  40.         $retval .= ".\n";
  41.         $retval;
  42. }
clone this paste RAW Paste Data