Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -T
 
...
foreach my $key (keys %hash) {
   warn is_tainted($key);
}
  2. or download this
    tainted at ./taint_test.pl line 19, <FILE> line 1.
tainted at ./taint_test.pl line 19, <FILE> line 2.
...
not tainted at ./taint_test.pl line 25.
not tainted at ./taint_test.pl line 25.
not tainted at ./taint_test.pl line 25.