今日のPerl
公開日:
:
最終更新日:2014/02/04
プログラミング
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
@ARGV = ("/System/Library/Perl/5.8.6/pods/perlfunc.pod");
dbmopen(%DATA, "my_database", 0644)
or die "Cannot create my_database: $!";
%DATA = ();
while(<>){
if(/^=item\s+([a-z_]\w*)/i){
$DATA{$1} = $DATA{$1} || $.;
}
}
dbmclose(%DATA);
print "Done!\n";
関連記事
- PREV
- 第3回 突撃!?Web2.0「株式会社マインディア」
- NEXT
- 今日のPerl