16章(単純なデータベース) 練習問題３

問題2のプログラムを改造して、データベースから関数を見つけたら、あなたのお気に入りのページャプログラムを起動して、perlfunc.podファイルのその行を見られるようにしてください。

自作コードはこちらです。

#!/usr/bin/perl
use strict;
use warnings;

my $function = shift;
dbmopen(my %DATA, "perlfunc", 0644) or die "cannot open perlfunc: ($!)";
if ($DATA{$function}) {
    exec "meadow +$DATA{$function} C:/Perl/lib/pod/perlfunc.pod";
}
else {
    print "$functionは存在しません\n";
}

引数にコマンド名を与えると以下のように表示されます（例えばpop）。

大丈夫そうですね。
解答はどうなってるかな。

うむ、ほぼ同じ。
OKですね。