Help for this page

Select Code to Download


  1. or download this
    select *I=*STDERR;$|++;select STDOUT;$_=join('',<DATA>);
s#\[([^\]]*\?)\]#print I"$1 ";chomp($i=<DATA>);$i#ge;
s#\[([^\]]*)\]#@f=split(/\|/,$1);$f[rand@f]#ge;print
  2. or download this
    print map{s/\?$/? /?print(STDERR)&&(<>=~/.*/g)[0]:split('\|')&&$_[rand
+@_]}
map{split/\[(.+?)\]/}<>
  3. or download this
    #!/usr/local/bin/perl

print map{s/\?$/? /?print(STDERR)&&(<>=~/.*/g)[0]:split('\|')&&$_[rand
+@_]}
map{split/\[(.+?)\]/}<>
  4. or download this
    Hello [world|planet|dude|there], [Name?]!
  5. or download this
    print map{if(s/\?$/? /){print STDERR;(<>=~/.*/g)[0]}@z=split/\|/;$z[ra
+nd@z]}
map{split/\[(.+?)\]/}<>
  6. or download this
    # Under Construction