perl中给变量赋值

#方法一：直接悄耐第一句话末尾加exit，可以达到预期效果，但是整个程序也就退出了。

$a="abcdefg"

if ($a =~ /a/){$b=1print $b} exit

if ($a =~ /c/){$b=2print $b}

if ($a =~ /g/){$b=3print $b}

if ($a =~ /h/){$b=1print $b}

#方法二：用if...elseif，当第一个汪运腔条件满足时，后面条件不再验证。

$a="abcdefg"

if ($a =~ /a/){$b=1print $b}

elsif 困衫($a =~ /c/){$b=2print $b}

elsif ($a =~ /g/){$b=3print $b}

elsif ($a =~ /h/){$b=1print $b}

perl 中的哈希赋值

在perl 中，通过代码动态的给哈希赋值，是最常见的应用场景，但是有些情况下，我们事先知道一些信息，当需要把这些信息存放进一个哈希的时候，直接给哈希赋值就好；

哈希的key不用说，就是一个字符串，关键是value, 大概有下面3种：

1）一个值

就是一个普通的一维哈希，直搭滑接赋值即可

代码示例：

my %hash = ('a' =>1,'b' =>2,)print qq{$hash{a}\n}

2）一个列表

这种情况下直接把值写成一个列表是不行的，在perl中，哈希的值也是一个标量，所以应该用一个列表的引用

代码示例：

my %hash = ('知枝旁a' =>[1, 2, 3],'b' =>[1, 2, 3],)

print qq{$hash{a}->[0]\n}

3）一个哈希

和列表类似，直接用哈搭橡希的引用就可以了

代码示例：

my %hash = ('a' =>{ '1' =>1, '2' =>2},'b' =>{' 1' =>1, '2' =>2},)

print qq{$hash{a}->{1}\n}

上面这种情况，其实就是申明了一个二维哈希

---