perl学习记录

perl语言是语言学家发明的。带有很强的自然语言的特点，编程时要看上下文；不像其它语言有很强的数学味。
perl里主要有$scalar, @array, %hash三种类型。三种类型在需要的上下文中，可以互相转化。
perl里重量级的撒手锏，就是正则表达式。

1. perl的代码中，常常要根据上下文来判断其具体含义。

有$_表示当前上下文的信息。在函数中，@_表示函数参数信息。

有了上下文之后，一些默认参数是上下文的，就可以省略参数。

$_='aabbcccd1f';
s/c+(d+)/o$1/;
print;

2. 用$表示scalar，用@表示数组，用%表示散列。可以用小括号将一组数据括起来，组成list。

my @infos = ( "aaa", "a9", 89 );
my ($name,$type,$score) = @infos;
my %hash = (
k1 => "value1",
k2 => "value2",
);
print "name=",$name,"type=",$type,"score=",$score,"\n";
print join(', ',values %hash),"\n";

取数据长度直接用@array。取最后一个索引用$#array

for和foreach是互通的。

除了if，while，还有否定式的unless和until

对数组进行过滤的map、grep等功能。

my @infos = ("aaa", "a9", "b23", "j31");
my @a = grep { /^a/ } @infos;

my @scores = (1, 23, 53, 62, 12);
my @double = map { $_ * 2 } @scores;

print join ' ',@a,"\n";

print join ' ',@double,"\n";
数值列举：
my @serial = (1..100);
字符串（数据）引用：使用q，qq，qw
注意使用时里面不再需要逗号分隔

my $str = q#a string "with" 'quote'#;
my $str2 = qq(a string with "quote" \n);
print($str);
print("\n==========\n");
print($str2);
注意上面代码中的换行符的输出
qw用于输出一个列表。如上例中的my @infos = ("aaa", "a9", "b23", "j31");
#二者等价
my @infos = qw(aaa a9 b23 j31);
3. 正则表达式
perl正则表达式与grep、awk等相比，多了一些内容。例如

\d 数字，和[0-9]一样
\w 字符，和 [a-zA-Z0-9] 语法一样
(?:xxx) 不捕获的匹配
(?=xxx) 测试匹配，不消耗字符。
(?!xxx) 不匹配测试。如foo(?!bar)，不会匹配foobar