I had a similar task the other day (although it was dbm, it could just
as well have been a text file). I had a bunch of information in these files that I needed to strip out and place in a hash -- namely county codes and their corresponding email aliases. Sounds like you would just need to modify this by using
opendir /
readdir etc as pointed out by
chanio and
prasadbabu to avoid hard coding the file name(s) and allow traversing the directory.
Post some of your code and we can help you more, til then here is a little snippet that can give you something to start with:
#!/usr/bin/perl -wT
dbmopen(%ISO_Country, "ISO_Country", 0777)
or die "Cannot create ISO_Country: $1\n\n";
dbmopen(%ISO_Email, "ISO_Email", 0777)
or die "Cannot create ISO_Email: $1\n\n";
open FNAME, $ARGV[0]
or die "Cannot locate file $ARGV[0]: $1";
while ($line = <FNAME>){
chop($line);
@data = split /\t/, $line;
$ISO_Country{$data[0]} = $data[1];
$ISO_Email{$data[0]} = $data[2];
}
&displayData;
dbmclose(%ISO_Country);
dbmclose(%ISO_Email);
sub displayData{
while (($key, $value) = each %ISO_Country){
print "ISO($key), Country($value)\n";
}
while (($key, $value) = each %ISO_Email){
print "ISO($key), Email($value)\n";
}
}
...
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.