File::Find 中的 is_tainted_pp 有何意？

CODE:

  580:       # check whether or not a scalar variable is tainted
  581:        # (code straight from the Camel, 3rd ed., page 561)
  582:        sub is_tainted_pp {
  583:            my $arg = shift;
  584:            my $nada = substr($arg, 0, 0); # zero-length
  585:            local $@;
  586:            eval { eval "# $nada" };
  587:            return length($@) != 0;
  588:        }

QUOTE:

To test whether a scalar variable contains tainted data, you can use the following is_tainted function. It makes use of the fact that evalSTRING raises an exception if you try to compile tainted data. It doesn't matter that the $nada variable used in the expression to compile will always be empty; it will still be tainted if $arg is tainted. The outer evalBLOCK isn't doing any compilation. It's just there to catch the exception raised if the inner eval is given tainted data. Since the $@ variable is guaranteed to be nonempty after each eval if an exception was raised and empty otherwise, we return the result of testing whether its length was zero:

sub is_tainted {
    my $arg = shift;
    my $nada = substr($arg, 0, 0);  # zero-length
    local $@;  # preserve caller's version
    eval { eval "# $nada" };
    return length($@) != 0;
}