Perl中的特殊符号介绍（perl 特殊字符）深度揭秘

文章摘要

这篇文章介绍了Perl语言的一些基础知识和特性，重点讲解了以下几个方面： 1. **$_变量的自动填充功能** 说明了在 Perl 中，未明确指定的变量会自动使用 $_ 来填充。例如，循环 `for(1..10){ print; }` 中，`print` 没有指定参数，因此会使用 $_ 来获取循环变量的值。 2. **正则表达式的变量匹配** 详细解释了正则表达式中匹配位置、匹配内容以及匹配位置之后的内容分别由哪些 Perl 变量获取。通过示例代码 `my$str="<Code>200</Code>";` 和正则表达式 `/(?<=<Code>)(d+)(?=</Code>)/`，展示了如何通过 $`、$& 和 $' 获取不同部分。 3. **Perl中的常用符号** 解释了 Perl 中一些常见符号的含义，包括： - `=>`：键值对 - `->`：引用 - `::`：调用类方法 - `%`：散列标志 - `@`：数组标志 - `$`：标量标志 - `=~`：匹配标志 - `!~`：不匹配标志 - `$!`：错误信息标志文章还提到了一些扩展知识，如正则表达式的详细实例、时间处理函数、字符串操作函数等，供读者进一步学习参考。

俗称perl的老地方，当你的程序中未告知使用哪个参数或者变量时，perl就会自动使用$_中的值，比如

for(1..10){
print ;
}

这里print没有指定参数，所以它就会使用$_，那$_里面是什么呢？每次循环$_的值都会变化，所以$_实际上就是1 .. 10这10个值，所以上面的代码打印的结果就是12345678910

当且仅当某个函数调用失败时才会设置该变量，所以经常这样使用这个变量

open FILE,”<d:/code/zdd.txt” or die $! ;

这是perl中的行分隔符，默认是换行符，可以改变这个变量以便一次读入整个文件，如下

sub test{
open FILE,”<d:/code/zdd.txt” or die $! ;
my$olds=$/ ;
local $/=undef ;
my$slurp=<FILE> ;
print$slurp,”\n” ;
$/=$olds ;
}

正则表达式匹配变量，代表匹配位置之前的内容

正则表达式匹配变量，代表匹配的内容

正则表达式匹配变量，代表匹配位置之后的内容

来看一个例子，解析xml文件，有如下xml文件，我想获得Code节点的值

200

用下面的perl代码来解析

my$str=”<Code>200</Code>” ;
if($str=~/(?<=<Code>)(\d+)(?=</Code>)/){
print”string before matched: $`”,”\n” ;
print”matched string: $&”,”\n” ;
print”string after matched: $'”,”\n” ;
}

运行结果是

string before matched:

matched string: 200

string after matched: </Code>

其中$`对应<Code>，$&对应200，$’对应</Code>

控制对当前选择的输出文件句柄的缓冲，例子待添加。

传给子程序的参数列表，通常一个子程序是这样获得传给它的参数的。

sub add {
my ($num1, $num2)=@_;
return $num1 + $num2;
}

如果子程序只有一个参数，也可以用shift来获取，此时，shift相当于shift @_

sub square {
my $num=shift ; # same as my $num=shift @_
return $num * $num;
}

perl常见符号

=> 键值对，左键右值

-> 引用，相当于java中的【对象.方法名】中的点号

:: 表示调用类的一个方法

% 散列的标志，定义一个键值对类型的

@ 数组的标志

$ 标量的标志

=~ 匹配的标志

!~ 不匹配的标志

$! 根据上下文返回错误号或者错误串

您可能感兴趣的文章:强大的Perl正则表达式实例详解Perl中的符号 ->;、=>; 和 :: 分别表示什么意思？Perl中常见符号与操作Perl时间处理函数用法介绍Perl字符串处理函数大全Perl字符串比较和整数比较的区别详解详解linux下批量替换文件内容的三种方法(perl,sed,shell)使用Perl生成随机密码Python和Perl绘制中国北京跑步地图的方法Perl5和Perl6对比使用Sigils的差别