神奇的Perl-第六个任务(5)

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

1.1         跨平台运行

Perl程序虽然可以跨平台运行，但编写出可移值的代码需要很多技巧，在此仅列举部分技巧。

1.1.1 执行程序

1、            WINDOWS平台下，Perl一般运行在控制台，如果想更稳定运行，建议安装microsoft  Windows PowerShell。

Windows PowerShell 是一种免费的命令行解释器和用于系统管理和自动化的脚本语言。在Microsoft.net 框架上构建，Windows PowerShell 使 IT 专业人员和开发人员控制和自动化的 Windows 和应用程序管理。WINDOWS 7已经默认安装了此工具，在其它版本windows运行的 Windows PowerShell下载地址如下：

http://technet.microsoft.com/zh-cn/scriptcenter/dd772288.aspx

2、            linux平台下，Perl一般在shell环境执行 ，还需要注意以下2点：

1） 代码最好以下面的行开始，该行必须写在文件的第一行（当然，这样在WINDOWS下也能执行，因为#表示注释，不会对程序有任何影响）：

#!/usr/bin/perl

符号#!用来告诉LINUX系统，它后面的参数是用来执行该文件的程序。我们使用/usr/bin/perl来执行程序，如果你的Perl解释程序安装在其它目录，请更改该行的目录名。

2）使chmod命令使Perl脚本可执行(假设Perl程序为test.pl)。

chmod +x  test.pl;

1.1.2  ENV环境变量

%ENV是当前环境信息的哈希变量，%ENV对于perl代码可移植性很重要，它提供了很多系统的信息。运行下面的perl4-19.pl，能获得当前系统信息。

#perl4-19.pl

while (my ($key,$value)=each %ENV){#$key为系统信息，$value为信息值

  print "$key===>$value\n";

}

在笔者的Ubuntu平台(Ubuntu 是一个由全球化的专业开发团队建造的LINUX操作系统，是 Windows 和 Office 的开源替代品)下运行perl4-19.pl，能得到如下信息：

LANG===>zh_CN.UTF-8

可看出当前系统的字符编码为：ZH_CN.UTF-8。

1.1.3 字符编码

LINUX平台默认使用UTF-8编码，中文windows系统默认使用GBK编码。以一个简单的中文字符串匹配为例：

#perl4-18-linux.pl

@names=qw(李明 李永 黄珏 刘上新);

#我们从以上数组中取出所有姓“李”的名字。

foreach  $name(@names){

        $xing="李";

   print "$name "  if ($name=~/^$xing/);

}

将以上perl4-18-linux.pl以UTF8(无BOM)格式存储，在LINUX下该程序运行正常，而WINDOWS的控制台（包括powershell）运行为乱码。