常调侃Perl代码是加密与不加密长得一样的编程语言,可否有例子?

但是超级喜欢perl风格的正则表达式, 感觉没有难读在哪

---

    my $A =
      [ [ "bj", 100, 101, 102 ],
        [ "sh", 200, 201, 202 ],
        [ "gz", 300, 301, 302 ] ];




    my $B = [ map { my $i = $_; [ map $_->[$i], @$A ] } 0 .. $#{ $A->[0] } ];

---

说起perl的正则不得不说一下libpcre这个库，经常编译一些软件的时候都要依赖这个库。

pcre全称叫做
Perl Compatible Regular Expressions

---

@lines = `perldoc -u -f atan2`;
for (@lines) {
    s/\w<([^>]+)>/\U$1/g;
    print;
}

就用Perl入门第一章的例子吧