perl的一些基本用法

perl的一些基本用法.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。perl基本用法2010-02-10 09:50s/\s+/ /g 将空白符变成一个空格；s/^\s+// 去掉首空白；s/\s+$// 去掉尾空白；s/^\s+|\s+$// 去掉首尾空白；大小写转化的例子：s/(fred|barney)/\U$1/gi 匹配所有的忽略大小写，替换成大写；s/(fred|barney)/\L$1/gi 匹配所有的忽略大小写，替换成小写；s/(\w+) （\w+)/\U$2\E$1/i $2变成大写 $1还是保持小写，\E结束转换；CPAN 是 Comprehensive Perl Archive Network 的缩写，中译为 Perl 综合典藏网。它包含了极多用 Perl 写成的软件和模块。CPAN相关软件的安装方法最近几天安装SPAMASSASSIN，牵涉到许多CPAN的安装，以前都是缺少什么，就去CPAN网站寻找相应的模块，自己编译安装，后来发现其实CPAN自己的shell命令就可以很方便的安装相应模块，真是方便当然前提你必须安装perl-CPAN，在我的redhat9.0上的版本是perl-CPAN-1.61-88，大家没装的话，直接用光盘的rpm包安装即可。安装后运行[root@www CPAN]# perl -MCPAN -e shellcpan shell -- CPAN exploration and modules installation (v1.61) ReadLine support available (try 'install Bundle::CPAN')cpan>进入cpan的shell，好了，我为了安装spamassassin，需要安装以下几个install Digest::SHA1 install HTML::Parser install Storable install DB_File install Net::DNS install Net::SMTP install Mail::SPF::Query install IP::Country::Fast install IO::Socket::SSL install Time::HiRes install DBI是不是很方便呀，不用再单独下载编译安装了， 类型 字符 例子 用于哪种名字 标量 $ $cents 一个独立的数值（数字或字串） 数组 @ @large 一列数值，用编号做键字 散列 % %interest 一组数值，用字串做键字 子过程 & &how 一段可以调用的 Perl 代码 类型团 * *struck 所有叫 struck 的东西 手册页 内容 perl 有些什么 perl 手册页 perldata 数据类型 perlsyn 语法 perlop 操作符和优先级 perlre 正则表达式 perlvar 预定义变量 perlsub 子过程 prelfunc 内建函数 perlmod 如何令 Perl 模块工作 perlref 参考手册 perlobj 对象 perlipc 进程间通讯 perlrun 如何运行 Perl 命令，以及命令行开关 perldebug 调试 perldiag 诊断信息 % perlop comma% perlfunc split% perlvar ARGV% perldiag 'assigned to typeglob' % perlfaq roundperltoc 命令（自己也是一个手册页）搜索所有手册页收集的目录 % perltoc typeglob perl5005delta: Undefined value assigned to typeglob perldata: Typeglobs and Filehandles perldiag: Undefined value assigned to typeglob 或者搜索全部 Perl 在线文档，包括所有头，描述，和例子，对于任何字串的实例，使用 perlhelp 命令： % perlhelp CORE::GLOBAL参阅 perldoc 手册页获取细节。 手册页 内容 perlfaq1 关于 Perl 的通用信息 perlfaq2 获取和学习 Perl perlfaq3 编程工具 perlfaq4 数据操作 perlfaq5 文件和格式 perlfaq6 正则表达式 perlfaq7 通用 Perl 语言信息 perlfaq8 系统交互 perlfaq9 网络 手册页 内容 perlamiga Amiga 移植 perlcygwin Cygwin 移植 perldos MS-DOS 移植 perlhpux HP-UX 移植 perlmachten Power MachTen? 移植 perlos2 OS/2 移植 perlos390 OS/390 移植 perlvms DEC VMS 移植 perlwin32 MS-Windows 移植 比较 数字 字串 返回值 等于 == eq 如果 $a 等于 $b 返回真 不等于 = ne 如果 $a 不等于 $b 返回真 小于 < lt 如果 $a 小于 $b 返回真 大于 > gt 如果 $a 大于 $b 返回真 小于或等于 <= le 如果 $a 不大于 $b 返回真 比较 <=> cmp 相等时为 0，如果 $a 大为 1 如果 $b 大为 -1 例子 名字 结果 -e $a 存在 如果在 $a 中命名的文件存在则为真 -r $a 可读 如果在 $a 中命名的文件可读则为真 -w $a 可写 如果在 $a 中命名的文件可写则为真 -d $a 目录 如果在 $a 中命名的文件是目录则为真 -f $a 文件 如果在 $a 中命名的文件是普通文件则为真 -T $a 文本文件 如果在 $a 中命名的文件是文本文件则为真 名字 ASCII 定义 代码 空白 [\t\n\r\f] \s 词 [a-zA-Z_0-9] \w 数字 [0-9] \d还有一件你必须知道的事情，缺省时量词作用在它前面的单个字符上，因此 /bam{2}/ 将匹配 “bamm”而不是“bambam”。如果你要对多于一个字符使用量词，你需要使用圆括弧，因此为了匹配“bambam”需要使用 /(bam){2}/。 构造 含义 $days 简单标量值 $days $days[28] 数组 @days 的第二十九个元素 $days{'Feb'} 散列 %days 的“Feb”值 构造 含义 ${days} 和 $days 一样，不过在字母数字前面不易混淆 $Dog::days 在 Dog 包里面的不同的 $days 变量 $#days 数组 @days 的最后一个索引 $days->[28] $days一个引用指向的数组的第二十九个元素 $days[0][2] 多维数组 $days{200}{'Feb'} 多维散列 $days{2000,'Feb'} 多维散列枚举 构造 含义 @days 包含（$days[0],$days[1],...$days[n]）的数组 @days[3,4,5] 包含（$days[3],$days[4],$days[5]）数组片段的数组 @days[3..5] 包含（$days[3],$days[4],$days[5]）数组片段的数组 @days{'Jan','Feb'} 包含（$days{'Jan'},$days{'Feb'}）片段的散列 构造 含义 %days （Jan=>31，Feb=>$leap?29:28,...） 代码 含义 \n 换行符（常作LF） \r 回车（常作CR） \t 水平制表符 \f 进纸 \b 退格 \a 警报（响铃） \e ESC字符 \033 八进制的ESC \x7f 十六进制DEL \cC Control-C \x{263a} Unicode（笑脸） \N{NAME} 命名字符 代码 含义 \u 强迫下一个字符为大写（Unicode里的“标题”） \l 强制下一个字符小写 \U 强制后面所有字符大写 \L 强制后面所有字符小写 \Q 所有后面的非字母数字字符加反斜杠 \E 结束\U，\L，或\Q。 常用 通用 含义 替换 ' ' q// 文本字串 否 " " qq// 文本字串 是 ` ` qx// 执行命令 是 () qw// 单词数组 否 // m// 模式匹配 是 s/// s/// 模式替换 是 y/// tr/// 字符转换 否 " " qr// 正则表达式 是 #! /usr/bin/perl @lines= `perldoc –u –f atan2`; # 反引号`通常在美式键盘数字1 的左边。不要和单引号‘混淆了 foreach(@lines){ s/\w<([^>]+)/\U$1/g; print; } chomp() 这个函数是去到\n 的，如果两个\n只去掉一个。pop 是在数组的结尾，弹出 push 是在数组的结尾，压入。shift 是在数组的开头，弹出 unshift 是在数组的开头，压入reverse 逆转 子程序返回值为最后一个被计算的表达式。 在if 代码块内部，其语句没有分号。Perl 允许省略括号中最后一条语句的分号，在实际代码中，通常仅当此代码块仅包含一条语句时才省略此分号本书重点 my ($num) = @_; #列表context,同($sum) = @_；此为特殊列表，表内只有一个变量 my $num = @_; #标量context ，同$num = @_； 例如 @_=qw(a b c d e f g) 还有补充就是 ($num)里得到的是值为a $num里得到的是@_的个数为7记住，如果没有使用括号，my 仅定义一个变量◆ my $first,$second 没有定义$second my ($first,$second) 两个都定义了. $#name 是name这个数组的最后一个索引 #@name 是对数组name进行索引行输入操作在到达文件的结尾时将返回undef ，这对于从循环退出时非常方便的 while (defined($line=)){ print "I saw $line"; } 可简写 while (){ print "I saw $_"; }在进行深入讨论前，我们要澄清一些事：这种简写只在特定的情况下有效，默认的情况下不会将一行读入变量$_。仅当while 循环的条件判断部分只包含行输入操作才有效◆。如果在条件判断部分还有别的内容，则上述简写无效。这是Unix 中很少人知道的一个事实：如许多标准的工具，如cat ,sed ,也使用这种约定，连接号（-）代表标准输入流。如果在第二次使用<>之前重新初始化@ARGV ，则能得到正确的结果 @ARGV 是一个数组，但是好像是perl 内定的一个数组.