Perl

• 大量出于实用主义而设定的默认行为
• 使用了大量符号和缩写方式, 代码可以表示得很奇异
  这种做法事实上降低了可读性, 但部分Perl用户认为这种写法更好.
• 以正则表达式和文本处理能力为重心
• JavaScript明显大量借鉴了Perl的语言特征

• 虽然出发点是好的(例如减少无谓的键盘输入量),
  但Perl的默认行为太多了, 对于Perl不熟悉的人很难理解Perl代码.
• 和Python一样, 没有字面量的自动装箱机制.
  这使得命令不能通过REPL环境被用户发现, 需要通过查手册得知, 也限制了编辑器的发挥.
• 学习成本很高, 教材很差, 语言差异大.

#!usr/bin/perl
use 5.010;
say "Hello World!";

1.25
255.000
255.0
7.25e45
-6.5e24
-12e-24
-1.2E-23
255
61_298_040_283_768 # 用下划线增强可读性, 相同的语法已在JavaScript里引入
0377 # 八进制
0xff # 十六进制
0b11111111 # 二进制
0x1377_0B77
0x50_65_72_7C

# 单引号仅可转义\和'两种字符.
'fred'
'barney'
''
'Dont\'t let an apostrophe end this string prematurely!'
'the last character is a backslash: \\'
'hello
there'
'\n' # 不是换行, 而是两个字符
# 双引号可转义所有字符
"barney"
"hello world\n" # 最后的是换行符
"The last character of this string is a quote mark: \""
"coke\tsprite"
"\x{2668}" # Unicode的代码点(code point)
$alef = chr(0x05D0); # 直接用chr函数转换代码点
$alpha = chr(hex('03B1'));
ord('?')# chr的逆运算
$meal = "brontosaurus steak";
$barney = "fred ate a $meal"; # 标量变量内插, 如果标量变量没被赋值过, 就以空字符串代替
$barney = 'fred ate a ' . $meal; # 等价写法
$barney = "fred ate a ${meal}"; # 用于防止变量名出现歧义的写法
@rocks = ('flintstone', 'slate', 'rubble');
print "quartz @rocks limestone\n"; # 内插数组时, 会以空格间隔开每个元素的值
print "$rocks[1]"; # 内插数组的元素, 下标部分可以是表达式

• 数据类型为数字时, 0为假, 其他数字为真.
• 数据类型为字符串时, 空字符串 '' 和 '0' (在Perl里与数字0为同一个标量值)为假, 其他字符串为真.
• 如果不是数字也不是字符串, 则先转换为数字或字符串再判断.
• 如果是引用, 则undef为假, 其他引用为真.
• 如果是哈希, 至少有一个键值对为真, 空哈希为假.

$_ = "yabba dabba doo";
if (/abba/) {
  print "It matched!\n";
}
# 使用Unicode属性, 这些属性可以在perluniprops文档中查询得到
if (/\p{Space}/) { # 空白符(共有26个字符带有此属性)
}
if (/\p{Digit}/) { # 数字(共有411个不同的数字字符带有此属性)
}
# 从 Perl 5.6开始, 一些正则表达式里的简写形式代表的字符集比过去要大得多(因为支持了ASCII以外的字符)
# 如需改变这一行为, 可以通过 Perl 4.14 的修饰符 =/a= (写在正则表达式末尾flag的位置)严格要求以ASCII语义展开:
use 5.014;
$_ = 'The HAL-9000 requires authorization to continue.';
if (/HAL-[\d]+/a) {
}
# 绑定操作符(不使用$_变量的匹配方法)
my $some_other = "I dream of betty rubble.";
if ($some_other =~ /\brub/ {
  print "Aye, there's the rub.\n";
}
my $what = "larry"
while (<>) {
  if (/\A($what)/) { # 内插
    print "We saw $what in beginning of $_";
  }
}
# 捕获变量(这些变量会存活到下一次成功匹配为止)
$_ = "Hello there, neighbor";
if (/\s(\[a-zA-Z]+),/) {
  print "the word was $1\n"; # 捕获到$1
}
# 具名捕获, 具名反向引用
use 5.010;
my $names = 'Fred Flintstone and Wilma Flintstone';
if ($names =~ m/(?<last_name>\w+) and \w+ \g{last_name}/) {
  say "I saw $+{last_name}";
}
# 替换
$_ = "green scaly dinosaur";
s/(\w+) (\w+)/$2, $1/;
$_ = "fred flintstone";
if (s/fred/wilma/) {
}
$_ = "I saw Barney with Fred.";
s/(fred|barney)/\U$1/gi; # 转大写
s/(fred|barney)/\L$1/gi; # 转小写
s/(\w+) with (\w+)/\U$2\E with $1/i; # I saw FRED with barney. \E用于界定大小写转换的范围
# 小写形式的 \u, \l 只转换一个字符
# 拆分字符串
my @fields = split /separator/, $string;
# 合成字符串
my $result = join $glue, @pieces;
# 列表上下文的模式匹配
$_ = "Hello there, neighbor!";
my($first, $second, $third) = /(\S+) (\S+), (\S+)/;
print "$second is my $third\n";

$line = <STDIN>;
if ($line eq "\n") {
  print "That was just a blank line!\n";
} elsif ($line eq "\t") {
  print "That was just a tab line!\n";
} else {
  print "That line of input was: $line";
}
unless ($line eq "\n") {
  print "That line of input was: $line";
} # 尽管语法上支持else, 但出于语义考虑不建议添加
print "$n is a negative number.\n" if $n < 0;
expression ? if_true_expr : if_false_expr
given ($ARGV[0]) {
  when ('Fred') { say 'Name is Fred' }
  when (/fred/i) { say 'Name has fred in it' }
  when (/\AFred/) { say 'Name starts with Fred' }
  default { say "I don't see a Fred" }
}
given ($ARGV[0]) {
  # ~~ 智能匹配(由大量关于左右值类型的默认行为决定匹配方式)
  when ($_ ~~ 'Fred') { say 'Name is Fred' }
  when ($_ ~~ /\AFred/) { say 'Name starts with Fred' }
  when ($_ ~~ /fred/i) { say 'Name has fred init' }
  default { say "I don't see a Fred" }
}

sub marine {
  $n += 1; # 所有子程序中的变量都是全局变量
  print "Hello, sailor number $n!\n"; # 返回值
}
&marine; # 调用(calling)子程序
sub marine {
  state $n = 0; # 在Perl 5.10引入的持久性私有变量(等同于其他语言的静态变量static)
  $n += 1;
  print "Hello, sailor number $n!\n";
}
sub sum_of_fred_and_barney {
  print "Hey, you called me";
  $fred + $barney; # 最后一条语句的结果被视作返回值, 也可以用return手动返回(主要用于提前返回)
}
sub max {
  # 第一个参数为$_[0], 第二个参数为$_[1]
  if ($_[0] > $_[1]) {
    $_[0];
  } else {
    $_[1];
  }
}
$n = &max(10, 15);
sub max {
  my($m, $n); # 用my操作符创造词法变量(私有变量)
  ($m, $n) = @_; # 获得子程序的参数, 可以和上一行一起缩写成my($m, $n) = @_;
  if ($m > $n) {
    $m;
  } else {
    $n;
  }
}
sub max {
  my($max_so_far) = shift @_; # 推出第一个参数, 如果参数列表是空的, 则会返回undef, 仍然符合预期行为
  foreach (@_) { # 遍历剩余的参数列表
    if ($_ > $max_so_far) { # 比较$max_so_far和当前的第一个参数
      $max_so_far = $_;
    }
  }
  $max_so_far;
}

# 打印Perl能理解的所有字符编码
$ perl -MEncode -le "print for Encode->encodings(':all')"

use File::Basename;
use File::Basename qw/ basename /; # 部分导入
use File::Spec;
my $new_name = File::Spec->catfile($dirname, $basename);