Help for this page

Select Code to Download


  1. or download this
        use CGI::Safe qw/ taint /;
    my $q = CGI::Safe->new;
  2. or download this
        use CGI::Safe qw/ :standard taint /;

    my $var  = param( 'var' ) || '';
    ( $var ) = ( $var =~ /^([\s\w\d]+)$/ );
  3. or download this
        use CGI::Safe;
    my $q = CGI::Safe->new;
...
    {
        error_routine( $q->tainted_param( 'foo' ) );
    }
  4. or download this
        my $foo = param( { foo => qr/^([\w\s\d]+)$/ } );