Parameters passed at the command line are in the @ARGV
array. Just assign the names from there. You can shift
them off quite easily. If you want to want to be able to
check multiple files at once, shift off the dictionary
file then put the remainder of @ARGV into an array
the you can cycle through.

Here's a "spell check" script I had written if you are
interested. It assumes the dictionary will have one word
pair per line with some sort of delimiter between words,
(set to ', ' currently.) Feed the script the dictionary
file and a list of files to check and it will cycle
through them, checking each.

It is fairly efficient, especially as the dictionary
grows large; and is pretty good about error trapping.
It is Unicode aware.

Use or modify as you like.



#!/usr/bin/perl

use strict;
use warnings;
use File::Temp qw/ tempfile /;
++$|;

my $usage = "Usage: $0 (Dictionary file) (file list)n";

die $usage if (@ARGV < 2);

my $dictionary_file = shift;
# Get the dictionary file name

my @checkfiles = @ARGV;
# and the names of the files to check.

my %dictionary;
# Set up a hash to hold the dictionary.

my $dictionary_delimiter = ', ';
# Set up the delimiter separating word pairs.
# Dependent on how your file is set up,
# adjust accordingly.


load_dictionary();

for (@checkfiles){
spellcheck($_)
}

############################################################
sub load_dictionary{

print "Loading Dictionary $dictionary_file...nn";

open my $dict, '<', $dictionary_file or die
"Could not open dictionary file; $!.n";

while (<$dict>){
s/^s+//;
s/s+$//;
if (m/([p{Alnum}']+)$dictionary_delimiter([p{Alnum}']+)/){
$dictionary{$1} = $2;
}
}
}
############################################################
sub spellcheck{
my $filename = shift;
my $file;

print "Checking file $filename... ";

unless (open $file, '<', $filename){
warn "Could not open file $filename; $!.n";
return;
}

my ($temphandle, $tempfile) = tempfile();

while (<$file>){

my $saveline = $_;

# Need to preserve words with ' in them so do
# a little dancing to get rid of all punctuation
# except ' inside a word. x{A0} is a non breaking
# space. For spell checking purposes, they are
# unimportant. Get rid of any, convert ' inside a
# word to nbs, remove all remaining punctuation
# then convert back. A pain, but necessary.

s/x{A0}/ /g;
s/(?<=w)'(?=w)/x{A0}/g;
s/p{Punct}/ /g;
s/x{A0}/'/g;

# Now split the words into an array
my @words = split(/s+/, $_);

# and substitute as necessary.
for (@words){
$saveline =~ s/(?<=P{Alnum})$_(?=P{Alnum})/$dictionary{$_}/g
if defined $dictionary{$_};
}

print $temphandle $saveline;
}
close $file;
close $temphandle;

unlink $filename.'.bak' if (-e $filename.'.bak') or
die "Couldn't overwrite backup file $filename.bak.n";

rename $filename, $filename.'.bak' or
die "Couldn't save backup file $filename.bak.n";

rename $tempfile, $filename or
die "Couldn't save file $filename.n";

print "Done.n"
}
############################################################

(Arrgh, That last post I made had horrible formatting.
Let me try this again.)

Parameters passed at the command line are in the @ARGV
array. Just assign the names from there. You can shift
them off quite easily. If you want to want to be able to
check multiple files at once, shift off the dictionary
file then put the remainder of @ARGV into an array the
you can cycle through.

Here's a "spell check" script I had written if you are
interested. It assumes the dictionary will have one word
pair per line with some sort of delimiter between words,
(set to ', ' currently.) Feed the script the dictionary
file and a list of files to check and it will cycle
through them, checking each.

It is fairly efficient, especially as the dictionary
grows large; and is pretty good about error trapping.
It is Unicode aware.

Use or modify as you like.




#!/usr/bin/perl

use strict;
use warnings;
use File::Temp qw/ tempfile /;
++$|;

my $usage = "Usage: $0 (Dictionary file) (file list)n";

die $usage if (@ARGV < 2);

my $dictionary_file = shift;
# Get the dictionary file name

my @checkfiles = @ARGV;
# and the names of the files to check.

my %dictionary;
# Set up a hash to hold the dictionary.

my $dictionary_delimiter = ', ';
# Set up the delimiter separating word pairs.
# Dependent on how your file is set up,
# adjust accordingly.


load_dictionary();

for (@checkfiles){
spellcheck($_)
}

############################################################
sub load_dictionary{

print "Loading Dictionary $dictionary_file...nn";

open my $dict, '<', $dictionary_file or die
"Could not open dictionary file; $!.n";

while (<$dict>){
s/^s+//;
s/s+$//;
if (m/([p{Alnum}']+)$dictionary_delimiter([p{Alnum}']+)/){
$dictionary{$1} = $2;
}
}
}
############################################################
sub spellcheck{
my $filename = shift;
my $file;

print "Checking file $filename... ";

unless (open $file, '<', $filename){
warn "Could not open file $filename; $!.n";
return;
}

my ($temphandle, $tempfile) = tempfile();

while (<$file>){

my $saveline = $_;

# Need to preserve words with ' in them so do
# a little dancing to get rid of all punctuation
# except ' inside a word. x{A0} is a non breaking
# space. For spell checking purposes, they are
# unimportant. Get rid of any, convert ' inside a
# word to nbs, remove all remaining punctuation
# then convert back. A pain, but necessary.

s/x{A0}/ /g;
s/(?<=w)'(?=w)/x{A0}/g;
s/p{Punct}/ /g;
s/x{A0}/'/g;

# Now split the words into an array
my @words = split(/s+/, $_);

# and substitute as necessary.
for (@words){
$saveline =~ s/(?<=P{Alnum})$_(?=P{Alnum})/$dictionary{$_}/g
if defined $dictionary{$_};
}

print $temphandle $saveline;
}
close $file;
close $temphandle;

unlink $filename.'.bak' if (-e $filename.'.bak') or
die "Couldn't overwrite backup file $filename.bak.n";

rename $filename, $filename.'.bak' or
die "Couldn't save backup file $filename.bak.n";

rename $tempfile, $filename or
die "Couldn't save file $filename.n";

print "Done.n"
}
############################################################