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

yunvn

　　本神奇的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.”