Update:

I have figured it out.

On windows, two files are created called wordcount.dir and wordcount.pag and this is NOT the same name as the program.

On Linux, one file is created, and I have called it the same name as the program, so it can't write to itself. As soon as I change the DB name to say, wordcound_db, all is fine.

I'm sure this must be in the port docs somewhere. Going off to check.

Gavin.

Dear all,

I am playing with DBM files, in the hope to benchmark my wordcount program using DBM files, and then using a full blown database. But, first things first:

The following code works fine on Windows (ActiveState 5.8.6), and then on Linux, after using dos2unix, it says it can't find the DB file?

The wordlist, which actually doesn't have any duplicates in it yet, is called english_words

#!/usr/bin/perl
use strict;
use warnings;

# Basename of Simple Database file
my $DBFILE = 'wordcount';

# open database, accessed through %WORDS
dbmopen (my %WORDS, $DBFILE, 0666)
    or die "Can't open $DBFILE: $!\n";

# Make a word frequency counter
while (<>) {
    while ( /(\w['\w-]*)/g ) {
        $WORDS{lc $1}++;
    }
}

# Output hash in a descending numeric sort of its values
foreach my $word ( sort { $WORDS{$b} <=> $WORDS{$a} } keys %WORDS) {
    printf "%5d %s\n", $WORDS{$word}, $word;
}

# Close the database
dbmclose %WORDS;
[download]

Thanks,

Gavin.