use strict; use warnings; use v5.16; my %docs; my @data; dbmopen %docs, 'mydocs', undef or die $!; open FH, 'C:/perlfunc.pod' or die $!; @data = <FH>; for (@data) { if (/^item\s+(\w+).*$/) { $docs{$1} = $.; } } dbmclose %docs;
In reply to Error when using dbmopen. by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |