perl备忘

perl的哲学

perl是非常怪异，混乱的语言，而我总是对于这些“有棱角”的语言感兴趣。Java就像21世纪的COBOL，是最没有棱角的，最“圆滑”的，所以它能大规模普及。Java强制面向对象，lisp强制用括号，python强制缩进，这些强制的东西是黑客所厌恶的，而perl赋予黑客自由，代价就是写法五花八门，合作起来困难，不过perl的优势就是不需要合作。

变量数组哈希

三个符号，$是变量，@是数组，%哈希

#!usr/bin/perl

$var = 'Larry Wall';  #变量                         
@languages = ('Java','python','ruby','C'); #数组
%languages = ( #哈希表
    'Java' => 'James Gosling',
    'python' => 'Guido van Rossum',
    'ruby' => '松本 行弘',
    'C' => 'Dennis Ritchie',
);

print ("$var\n"); #输出var变量的值

foreach $item (@languages){  #遍历language数组
    print("$item\n");
}

foreach $key (keys %languages)
{
  # 遍历languages哈希表 
  $value = $languages{$key}; 
  print ("[$key] ----- $value\n"); #格式化输出键和值
}

输出如下：

Larry Wall
Java
python
ruby
C
[Java] ----- James Gosling
[python] ----- Guido van Rossum
[C] ----- Dennis Ritchie
[ruby] ----- 松本 行弘

格式化输出

格式化输出语句，format，是一个类似模板的功能。事实上这是perl最初发明的目的---报表生成语言。

#!/usr/bin/perl

format STUDENT = 
姓名                        性别                      年龄
============================================================
@<<<<<<<<<<<<<<<<<<<<@||||||||||||||||||||||@>>>>>>>>>>>>>>>
$name,$sex,$age
分数：@####
$score



.

select(STDOUT); #将数据发送到STDOUT
$~ = "STUDENT"; #将EMPLOYEE与STDOUT关联

@names = ("王二","小明","小红");
@ages = (12,14,15);
@scores = (65.0,72.0,83.0);
@sexs = ("男","男","女");

$i = 0;
foreach (@names){
    $name = $_;
    $age = $ages[$i];
    $sex = $sexs[$i];
    $score = $scores[$i++];
    write
}

输出如下：

姓名                        性别                      年龄
============================================================
王二                         男                        12
分数：   65



姓名                        性别                      年龄
============================================================
小明                         男                        14
分数：   72



姓名                        性别                      年龄
============================================================
小红                         女                        15
分数：   83

format用法及其符号的意义参考：Perl 格式化输出 | 菜鸟教程

正则

非常像sed，详细参考：Perl 正则表达式 | 菜鸟教程

#!/usr/bin/perl

$str = 'Perl is a high-level, general-purpose, interpreted, dynamic programming language. Though Perl is not officially an acronym,[9] there are various backronyms in use, including "Practical Extraction and Reporting Language';

#匹配第一个
if ($str =~ /high/){
    print "第一个匹配成功\n";
    print "result: $& \n"; #匹配后存入`$&`变量里
}

#匹配全部需要用循环遍历，将输出两次`is`
while ($str =~ /is/g){
    print "result: $&\n";
}

函数

perl的函数没有括号里写参数的写法，这跟主流语言不一样。

#!/usr/bin/perl

myfunction('A','b','c');

sub myfunction{
    print  "$_[0] - $_[1] - $_[2]\n";
    #打印参数列表
    foreach $item (@_){
        print "$item\n";
    }    
}