神奇的perl-第六个任务(10)

本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载

使代码更简单-$_和$! 

Perl代码很简洁，使用预定义变量会更简单更优雅，对于懒惰的程序员是个福音呀。最实用的是$_和$!两个预定义变量。

1、$_是在执行输入和模式搜索操作时使用的默认变量。

例如，在屏幕上输出iplog.txt的内容。

#perl4-21.pl

open MYIP,"<iplog.txt";

foreach (<MYIP>){

  print ;

}

close MYIP;

$_变量存放着从MYIP文件句柄输入的内容，print等方法不加任何参数表示默认输出$_的内容，比如：

say；＃输出$_后接换行

chomp；＃去除$_后的换行符

print if (~m/xyz/);#如果$_包含“xyz”字符串，则输出$_

s/2010/2009/;#将$_中2010替换成2009

print “你好”.$_;#输出你好后接$_的内容

2、$! 获取当前错误信息值，常用于die命令。

die处理Perl的严重错误，如除以零等，die输出由随后参数指定的错误信息后，终止程序。$!获取系统返回的错误信息。

以打开文件错误为例(以下代码在ubuntu下运行正常，默认编码为UTF8)：

#perl4-24.pl

die $! if (!open MYIP,"<iploglog.txt");

#如果当前目录没有iploglog.txt文件（实际上当前目录确实没有该文件），发生错误，并输出错误信息

foreach (<MYIP>){

  print ;

}

close MYIP;

#在ubuntu下输出“没有那个文件或目录 at perl4-24.pl line 2.”