perleager has asked for the wisdom of the Perl Monks concerning the following question:
use DB_File; # optional; overrides default tie %who, "DB_File", "$path/whosonline" or die "Can't open FILENAME: $ +!\n"; # open database, to be accessed through %HASH # close the database $rank = "0"; foreach $mename (keys %who){ if (-d "$free_path/$mename") { $rank++; print <<EOF; <a href="http://www.teen-reality.com/members/$mename">$mename</a><b>*< +/b>, EOF if ($rank eq "15") { print <<EOF; <a href="http://www.teen-reality.com/members/$mename">$mename<b>*</b>< +/a> ... <a href="http://www.teen-reality.com">more</> EOF last; } else { next; } } else { next; } } untie %who;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Reading a DBM file on Windows Machine
by chromatic (Archbishop) on May 21, 2001 at 07:08 UTC | |
by perleager (Pilgrim) on May 21, 2001 at 23:07 UTC |