Re: Can I auto-save and restore global variables?

[davido]

You could tie a variable to a class that writes to and reads from some persistent storage. Storable might facilitate serializing to your persistent storage, for example. Just don't expect to see impressive throughput. If you dont need to save to persistent storage local is probably an adequate solution. We really would need to know the use case.

[kennethk]

Recent, tangentially relevant thread: Perl data notation.

[davehorsfall]

OK, here's the gory details. Consider a 3x3 grid of shuffled letters; the goal is to generate all words, 4-9 letters long, each containing the centre letter. Proper nouns are not allowed, and neither are plurals ending in "s" (I can't do much about that, but at least I print a warning).

I gobble up all words fitting the criteria from as many free dictionaries as I can find (Chambers is supposed to be used, but it ain't available nor is it free). Each word is letter-sorted (the slowest part of the operation) and hashed; the value is a reference to an anonymous array of its anagrams as they're found. Still with me? I then dig out all permutations of those letters (8P(3..8) plus the centre letter), sort them and print them.

Some (revised) code snippets; avert thine eyes if BSD-style formatting offends thee:

$Data::Dumper::Terse = 1; # Briefer - looks nice (no silly $VARnnn)
...
print "\n### words ###\n", Dumper(%words)
    if ($Dbits & $D_WORDS);
...
if ($stats_required)
{
    ...
    if ($Dbits & $D_LENGTHS)
    {
        local $Data::Dumper::Indent = 0;
        local $Data::Dumper::Pad = ' ';
        print "\n### lengths ###\n", Dumper(@lengths), "\n";
    }
    ...
}

Hope that's clear.

In the unlikely event of being bored, I'll think about something like:

$Data::Dumper::Push(Indent Pad) # Save these
...
$Data::Dumper::Pop() # Restore everything

but "local" is just as good.

-- Dave

[Anonymous Monk]

Data::Dumper is more flexible than you think :)

sub dd {
  use Data::Dumper;
  print Data::Dumper->new([@_])->Sortkeys(1)
    ->Indent(1)->Useqq(1)->Dump . "\n";
}

[davehorsfall]

Gawd... I'm gonna have to start using OO Perl; I'm familiar with C++ etc, but I have a strong C background.

Thanks for the brief tutorial :-)

-- Dave