有关perl正则表达式的一些杂项
$也能匹配\n见Perl语言入门,page 132, 注释61 /^.*$/能匹配"\n"么?能!因为$不仅能匹配行尾,也能匹配\n2 /^.*$/能匹配"b\n"么?能!.能b匹配. \n匹配$3 /^.*$/能匹配"\nb"么?不能!为什么?因为默认情况下,.不能匹配\n,把模式改一下变成/^.
$也能匹配\n见Perl语言入门,page 132, 注释61 /^.*$/能匹配"\n"么?能!因为$不仅能匹配行尾,也能匹配\n2 /^.*$/能匹配"b\n"么?能!.能b匹配. \n匹配$3 /^.*$/能匹配"\nb"么?不能!为什么?因为默认情况下,.不能匹配\n,把模式改一下变成/^.
例如:实现代码如下:unless ($fred =~ /^([A-Z_]\w*$/i) {print "The value of \$fred doesn't look like a Perl identifier name. \n";}使用unless意味着,要么条件为真,要么执行某块代码。这就好
一、数组应用实现代码如下:#!/usr/bin env perl@zeng = `top -b -n 1`;foreach (@zeng) {print "$_\n";}二、say的用法:自动换行实现代码如下:#!/user/bin env perluse 5.010; #表示使用perl 5.10
Perl利用函数rand()和srand()为随机数(更确切的说是"伪随机数")字符串的生成提供了基本的工具。这些函数不是利用加密来提供安 全性的,所以不要利用它们为你金融信息的加密。但是,如果你需要为你的下一个游戏或者动态Web网站的新特性设计一个简单的随机数生成器,那么 rand()和srand
实现代码如下: #!/usr/bin/perl use File::DirWalk; use File::Basename; use Data::Dumper; use warnings; use strict; my $dw = new File::DirWalk; my %files; file
在networking方面,最基础的是BSD socket编程,但往往perl入门时在这个方面,最头疼的无疑是如何开始,如何Step by step。最好的药方就是Example,一段完整的可以运行(working)的代码,通过实践来感受远比看枯燥的manual来得深刻。以下给出几段使用Socket
一、正则表达式特殊变量1、$n :包含上次模式匹配的第n个子串2、$ 在仿真多维数组时使用的分隔符.$? 返回上一个外部命令的状态$@ Perl解释器从eval语句返回的错误消息$[ 数组中第一个元素的索引号$ 当前输出记录的分隔符$] Perl解释器的子版本号$^
实现代码如下:#!/usr/bin/perl## 用grep map 获取两个列表的交集并集、补集#use strict;my @a=("a","b","c","d","e");my @b=("b","g","f","e");print "列表a数据: @a \n";print "列表b数据: @b
1. 用grep函数 函数名 grep 调用语法 @foundlist = grep (pattern, @searchlist); 解说 与同名的UNIX查找工具类似,grep函数在列表中抽取与指定模式匹配的元素,参数pattern为欲查找的模式,返回值是匹配元素的列表。 例子 @list = (
在Linux或者Unix上操作(生成)Excel,CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel这两个模块。 下面就来看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法