Help for this page

Select Code to Download


  1. or download this
    if ($INPUT{'fourthing'} eq "four") {
$address = "four.txt";
}  elsif ($INPUT{'fourthing'} eq "five") {
...
}    elsif ($INPUT{'fourthing'} eq "six") {
$address = "six.txt";
}    else  {&formula; }
  2. or download this
    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/