Perl 6编程实践与应用

原创

于 2025-09-16 10:57:01 发布 · 295 阅读

10 ·

CC 4.0 BY-SA版权

文章标签：

#Perl 6 # 文件处理 # 模块管理

49、编写一个程序来统计文本文件中单词的出现次数。该程序应将单词规范化（转换为小写），并按出现次数降序打印单词及其计数。

以下是参考代码：

use v6;
sub MAIN ( $file = 'your_file.txt' ) {
    my %word-count;
    for $file.IO.lines {
        for .words {
            my $word = lc($_);
            %word-count{$word}++;
        }
    }
    for %word-count.keys.sort( { %word-count{$^a} } ).reverse {
        printf "%4d %s\n", %word-count{$_}, $_;
    }
}

将 'your_file.txt' 替换为实际的文件路径，该程序会读取文件，统计单词出现次数并按要求输出。

50、创建一个程序，读取包含属 - 种对（每行一对）的文件，并统计每个属内每个种的出现次数。按每个属内种的数量排序，然后按每个属内种的计数排序，打印结果。

以下是实现该功能的程序：

my $file = @*ARGS[0] // 'butterfly_census.txt';
my %census;
for $file.IO.lines -> $line {
    my ( $genus, $species ) = $line.words;
    %census{$genus}{$species}++;
}
for %census.keys.sort( {%census{$_}.elems} ).reverse -> $genus {
    put $genus;
    my $seq := %census{$genus}.keys.sort( {%census{$genus}{$_}} );
    for $seq.reverse -> $species {
        ( "\t", $species, %census{$genus}{$species} ).join( ' ' ).put
    }
}

该程序首先读取指定文件（默认为 butterfly_census.txt ）的每一行，将每行拆分为属和种，并统计每个属内每个种的出现次数。然后按每个属内种的数量降序排序，对于每个属，按种的计数降序排序并打印结果。

51、修改上一个程序，将输出写入文件而不是打印到标准输出。

可使用 spurt 函数将输出写入文件。若要覆盖已有文件内容，使用 spurt $path, $data ；若要追加内容，使用 spurt $path, $data, :append ；若仅在文件不存在时写入，使用 spurt $path, $data, :exclusive 。也可手动打开文件，如 my $fh = open $path, :w ，然后用 $fh.print: $data 写入数据。

52、如何查看环境和命令行开关选项的存储库位置？

可以使用如下程序查看：

for $*REPO.repo-chain -> $item {
    say $item;
}

将其保存为文件（如 repo.p6 ）后运行：

% perl6 repo.p6

也可以在不同设置下运行该程序，如：

使用 PERL6LIB 环境变量：

bash % export PERL6LIB=/opt/lib

使用 -I 开关：

bash % perl6 -I/usr/local/lib repo.p6

在 Windows 上设置 PERL6LIB ：

cmd C:\ set PERL6LIB=C:\MyPerl6

然后运行程序查看存储库位置。

53、如何检查一个模块是否已安装？如何列出所有可用模块并获取特定模块的信息？

检查模块是否已安装：创建依赖规范并将其传递给 $*REPO.resolve ，如果返回值为真，则模块已安装。示例代码如下：

sub MAIN (Str $module-name) {
    my $ds = CompUnit::DependencySpecification.new: :short-name($module-name);
    put "$module-name is{ $*REPO.resolve( $ds ) ?? '' !! ' not' } installed";
}

列出所有可用模块：使用 zef list