#perl 语言简明教程

更新时间:2017-02-13    来源:Perl    手机版     字体:

【www.bbyears.com--Perl】

#perl 语言简明教程
#1.perl语言采用#号作为单行注释
#多行注释如下 被=pod =cut包裹起来的是多行注释

=pod
这里是多行注释
=cut

#1.变量
#perl语言中只有3种变量
#1.普通变量(标量)
#2.数组变量(列表)
#3.hash变量(hash表)
#声明方法
#标量
$a = 1;
$scalar = 10;
$s = "sdsd";
$s1 = "asdasd";

#数组
print @arr = ( 1, 2, 3, 4, 5, 6 );
&p;
print @arr100 = ( 1 .. 100 );
&p;
#hash表
print $hash= { "a" => "abc", "b" => "b" };
print $hash->{a};
&p;

#函数定义
#sub funcname{
# 参数在@_中
# @_[0]第一个参数
# @_[1]第二个参数
# @_[2]第三个参数
# 以此类推
#}
#函数调用
#在函数名前面加一个&
sub p{#此函数用来辅助打印
&println;
}
sub println{
print "n";
}
#正则表达式使用方法(异常简单)
#正则表达式只有五种元素 分别为 1.元数据。2.量词。3.分组。4.反向引用。5.字面量
#查找
$str="abc";
$str=~/ab.*/;#使用.元数据和*量词
#匹配结果在$&中
print $&;
&p;
$str="abc1234";
$str=~/abc(d+)/;#元数据d,量词+分组(d+)
print $&;#匹配全部
&p;
print $1;#第一组
&p;
$str="abcabc1234";
$str=~/(abc)1(d+)/;#字面量abc,分组一(abc),反向引用第一组1,元数据d,量词+分组二(d+)
print $&;
&p;
print $1;
&p;
print $2;
#替换
&p;
$str="abcfiredabctoadabc";
$str=~s/abc//g;#将所有abc替换为空g开关表示替换全部不带g表示只替换一个
print $str;

 

本文来源:http://www.bbyears.com/jiaocheng/30476.html

猜你感兴趣