假如我有多個文本文件, 我要寫一段腳本來進行替換操作。在命令行中提供一些列選項供配置。文本格式如下:

Perl 6 很靈活
Perl 6 很強大
Perl 6 很復雜

I 123 Love Perl Six
盡管它456還很稚嫩789
對了, 它的 logo 是一個可愛的456花蝴蝶。

我想把每行中第一次出現的 3 位數字替換為 "在木星"。

@蘑菇 的腳本:

use v6;
use MONKEY-SEE-NO-EVAL;

sub MAIN(Str :$regex, Str :$substr, Str :$ext = '.out', Int :$ignore-line = 0, *@files) {
    for @files -> $file {
        my $out = open $file ~ ".out", :w; # 寫入文件

        for $file.IO.lines.kv -> $index, $line is copy {
            next if $index <= $ignore-line; # 忽略前 $ignore-line幾行
            $line ~~ EVAL "s/" ~ $regex ~ "/" ~ $substr ~ "/"; # 根據正則表達式進行替換
            say $/;
            $out.say($line);
        }
        $out.close;
    }
}

查看本腳本的用法

perl6 colon_in_signature.p6 --help

Usage:
colon_in_signature.p6 [-r|--regex=<Str>] [-s|--substr=<Str>] [-e|--ext=<Str>] [-i|--ignore-line=<Int>] [<files> ...]

可以看出命令行選項有短名稱(如 -r)和長名稱(如 --regex)。我們使用的時候可以使用短名稱:

> perl6 colon_in_signature.p6  -r="\d ** 3" -s="在木星" -i=2 1.txt 2.txt 3.txt

也可以使用長名稱:

> perl6 colon_in_signature.p6  --regex="\d ** 3" --substr="在木星" --ignore-line=2 1.txt 2.txt 3.txt

也可以只使用長名稱, 但是我們需要修改下 MAIN 函數:

sub MAIN(Str :$regex, Str :$substr, Str :$ext = '.out', Int :$ignore-line = 0, *@files)

再次查看幫助:

perl6 colon_in_signature.p6 --help

Usage:
colon_in_signature.p6 [--regex=<Str>] [--substr=<Str>] [--ext=<Str>] [--ignore-line=<Int>] [<files> ...]

方括號表示該選項是可選的。但是現在只有長名稱:

> perl6 colon_in_signature.p6 --regex="\d ** 3" --substr="在木星" 1.txt 2.txt 3.txt

也能既有長名又有短名:

sub MAIN(Str :r(:$regex), Str :$substr, Str :$ext = '.out', Int :$ignore-line = 0, *@files) 

這其中的原理是什么呢? MAIN 在處理命令行參數時, 是把選項當作散列來用的:

• 帶短名稱

> my $regex = '\d ** 3' #->  \d ** 3
> :r(:$regex)           #->  r => regex => \d ** 3

• 不帶短名稱

> (:$regex)            #->   regex => \d ** 3

:r(:$regex) 擁有一長一短兩個鍵, (:$regex) 只擁有一個長鍵。