Perl语言入门(13 perl调试程序)

由于公司需要，本人最近在学习Perl这种脚本语言，本文是我在学习Perl的过程中总结出来的一些心得和笔记，希望能够帮助也在学习Perl的各位同僚。废话不多说直接上干货！！！

———————————————————————————干货分割线 —————————————————————————

1.什么是调试程序

P e r l调试程序是个P e r l解释程序的内置特性。它使你能够取出任何一个P e r l程序，然后逐个语句运行该程序。在运行过程中，你可以查看各个变量，修改这些变量，让程序运行较长

的时间，中断程序的运行，或者从头开始运行该程序。

2.启动调试程序

若要启动P e r l调试程序，必须打开操作系统的命令提示符。若你是D O S和Wi n d o w s用户，那么要打开M S - D O S的标准提示符C : \。如果是U N I X用户，这个提示符应该是你登录时显示的提示符（通常是％或＄）。PS:本例中使用D O S提示符,以perl9中的程序为例(可查看博客perl9的内容)

 

启动调试程序:

perl -d Employee.pl

输出该命令后,会显示版本信息:

 

该调试程序首先显示版本号和help 提示。接着显示该程序的第一行可执行代码。由于第一个语句实际上包含7行，从“my @employees=（”开始，以“）；”为结尾，因此所有7行语句均显示一个描述，以说明它们来自什么文件，以及它们是在文件的哪一行或哪几行上找到的（第5至第11行）。

最后，你看到调试文件的提示符D B < 1 >。1表示调试文件正在等待它的第一个命令。调试程序提示符后面的光标正等待你输入命令。这时，你的P e r l程序实际上暂停在第一个指令-my @employees=(的前面。每当调试程序向你显示程序中的一个语句时，它就是准备要执行的语句，而不是上一个运行的语句。现在调试程序已经作好准备，等待你输入命令。

 

3.调试程序的基本命令

1>.h:帮助命令,所有可用命令均被输出.

2>.h h:帮助命令的变形版本,可以输出命令和语句的汇总.

3>.h cmd:输出某个命令的帮助信息.

4>.|:每次显示一屏幕命令.如:查看一屏幕帮助可用:|h.

5>.n:运行perl程序的下一个语句

当你键入命令n后，perll就执行Employee程序的第5至11行语句。然后调试程序输出要执行的下一个语句（但尚未运行） m y ( $ L 1，$ F 1 ) = s p l i t（’，’，$ a）；并显示另一个提示符。

 

当程序运行到这个时候， @ e m p l o y e e s被初始化为5个名字和工资等。若要查看这些信息，可以将它们输出：

print @employees  [原始版]

显示:

 

也可以更清楚的显示输出信息,键入:

Print join(“\n”,@employees)  [升级版]

显示:

 

4.断点

如果不是每次执行一个指令，你可以让调试程序连续运行你的P e r l程序，直到到达某个语句，然后停止运行。这些停止运行的位置称为断点。

若要设置断点，请使用b breakpoint命令，其中breakpoint可以是行号或子例程名。若要在第3 3行上设置断点，可以输入下面这个命令：

b 33

你可以使用l命令来浏览程序行,看看哪行适合添加断点(断点不能设置在花括号、标点符号、空行或只包含注释的代码行上)。命令l用于列出程序的下面1 0行。再次键l，可以列出下面的1 0行，如此类推。若要列出从某一行开始的程序，请键入l lineno，其中lineno是程序的行号。也可以设定要列出的行的范围，方法是键入命令l start-end。

键入:l

显示:

 

PS:，标号= = = >用于指明调试程序准备执行的当前行.

命令c:。命令c向调试程序发出指令，使P e r l程序运行到下一个断点或程序的结尾：

显示:

 

命令d:若要撤消程序中的断点，可以采用命令d，比如d line 或d submane.

命令R:重新启动你的程序,该命令使perl程序回到它的开始处.

命令s:单步进入设置断点的程序行中.s命令的作用是执行函数，然后在函数中的第1个指令处停止运行.

还可以在P e r l程序运行时修改程序里的变量。例如，若要给员工每小时临时增加2 . 5 0美元

的工资，可以输入下面的代码：

print $hourly

$hourly = $hourly + 2.50,如下:

 

命令q:退出调试程序

 

5.单命令行程序

这种程序的关键是在命令行上赋予P e r l的- e开关。- e的后面可以是任何P e r l语句，如:

Perl -e “print ‘hello,world’;”

显示:

 

插入多个语句:

perl -e "print 'hello,world';" -e "print'howzit goin?'"

显示:

 

-c:P e r l解释程序中的- c开关可供P e r l用来查看你的代码，以便找出语句上的问题，但是它实

际上并不运行程序,当程序正确时,显示:

 

当程序错误时,报错,显示:

 

 

6.<>与更多单命令行程序

迄今为止介绍的尖括号运算符（ < >）具有两个功能：

1) 如果尖括号中间是文件句柄，尖括号运算符允许你读取文件句柄，比如< S T D I N >。

2) 如果尖括号中间是搜索模式，尖括号运算符能返回与该模式匹配的文件列表，这称为一个glob，比如< * . b a t >。

尖括号运算符还有另一个功能。一组尖括号运算符如果中间没有任何东西，那么它可以读取命令行上所有文件的内容；如果没有给出文件名，则可以读取标准输出。

Exp:

#!/usr/bin/perl -w
use strict;  
use warnings;
 
while(<>){
    print $_;
}

如果将上面的程序保存为E x a m p l e . p l，那么用下面这个命令行运行该程序：

perl -w Example.pl file1 file2 file3

就可使运算符< >读取f i l e 1的内容，每次读1行，然后读取f i l e 2，接着读取f i l e 3。

Perl程序的- n开关可用于将任何- e语句封装在该小程序中：

LINE:

While(<>){

    ...  #Your -e statements here.

}

因此，若要创建一个简短的单命令行程序，从输入数据中删除前导空格，你可以编写下面的命令：

Perl -n -e ‘s/^\s+//g;print $_;’ file1

上面这个命令实际上运行类似下面这个P e r l程序：

LINE:

While(<>){

    s/^\s+//g;

    print $_;

}

在上面这个代码段中，名字为f i l e 1的文件被打开，并被赋予w h i l e循环中的$_，每次1行。该行用S / ^ \ S + / / g进行编辑，然后进行输出。- p与- n开关的作用相同，差别在于语句执行后各个文件行便自动输出。因此，重新编写上面这个命令行便产生下面这个命令行：

perl -p -e ’s/^\s+//g’ file1

当你用P e r l的单命令行程序来编辑一个文件时，必须注意不要在打开文件进行读取操作的同时，又试图对它进行写入操作，像下面这个例子那样：

perl -p -e ‘s/\r//g’ dosfile > dosfile

上面这个代码段试图从称为dosfile的文件中删除回车符。问题是在P e r l命令被处理之前，dosfile文件已经被>dosfile改写。编辑文件的正确方法应该是将输入重定向到另一个文件中，并将文件改为它的原始名字，如下所示：

perl -p -e ‘s/\r//g’dosfile > tempfile

rename tempfile dosfile

7.使用引用调试程序:

若你的程序中有引用,你可以输出该引用,perl能够显示该引用指向什么结构,如:

print $mystery_ref;

显示:ARRAY(0X1231920)

这意味着$mystery_ref;是对一个数组的引用.此外，变量也可以是对标量(SCALAR)、哈希结构(HASH)或子例程(CODE)的引用.若要输出$mystery_ref指向的数组，可以将它作为数组来处理，如下所示：

print join(‘,’,@{$mystery_ref});

 

当你在程序的调试窗口中输入调试命令:print $ref ,它若显示HASH(0X20222dac),显然,$ref是指一个哈希结构.然后输入命令:x $ref,

会显示:

在这个代码中，该引用包含一个带有两个元素（关键字‘ f r u i t’和‘ v e g e t a b l e’）的哈希

结构。该调试程序甚至能够输出列表的列表之类的复杂数据结构，如下所示：

 

上面的例子显示了一个引用$ a,它指向一个数组ARRAY(0x20170bd4)。而这个数组又包含3个别的数据引用，即ARRAY(0x20115484)、ARRAY(0x2011fbb4)和ARRAY(0x2011faa0)，每个数组包含3个元素。