perl 语言简明教程

来源:互联网 时间:1970-01-01

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


相关阅读:
Top