当前位置：首页 > 资讯 > 技术文档

Perl中的特殊符号介绍

时间：2021-07-30 20:29 编辑：来源：阅读：
扫一扫，手机访问

摘要：Perl中的特殊符号介绍

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

for(1..10){
  print ;
}

这里print没有指定参数，所以它就会使用$_，那$_里面是什么呢？每次循环$_的值都会变化，所以$_实际上就是1 .. 10这10个值，所以上面的代码打印的结果就是12345678910 [code]$![/code] 当且仅当某个函数调用失败时才会设置该变量，所以经常这样使用这个变量 open FILE,"<d:/code/zdd.txt" or die $! ; [code]$/[/code] 这是perl中的行分隔符，默认是换行符，可以改变这个变量以便一次读入整个文件，如下

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

[code]$`[/code] 正则表达式匹配变量，代表匹配位置之前的内容 [code]$&[/code] 正则表达式匹配变量，代表匹配的内容 [code]$' [/code] 正则表达式匹配变量，代表匹配位置之后的内容来看一个例子，解析xml文件，有如下xml文件，我想获得Code节点的值 <?xml version='1.0' encoding='UTF-8'?> <Code>200</Code> 用下面的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: <Code> matched string: 200 string after matched: </Code> 其中$`对应<Code>，$&对应200，$'对应</Code> [code]$|[/code] 控制对当前选择的输出文件句柄的缓冲，例子待添加。 [code]@_[/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;
}

[b]perl常见符号[/b] => 键值对，左键右值 -> 引用，相当于java中的【对象.方法名】中的点号 :: 表示调用类的一个方法 % 散列的标志，定义一个键值对类型的 @ 数组的标志 $ 标量的标志 =~ 匹配的标志 !~ 不匹配的标志 $! 根据上下文返回错误号或者错误串

全部评论(0)

上一篇：perl中srand()与time的函数使用方法介绍
下一篇：perl 中文处理技巧

资讯排行榜
更多>>