perl数据结构

第一部分 简单逻辑控制结构与IO

IF控制结构

$req = <STDIN>;   # 从键盘输入

if ($req < 0)
{
    print "signed";
}
elsif ($req > 0 && $req < 10)
{
    print "unsigned";  # 屏幕输出
}
else
{
    print "greater than 10";
}

 

while控制结构

$num=1;

while ($num<10)
{
    $sum+=$num;     # undef
    $num+=2;
}
print $sum;

 

第二部分 标量数据

1.数字  

全部都以双精度浮点数来计算和保存，使用不同前缀区别不同进制（0b,0,0x）

支持的运算：加减乘除求余幂

2.字符串

a.长度没有限制（硬件内存限制）；

b.完全支持Unicode-->use utf8；

c.单引号中的内容会被直接理解为单引号中的内容，不会被转义（除了反斜线后面直接跟单引号或者反斜线），而双引号的内容会被Perl改写，转义

print 'don\'t',"\n",'don\\t',"\n","don\’t\n";
print "don\t",'intermediate',' don\t';

#输出结果
***************
don't
don\t
don’t
don    intermediate don\t

d.字符串凭借

print 'hello'."\n",'\n';

e.重复字符串

print "hello" x3;

第三部分 列表与数组

列表：标量的有序集合
数组：储存列表的变量

数组

@ma->$ma[0]->$#ma

列表

qw创建列表

qw!hello 4.5 undef!

@mm=qw?a b c d?; 整体赋值

操作方法

pop<--->push

shift<-->unshift

splice（操作的数组，开始位置，结束位置，替换列表）

foreach循环控制结构与默认变量$_

foreach控制结构用亍逐项遍历列表中的值

foreach (qw/bedrock slate lava/)
{print “One rock is $_”;}