#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;