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";
}
}