Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
I'm trying to learn how to build my scripts in taing mode, but really having trouble here!?my $file = "//Administrator/Web Sites/Learning/myweek_$no.html"; if ($file =~ /^([-\@\w._:\/]+)$/) { $file = $1; # $data now untainted } else { print "Please report this error to the admin. Thanks"; ex +it; } open OUTPUT, ">$file.html"; print OUTPUT $template->output; close OUTPUT;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: tainting!
by Aristotle (Chancellor) on Mar 11, 2006 at 07:52 UTC | |
|
Re: tainting!
by wfsp (Abbot) on Mar 11, 2006 at 07:54 UTC |