perl 语言简明教程

时间：2011-05-23 来源：firedtoad

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

相关阅读更多 +

光与影33号远征队神秘废墟经怪要不要杀(光与影33号远征队) 游戏资讯 2025-05-26
熊视眈眈游戏多少钱游戏资讯 2025-05-26
光与影33号远征队神秘废墟隐藏任务怎么做(光与影33号远征队拦腰法) 游戏资讯 2025-05-26
炉石传说标准天梯平衡补丁首日卡组分享(炉石传说标准天赋是什么) 游戏资讯 2025-05-26
剑星胜利女神dlc什么时候出(剑星胜利女神) 游戏资讯 2025-05-26

排行榜更多 +

战机公司汉化版下载

飞行射击下载

飞行射击下载

飞行射击下载