今日のPerl
公開日:
:
最終更新日:2014/02/04
未分類
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
print "Please input function name:";
$func_name = <>;
chomp($func_name);
dbmopen(%DATA, "my_database", 0644)
or die "Cannot create my_database: $!";
$line_num = $DATA{$func_name};
dbmclose(%DATA);
if($line_num){
# print "line num is $line_num\n";
system("less +$line_num /System/Library/Perl/5.8.6/pods/perlfunc.pod");
}else{
print "not found...\n";
}