Help for this page

Select Code to Download


  1. or download this
    my $var = $ARGV[0]; ## $var is tainted and has value 'aabb';
{
    use re 'taint';
    $var =~ m/(aa)(bb)/;
}
  2. or download this
    my $var = $ARGV[0]; ## $var is tainted and has value 'aabb';
{
    use re 'taint';
    $var =~ s/(aa)(bb)/$1/;
}