About Perl (zz)
Perlfoldunfold
Table of Contents
命令行参数
与C语言的区别
特殊变量
特殊语法
use diagnostics;
文件判断符
启动和结束操作
本地文档(Here-Document)
字符重复操作符
引号函数
比较操作符号<=>
each %
范围操作符 ..
warn
常用的函数
pack, unpack, ord, hex
reverse
binmode($handle);
sort
shift, unshift, push, pop
glob
系统调用
open管道
常用的扩展包
Text::Tabs
GetOpt::Long
File
List::Util
Win32
Tk
经典书籍
命令行参数
perl -e "$cmd1" -e "$cmd2" #通过 -e 可直接输入程序。
perl -d -e 1 #进入调试程序，1是最简单的程序。类似perl shell 使用。-de 可连用
perl -c #编译Perl脚本
环境变量 PERL5LIB 中定义的目录会附加到Perl的库搜索路径中，从而扩展用户自定义的库。
与C语言的区别
{}
f或for之后跟随单条语句时，C中是可以省略{}的，但Perl不行，只有if后置时才可省略。
循环控制
循环的流程控制关键字，C中的continue和break对应Perl中的next和last。
头文件包含
Perl中使用require $another_file 包含其他脚本(或者use)，对应C中的include
use是在编译阶段就会导入，而require是在运行时实时导入的!
true, false
Perl没有true/false 定义, 故误用 $cmd if (false) 中$cmd会执行的!
注：有本面向C程序员的Perl教程,从C的角度来介绍Perl,很适合C程序员。(书名忘了，下次补上)
特殊变量
$_
默认标量名
@_
默认数组名
$n
regexp中的第n个匹配部分
$null
空变量，可用来占编码位置。
$^O
操作系统名
$!
上一个系统调用失败时的出错信息(只有调用失败时才有意义)
$?
保存系统调用的返回值
%SIG
该hash表指向信号处理函数，例如 $SIG{DIE} = \&diehandle;可修改sigint 的处理函数。特殊语法
use diagnostics;
使用use strict;这个选项时, 若开启use diagnostics;则会为语法检查中的错误输出详细的解释。
另外 no strict; 可以在当前作用域内关闭检查!
文件判断符
$do_something if (-e $file); #判断$file是否exist。(详细判断列表待补充 …)
启动和结束操作
BEGIN { $begin_operation; } #在程序开始时执行
END { $end_operation ; } #在程序结束时执行
本地文档(Here-Document)
$msg = <<E_O_F;
#everything here will be put into $msg
E_O_F
在E_O_F(这个名字可换)之间包含的所有文字原封不动的放入$msg当中
?和E_O_F之间不可有空格，E_O_F与;间可有空格。但可用"E_O_F"限定。
字符重复操作符
‘#’ x 3 生成字符串 “###”
@array = ("*") x100 可将整个数组初始化为100个*
引号函数
qq: "
: q
'比较操作符号<=>
$a<=>$b
在a>b返回1，a<b返回-1， a=b返回0。只用于数字比较! 可用在sort中。each %
while ( ($key, $val) = each %hash ) { $cmd; }
可遍历整个hash, 并且处理较大的hash时，速度要比先用keys,再一一读取快得多。
范围操作符 ..
例如 foreach (0..20)中的.. 只可升序（是否有降序形式？）
warn
warn <<"E_O_F";
this is a warning message!
E_O_F
可直接输出warning.
常用的函数
pack, unpack, ord, hex
提供多个进制之间的数据转换( 使用方式待补充… )
reverse
反转字符串
binmode($handle);
可切换文件句柄至2进制模式
sort
用于排序，默认情况下按照ASCII排序
sort { $a<=>$b } @array; 按 {$cmd } 返回值排序。
shift, unshift, push, pop
数组在使用shift, unshift时看作fifo
使用push, pop时看作stack
glob
使用通配符获得文件列表，
可简写为 @cfiles = <*.c>;
<*>可以返回所有文件和文件夹
另外也可以使用opendir/readdir/closedir组合，但要复杂一些
系统调用
@dir = ‘dir`; @dir = qx(dir); #注意其内部会对$@处理，但不处理%，qx’$var' 可禁止其处理！
这种方式类似于system 函数，但system不会捕获输出，这里会返回输出结果。
open管道
open(fhandle, "|more");
打开输出到more的管道，使得输出可分页显示
open(fhandle, "gzip -dc $zipfile|");
可直接处理压缩文件$zipfile.
常用的扩展包
Text::Tabs
处理 tab字符很有用，提供expand和unexpand方法转换tab和空格。
GetOpt::Long
类似Unix函数GetOpt, 提供解析命令行选项的功能，使用时最好把所有选项集中于hash表中，方便统一管理。另外，在解析完参数后，ARGC和ARGV会被修改，指向未被解析的参数。
File
::Path 处理路径相关任务，比如mkpath方法可创建多个目录。
::Find 搜索文件或目录。
List::Util
列表操作。Shuffle 函数可以将列表顺序随机打乱。
Win32
Win32::OLE 通过OLE接口操作其他软件。
Win32::ClipBoard 控制系统剪贴板。
Perl本身附带提供了一个OLE browser程序，类似VC的OLE viewer, 可查看OLE接口。
Tk
Tk界面扩展包 （是否需要 Tcl库?）
经典书籍
1. Programming Perl
2. Perl CookBook
page tags: perl 脚本语言
页:
[1]