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节点的值 <?xml version='1.0' encoding='UTF-8'?> 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> 其中$`对应<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中的 【对象.方法名】中的点号 :: 表示调用类的一个方法 % 散列的标志,定义一个键值对类型的 @ 数组的标志 $ 标量的标志 =~ 匹配的标志 !~ 不匹配的标志 $! 根据上下文返回错误号或者错误串 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |