Help for this page

Select Code to Download


  1. or download this
    $q{'command'} =~ /^(search|\s*)$/;
$command = $1; # $command is now untainted.
  2. or download this
    defined $command && $command eq 'search' ? &search : &main; # gosh, I 
+love the trinary operator :)
  3. or download this
    while ($firstDisp < $lastDis) {...}
  4. or download this
    use CGI;
my $q = new CGI;
  5. or download this
    $q->param('command') =~ /^(search|\s*)$/; # untaint 'command'
my $command = $1; # $command is now untainted.