Convert::AcrossLite 0.08 review

License: Perl Artistic License File size: 9K Developer: Doug Sparling

0

Convert::AcrossLite is a Perl module to convert binary AcrossLite puzzle files to text.

SYNOPSIS

use Convert::AcrossLite;

my $ac = Convert::AcrossLite->new();
$ac->in_file('/home/doug/puzzles/Easy.puz');
$ac->out_file('/home/doug/puzzles/Easy.txt');
$ac->puz2text;

or

use Convert::AcrossLite;

my $ac = Convert::AcrossLite->new();
$ac->in_file('/home/doug/puzzles/Easy.puz');
my $text = $ac->puz2text;

or

use Convert::AcrossLite;

my $ac = Convert::AcrossLite->new();
$ac->in_file('/home/doug/puzzles/Easy.puz');
my $ac->parse_file;
my $title = $ac->get_title;
my $author = $ac->get_author;
my $copyright = $ac->get_copyright;
my @solution = $ac->get_solution;
my @diagram = $ac->get_diagram;
my $across_clues = $ac->get_across_clues;
my $down_clues = $ac->get_down_clues;

or

use Convert::AcrossLite;

my $ac = Convert::AcrossLite->new();
$ac->in_file('/home/doug/puzzles/Easy.puz');

my($across_hashref, $down_hashref) = get_across_down;

my %across= %$across_hashref;
foreach my $key (sort { $a $b } keys %across) {
print "Direction: $across{$key}{direction}n";
print "Clue Number: $across{$key}{clue_number}n";
print "Row: $across{$key}{row}n";
print "Col: $across{$key}{column}n";
print "Clue: $across{$key}{clue}n";
print "Solution: $across{$key}{solution}n";
print "Length: $across{$key}{length}nn";
}

my %down= %$down_hashref;
foreach my $key (sort { $a $b } keys %down) {
print "Direction: $down{$key}{direction}n";
print "Clue Number: $down{$key}{clue_number}n";
print "Row: $down{$key}{row}n";
print "Col: $down{$key}{column}n";
print "Clue: $down{$key}{clue}n";
print "Solution: $down{$key}{solution}n";
print "Length: $down{$key}{length}nn";
}

Convert::AcrossLite is used to convert binary AcrossLite puzzle files to text.

Requirements:
Perl