if ($data =~ /^(w+)$/) {
$data = $1;
} else {
die ”Error: tainted data found: $datan”;
}
Perl命令行调试
缺省的Perl调试器就是perl解释器本身，另外还有图形界面的调试器。图形界面的调试器推荐ptkdb，这里不再进行介绍，下载安装以后用两次便会。所以这里主要介绍一下缺省的命令行调试器的用法，一般的调试，用下面这些命令已经足够了，这些命令说明也来自网上整理而成。
用 -d 命令行选项启动Perl解释器，例如：
perl -d test.pl 即进入Perl调试器的交互界面。
调试命令列表如下：(所有命令都在调试提示符下顶格输入，命令大小写有关)
h：显示调试器的帮助信息。
|h：以分页形式显示调试器的帮助信息。
h h：显示一个压缩的帮助信息。
h 调试命令：显示某个调试命令的帮助。
p 表达式：显示变量或表达式的值，不显示复杂变量嵌入的结构和数据。
x 表达式：显示变量或表达式的值，对较为复杂的变量，以一种可读形式显示嵌入的结构和数据。
V 包名 变量名列表：显示指定包内的所有(或部分)变量的值。(缺省的包名为 main)
X 变量名列表：显示当前包内所有(或部分)变量的值。
注：V、X命令中的变量名列表以空格分隔且变量名前应去掉$、@或%。
T：程序的调用栈回退一级。
s 表达式：单步执行，进入子函数。(step into)如果提供一个表达式并且表达式中包括函数调用，则单步进入该函数内。
n 表达式：单步执行，越过子函数。(step over)
c 行号/函数名：执行到某一行或某一个函数。
l：显示未执行的一窗(一屏)文件内容。
l min-max：显示第min到第max行的文件内容。
l 行号：显示指定行的内容。
l 函数名：显示指定函数的一窗(一屏)文件内容。
w 行号：显示某行周围一窗(一屏)文件内容。
f 文件名：切换到另一个文件。
/模式：在当前文件中向前(文件尾)查找匹配的字符串。
?模式：在当前文件中向后(文件头)查找匹配的字符串。
L：显示所有断点和附加操作。
S 模式：显示匹配(或不匹配，在模式前加!)的函数名。
t：切换跟踪模式。
t 表达式：跟踪执行表达式过程。
b 行号 条件：在某一行设置一个断点，当程序执行到该行并且条件满足时，产生中断。
b 函数名 条件：在某函数上设置一个断点，当程序执行到该函数并且条件满足时，产生中断。
b load 文件名：在某个文件的第一个可执行语句上设置一个断点。
d 行号：删除某一行的断点。
D：删除所有断点。
a 行号 命令：给程序的某一行加一个附加操作。在执行该行语句前先执行附加的操作。
