Perl 6 单行程序
这本书在进行之中。我希望你能觉得它有趣,甚至可能有用!如果你想贡献反馈的话,那么很欢迎提问题还有新的或有提升的正则表达式。
作者
戴维法瑞尔 PerlTricks.com
版本
版本 0.01
许可
FreeBSD
贡献者
- Alexander Moquin
- Bruce Gray
- Carl Mäsak
- David H. Adler
- FROGGS
- Helmut Wollmersdorfer
- japhb
- Larry Wall
- Matt Oates
- Moritz Lenz
- Mouq
- Salve J Nilsen
- Sam S
- Skids
- timotimo
致谢
启发于 Peteris Krumins 的 Perl 5 example 文件。他逐字逐句地写了一本关于 Perl 5 单行 的书。
irc上有很好地 folks。
内容
- 介绍
- 教程
- 文件间距
- 行号
- 计算
- 创建字符串和创建数组
- 文本转换和替换
- 文本分析
- 选择性的行打印
- 使用管道转换数据(进行中)
- WWW(进行中)
- 转换到 Windows
介绍
把 Perl 和其它语言区别开的一件事情是在单行代码中写小程序的能力,即人们所熟知的"单行"。在终端里直接键入一个程序比写一个废弃的脚本往往更快。并且单行程序也很强大;它们是羽翼丰满的程序,能够加载外部库,但是也能集成到终端中。你可以在单行程序中输入或输出数据。
像 Perl 5 一样, Perl 6支持单行程序。还有就像 Perl 6 到处清理着 Perl 5 的毒瘤一样,Perl 6 的单行语法也更好了。它拥有更少的特殊变量和选项因此更容易记忆。这本书提供了很多有用的 Perl 6 单行例子,从找出文件中得重复行到运行一个 web 服务器,它几乎能做所有事情。尽管 Perl 6 拥有更少的特殊变量,但是由于它高级的面向对象的语法,Perl 6 中的大部分单行程序比等价的 Perl 5 单行程序更短。
这本书可以以多种方式阅读。如果你是单行程序的新手,从教程开始。它带领你掌握单行程序的核心概念;不要担心,一旦你理解了它会很容易。如果你精通 Perl,Bash,或 Sed/Awk,你可以立马开始工作。随意跳过和浏览你所感兴趣的东西。如果有些代码你不理解,那么在终端中试试!这个仓库中包含的无处不在的文件是 example.txt,它会在很多单行程序中用到。
使用单行编程仅仅是 Perl 6 擅长的一个范例。这样的代码小而美,但是同时你正学习的是一种生产力技能,记住你正在学的是一种新的编程语言。检查 perl6.org网站获取官方文档。
教程
要开始单行程序,所有你要掌握的是 -e 选项。这告诉 Perl 把它后面所跟的东西作为一个程序去执行。例如:
perl6 -e 'say "Hello, World!"'
我们来一步步剖析这段代码。 perl6
引用了 Perl 6 程序, -e
告诉 Perl 6 去执行,而 'say "Hello, World!"'
是要执行的程序。每个程序都必须被包围在单引号中(除了在 Windows 上,查看 转换到 Windows)。要运行单行程序,就把它键入到终端中好了:
> perl6 -e 'say "Hello, World!"'
Hello, World!
如果你想加载一个文件,就把文件路径添加到程序代码的后面:
perl6 -e 'for (lines) {say $_}' /path/to/file.txt
这个程序打印出了 path/to/file.txt
的每一行。你可能知道 $_
是默认变量,它在这儿是指正被循环的当前行。lines
是一个列表,当你传递一个文件路径给单行程序的时候会自动为你创建这个列表。现在我们来重写那个单行程序,一步一步。它们都是等价的:
perl6 -e 'for (lines) { say $_ }' /path/to/file.txt
perl6 -e 'for (lines) { $_.say }' /path/to/file.txt
perl6 -e 'for (lines) { .say }' /path/to/file.txt
perl6 -e '.say for (lines)' /path/to/file.txt
perl6 -e '.say for lines' /path/to/file.txt
就像 $_
是默认变量一样,在默认变量身上调用的方法可以省略掉变量引用。它们变成了默认方法。所以 $_.say
变成 .say
。回报给写单行程序的人的东西是 - 更少的键入!
-n
选项改变了程序的行为:它为文件中的每一行执行一次代码。所以,大写并打印 path/to/file.txt
的每一行你会键入:
perl6 -ne '.uc.say' /path/to/file.txt
-p
选项就像 -n
, 除了它会自动打印 $_
之外。所以大写文件中的所有行的另外一种方法是:
perl6 -pe '$_ = .uc' /path/to/file.txt
或者两个做同样事情的更短的版本:
perl6 -pe '.=uc' /path/to/file.txt
perl6 -pe .=uc /path/to/file.txt
在第二个例子中,我们可以完全移除周围的单引号。这种场景很少遇到,但是如果你的单行程序中没有空格并且没有符号或引号,那么你通常可以移除外部的引号。
-n
和 -p
选项真的很有用。本书中也有很多使用它们的单行例子。
最后一件你要知道的事情是怎么加载模块。 -M
开关代表着加载模块:
perl6 -M URI::Encode -e 'say encode_uri("example.com/10 ways to crush it with Perl 6")'
-M URI::Encode
加载了 URI::Encode
模块,它导入了 encode_uri 子例程。 你可以多次使用 -M
来加载多个模块:
perl6 -M URI::Encode -M URI -e ''
如果你有一个还没有安装的本地模块呢? 简单, 仅仅传递一个 -I
开关来包含那个目录好了:
perl6 -I lib -M URI::Encode -e ''
现在 Perl 6 会在 lib
目录中搜索 URI::Encode
模块,和标准的安装位置一样。
要查看 Perl 6 命令行开关有哪些, 使用 -h
选项查看帮助:
perl6 -h
这打印可获得的不错的统计。
文件间距
Double space a file
perl6 -pe '$_ ~= "\n"' example.txt
N-space a file (例如. 4倍空白)
perl6 -pe '$_ ~= "\n" x 4' example.txt
在每一行前面添加一个空行:
perl6 -pe 'say ""' example.txt
移除所有空行:
perl6 -ne '.say if /\S/' example.txt
perl6 -ne '.say if .chars' example.txt
移除所有的连续空白行,只保留一行:
perl6 -e '$*ARGFILES.slurp.subst(/\n+/, "\n\n", :g).say' example.txt
行号
给文件中的所有行编号:
perl6 -ne 'say "{++$} $_"' example.txt
perl6 -ne 'say $*ARGFILES.ins ~ " $_ "' example.txt
只给文件中得非空行编号:
perl6 -pe '$_ = "{++$} $_" if /\S/' example.txt
给所有行编号但是只打印非空行:
perl6 -pe '$_ = $*ARGFILES.ins ~ " $_ " if /\S/' example.txt
打印文件中行数的总数:
perl6 -e 'say lines.elems' example.txt
perl6 -e 'say lines.Int' example.txt
perl6 -e 'lines.Int.say' example.txt
打印出文件中非空行的总数:
perl6 -e 'lines.grep(/\S/.elems.say)' example.txt
打印文件中空行的数量:
perl6 -e 'lines.grep(/^\s*$/).elems.say' example.txt
计算
检查一个数是否是质数:
perl6 -e 'say "7 is prime" if 7.is-prime'
打印一行中所有字段的和:
perl6 -ne 'say [+] .split("\t")'
打印所有行的所有字段的和:
perl6 -e 'say [+] lines.split("\t")'
打乱行中的所有字段:
perl6 -ne '.split("\t").pick(*).join("\t").say'
找出一行中最小的元素:
perl6 -ne '.split("\t").min.say'
找出所有行的最小的元素:
perl6 -e 'lines.split("\t").min.say'
找出一行中最大的元素:
perl6 -ne '.split("\t").max.say'
找出所有行的最大的元素:
perl6 -e 'lines.split("\t").max.say'
找出一行中得数值化最小元素:
perl6 -ne '.split("\t")».Numeric.min.say'
找出一行中得数值化最大元素:
perl6 -ne '.split("\t")».Numeric.max.say'
使用字段的绝对值替换每个字段:
perl6 -ne '.split("\t").map(*.abs).join("\t")'
找出每行中字符的总数:
perl6 -ne '.chars.say' example.txt
找出每行中单词的总数:
perl6 -ne '.words.elems.say' example.txt
找出每行中由逗号分隔的元素的总数:
perl6 -ne '.split(",").elems.say' example.txt
找出所有行的字段(单词)的总数:
perl6 -e 'say lines.split("\t").elems' example.txt # fields
perl6 -e 'say lines.words.elems' example.txt # words
打印匹配某个模式的字段的总数:
perl6 -e 'say lines.split("\t").comb(/pattern/).elems' example.txt # fields
perl6 -e 'say lines.words.comb(/pattern/).elems' example.txt # words
打印匹配某个模式的行的总数:
perl6 -e 'say lines.grep(/in/.elems)' example.txt
打印数字 PI 到 n 位小数点(例如. 10位):
perl6 -e 'say pi.fmt("%.10f");'
打印数字 PI 到 15 位小数点:
perl6 -e 'say π'
打印数字 E 到 n 位小数点(例如. 10位):
perl6 -e 'say e.fmt("%.10f");'
打印数字 E 到 15 位小数点:
perl6 -e 'say e'
打印 UNIX 时间 (seconds since Jan 1, 1970, 00:00:00 UTC)
perl6 -e 'say time'
打印 GMT (格林威治标准时间)和地方计算机时间:
perl6 -MDateTime::TimeZone -e 'say to-timezone("GMT",DateTime.now)'
perl6 -e 'say DateTime.now'
以 H:M:S 格式打印当地计算机时间:
perl6 -e 'say DateTime.now.map({$_.hour, $_.minute, $_.second.round}).join(":")'
打印昨天的日期:
perl6 -e 'say DateTime.now.earlier(:1day)'
打印日期: 14 个月, 9 天,和 7 秒之前
perl6 -e 'say DateTime.now.earlier(:14months).earlier(:9days).earlier(:7seconds)'
在标准输出前加上时间戳(GMT,地方时间):
tail -f logfile | perl6 -MDateTime::TimeZone -ne 'say to-timezone("GMT",DateTime.now) ~ "\t$_"'
tail -f logfile | perl6 -ne 'say DateTime.now ~ "\t$_"'
计算 5 的阶乘:
perl6 -e 'say [*] 1..5'
计算最大公约数:
perl6 -e 'say [gcd] @list_of_numbers'
使用欧几里得算法计算数字 20 和 35 的最大公约数:
perl6 -e 'say (20, 35, *%* ... 0)[*-2]'
计算 20 和 35 的最小公倍数:
perl6 -e 'say 20 lcm 35'
使用欧几里得算法: n*m/gcd(n,m) 计算数字 20 和 35 的最小公倍数:
perl6 -e 'say 20 * 35 / (20 gcd 35)'
生成 10 个 5 到 15(不包括 15)之间的随机数:
perl6 -e '.say for (5..^15).roll(10)'
找出并打印列表的全排列:
perl6 -e 'say .join for [1..5].permutations'
生成幂集
perl6 -e '.say for <1 2 3>.combinations'
把 IP 地址转换为无符号整数:
perl6 -e 'say :256["127.0.0.1".comb(/\d+/)]'
perl6 -e 'say +":256[{q/127.0.0.1/.subst(:g,/\./,q/,/)}]"'
perl6 -e 'say Buf.new(+«"127.0.0.1".split(".")).unpack("N")'
把无符号整数转换为 IP 地址:
perl6 -e 'say join ".", @(pack "N", 2130706433)'
perl6 -e 'say join ".", map { ((2130706433+>(8*$_))+&0xFF) }, (3...0)'
创建字符串和创建数组
生成并打印字母表:
perl6 -e '.say for "a".."z"'
生成并打印所有从 "a" 到 "zz" 的字符串:
perl6 -e '.say for "a".."zz"'
把整数转换为十六进制:
perl6 -e 'say 255.base(16)'
perl6 -e 'say sprintf("%x", 255)'
把整数打印为十六进制转换表:
perl6 -e 'say sprintf("%3i => %2x", $_, $_) for 0..255'
把整数编码为百分数:
perl6 -e 'say sprintf("%%%x", 255)'
生成一个随机的 10 个 a-z 字符长度的字符串:
perl6 -e 'print roll 10, "a".."z"'
perl6 -e 'print roll "a".."z": 10'
生成一个随机的 15 个 ASCII 字符长度的密码:
perl6 -e 'print roll 15, "0".."z"'
perl6 -e 'print roll "0".."z": 15'
创建一个指定长度的字符串:
perl6 -e 'print "a" x 50'
生成并打印从 1 到 100 数字为偶数的数组:
perl6 -e '(1..100).grep(* %% 2).say'
找出字符串的长度:
perl6 -e '"storm in a teacup".chars.say'
找出数组的元素个数:
perl6 -e 'my @letters = "a".."z"; @letters.Int.say'
文本转换和替换
对文件进行 ROT 13 加密:
perl6 -pe 'tr/A..Za..z/N..ZA..Mn..za..m/' example.txt
对字符串进行 Base64 编码:
perl6 -MMIME::Base64 -ne 'print MIME::Base64.encode-str($_)' example.txt
对字符串进行 Base64 解码:
perl6 -MMIME::Base64 -ne 'print MIME::Base64.decode-str($_)' base64.txt
对字符串进行 URL 转义:
perl6 -MURI::Encode -le 'say uri_encode($string)'
URL-unescape a string
perl6 -MURI::Encode -le 'say uri_decode($string)'
HTML-encode a string
perl6 -MHTML::Entity -e 'print encode-entities($string)'
HTML-decode a string
perl6 -MHTML::Entity -e 'print decode-entities($string)'
把所有文本转换为大写:
perl6 -pe '.=uc' example.txt
perl6 -ne 'say .uc' example.txt
把所有文本转换为小写:
perl6 -pe '.=lc' example.txt
perl6 -ne 'say .lc' example.txt
只把每行的第一个单词转换为大写:
perl6 -ne 'say s/(\w+){}/{$0.uc}/' example.txt
颠倒字母的大小写:
perl6 -pe 'tr/a..zA..Z/A..Za..z/' example.txt
perl6 -ne 'say tr/a..zA..Z/A..Za..z/.after' example.txt
对每行进行驼峰式大小写:
perl6 -ne 'say .wordcase' example.txt
在每行的开头去掉前置空白(空格、tabs):
perl6 -ne 'say .trim-leading' example.txt
从每行的末尾去掉结尾的空白(空格、tabs):
perl6 -ne 'say .trim-trailing' example.txt
从每行中去除行首和行尾的空白:
perl6 -ne 'say .trim' example.txt
把 UNIX 换行符转换为 DOS/Windows 换行符:
perl6 -ne 'print .subst(/\n/, "\r\n")' example.txt
把 DOS/Windows 换行符转换为 UNIX 换行符:
perl6 -ne 'print .subst(/\r\n/, "\n")' example.txt
把每行中所有的 "ut" 实体用 "foo" 替换掉:
perl6 -pe 's:g/ut/foo/' example.txt
把包含 "lorem" 的每行中所有的 "ut" 实体用 "foo" 替换掉:
perl6 -pe 's:g/ut/foo/ if /Lorem/' example.txt
把文件转换为 JSON 格式:
perl6 -M JSON::Tiny -e 'say to-json(lines)' example.txt
从文件的每一行中随机挑选 5 个单词:
perl6 -ne 'say .words.pick(5)' example.txt
文本分析
Print n-grams of a string
perl6 -e 'my $n=2; say "banana".comb.rotor($n,$n-1).map({[~] @$_})'
打印唯一的 n-grams
```Bash
perl6 -e 'my $n=2; say "banana".comb.rotor($n,$n-1).map({[~] @$_}).Set.sort'
打印 n-grams 的出现次数:
perl6 -e 'my $n=2; say "banana".comb.rotor($n,$n-1).map({[~] @$_}).Bag.sort.join("\n")'
打印单词的出现次数(1-grams):
perl6 -e 'say lines[0].words.map({[~] @$_}).Bag.sort.join("\n")' example.txt
基于一组 1-grams 打印 Dice 相似系数:
perl6 -e 'my $a="banana".comb;my $b="anna".comb;say ($a (&) $b)/($a.Set + $b.Set)'
基于 1-grams 打印卡得杰相似系数:
perl6 -e 'my $a="banana".comb;my $b="anna".comb;say ($a (&) $b) / ($a (|) $b)'
基于 1-grams 打印重叠系数:
perl6 -e 'my $a="banana".comb;my $b="anna".comb;say ($a (&) $b)/($a.Set.elems,$b.Set.elems).min'
基于 1-grams 打印类似的余弦:
perl6 -e 'my $a="banana".comb;my $b="anna".comb;say ($a (&) $b)/($a.Set.elems.sqrt*$b.Set.elems.sqrt)'
# 上面的命令提示 Seq 已经被消费
perl6 -e 'my $a="banana".comb;my $b="anna".comb;say ($a.cache (&) $b.cache)/($a.cache.Set.elems.sqrt*$b.cache.Set.elems.sqrt)'
创建字符串中字符的索引并打印出来:
perl6 -e 'say {}.push: %("banana".comb.pairs).invert'
创建一行中单词的所以并打印出来:
perl6 -e '({}.push: %(lines[0].words.pairs).invert).sort.join("\n").say' example.txt
选择性的行打印
打印文件的第一行(模仿 head -1):
perl6 -ne '.say;exit' example.txt
perl6 -e 'lines[0].say' example.txt
perl6 -e 'lines.shift.say' example.txt
打印文件的前 10 行(模仿 head -10)
perl6 -pe 'exit if ++$ > 10' example.txt
perl6 -ne '.say if ++$ < 11' example.txt
打印文件的最后一行(模仿 tail -1):
perl6 -e 'lines.pop.say' example.txt
打印文件的最后 5 行(模仿 tail -5):
perl6 -e '.say for lines[*-5..*]' example.txt
只打印包含元音的行:
perl6 -ne '/<[aeiou]>/ && .print' example.txt
打印包含所有元音的行:
perl6 -ne '.say if .comb (>=) ' example.txt
perl6 -ne '.say if .comb ⊇ ' example.txt
打印字符数大于或等于 80 的行:
perl6 -ne '.print if .chars >= 80' example.txt
perl6 -ne '.chars >= 80 && .print' example.txt
只打印第二行:
perl6 -ne '.print if ++$ == 2' example.txt
打印除了第二行的所有行:
perl6 -pe 'next if ++$ == 2' example.txt
打印第一行到第三行之间的所有行:
perl6 -ne '.print if (1..3).any == ++$' example.txt
打印两个正则表达式之间(包含匹配那个正则表达式的行)的所有行:
perl6 -ne '.print if /^Lorem/../laborum\.$/' example.txt
打印最长的行的长度:
perl6 -e 'say lines.max.chars' example.txt
perl6 -ne 'state $l=0; $l = .chars if .chars > $l;END { $l.say }' example.txt
打印长度最长的行:
perl6 -e 'say lines.max' example.txt
perl6 -e 'my $l=""; for (lines) {$l = $_ if .chars > $l.chars};END { $l.say }' example.txt
打印包含数字的所有行:
perl6 -ne '.say if /\d/' example.txt
perl6 -e '.say for lines.grep(/\d/)' example.txt
perl6 -ne '/\d/ && .say' example.txt
perl6 -pe 'next if ! $_.match(/\d/)' example.txt
打印只包含数字的所有行:
perl6 -ne '.say if /^\d+$/' example.txt
perl6 -e '.say for lines.grep(/^\d+$/)' example.txt
perl6 -ne '/^\d+$/ && .say' example.txt
perl6 -pe 'next if ! $_.match(/^\d+$/)' example.txt
打印每个奇数行:
perl6 -ne '.say if ++$ % 2' example.txt
打印每个偶数行:
perl6 -ne '.say if ! (++$ % 2)' example.txt
打印所有重复的行:
perl6 -ne 'state %l;.say if ++%l{$_}==2' example.txt
打印唯一的行:
perl6 -ne 'state %l;.say if ++%l{$_}==1' example.txt
打印每一行中的第一个字段(单词)(模仿 cut -f 1 -d ' ')
perl6 -ne '.words[0].say' example.txt
使用管道转换数据
Perl 6程序直接集成到了命令行中。你可以使用 | 管道符号从单行程序中输出数据和输入数据到单行程序中。为了 从管道中输入数据, Perl 6 自动地把 STDIN 设置为 $*IN
。就像对文件那样,从管道输入的数据在单行中也能使用 -n
来进行循环迭代。从单行程序中输出数据就使用 print 或 say 好了。
在当前目录中对所有文件进行 JSON 编码:
ls | perl6 -M JSON::Tiny -e 'say to-json(lines)'
打印文件中的大约 5% 的随机样本行:
perl6 -ne '.say if 1.rand <= 0.05' /usr/share/dict/words
颜色转换, 从 HTML 到 RGB
echo "#ffff00" | perl6 -ne '.comb(/\w\w/).map({:16($_)}).say'
颜色转换, 从 RGB 到 HTML
echo "#ffff00" | perl6 -ne '.comb(/\w\w/).map({:16($_)}).say'
WWW
下载一个页面:
perl6 -M HTTP::UserAgent -e 'say HTTP::UserAgent.new.get("google.com").content'
下载一个页面并剥离 HTML:
wget -O - "http://perl6.org" | perl6 -ne 's:g/\<.+?\>//.say'
下载一个页面并剥离并解码 HTML:
wget -O - "http://perl6.org" | perl6 -MHTML::Strip -ne 'strip_html($_).say'
开启一个简单地 web 服务器:
perl6 -M HTTP::Server::Simple -e 'HTTP::Server::Simple.new.run'
转换到 Windows
一旦你知道了里面的门道之后那么在 Windows 上运行单行程序就是小草一碟。单行程序既可以在 cmd.exe 中运行,又可以在 Powershell 中运行。主要的规则是:用双引号替换掉外部的单引号,在单行程序的内部使用插值引用操作符 qq//
来把字符串括起来。对于非插值的引起,你可以使用单引号。我们来看几个例子。
这儿有一个打印时间的单行程序:
perl6 -e 'say DateTime.now'
要在 Windows 上运行,我们仅仅用双引号替换掉单引号好了:
perl6 -e "say DateTime.now"
这个单行程序给文件中每一行添加了一个换行符,使用了插值字符串:
perl6 -pe '$_ ~= "\n"' example.txt
在 Windows 上这应该写为:
perl6 -pe "$_ ~= qq/\n/" example.txt
这种情况下,我们想对换行符进行插值,并且不为该行字面地添加反斜线和字符"n",所以我们必须使用 qq。但是你通常也可以像这样在单行程序中使用单引号:
perl6 -e 'say "Hello, World!"'
在 Windows 上这应该写为:
perl6 -e "say 'hello, World!'"
简单地输出重定向工作起来像基于 Unix 系统那样。 这个单行程序使用 >
把 ASCII 字符索引表打印到一个文件中:
perl6 -e "say .chr ~ ' ' ~ $_ for 0..255" > ascii_codes.txt
在使用 >
的时候,如果文件不存在就会创建一个。如果文件确实存在,它会被重写。你可能更想追加到文件,使用 >>
代替。