To elaborate on the unhelpful answer, output from Data::Dumper looks something like this:

$VAR1 = {
          'stuhl' => 'wecker',
          'tisch' => 'teppich',
          'bett' => 'bild'
        };
[download]

Let's say you've put that in a file named, helpfully, file1. Assuming there's nothing too weird in there, you can load it up and "convert it to binary" with Storable like so:

use Storable;
do 'file1';
store $VAR1, 'file2';
[download]

You now have a "binary file" named file2. Let's see what's in there.

>less file2
"file2" may be a binary file.  See it anyway? y
pst0^D 12345678^D^H^H^H^C^C^@^@^@
^Fwecker^E^@^@^@stuhl
^Dbild^D^@^@^@bett
^Gteppich^E^@^@^@tisch
[download]

Some words from the original file, and some binary gunk. But I doubt that helps you very much, so, to repeat roboticus, what do you want to do with this?

This is exactly what im trying to do except the fact that I got the following error when running what you suggested:


not a reference at C:\Users\myName\Documents\perl\Mycode.pl line 419.
in this case its : store $VAR1, 'MYFILE_2';
[download]

My Dump output is exactly as what you mentioned, nothing weird in it. Anyways here is my piece of code for this:


print MYFILE Dumper($data);

do 'MIFILE';
store $VAR1, 'MYFILE_2';

close (MYFILE);
close (MYFILE2);
[download]

do I need to use \% for VAR1 ?
im running this on windows and Linux

maybe related:  do 'MIFILE';  should be  do 'MYFILE';

Thats a typo sorry "MIFILE"

No need to round-trip $data through Data::Dumper, you can just use

store $data, 'MYFILE_2';

... but maybe $data should be \%something.

roboticus thanks for explaining. That was helpful.
As you can see from my response below all im trying to do is use the command "store" on hash table that is stored in file.
what is the proper way to do this? Or how can I store my Dumper output in a variable properly.
tried this but didn't work where is my problem ?

#CODE1
$data = $xml->XMLin("output.xml");
my $hash_table = Dumper($data);

store \%hash_table, 'binary_hash.txt';
[download]

#CODE2
$data = $xml->XMLin("output.xml");
print MYFILE Dumper($data);

store MYFILE, 'binary_hash.txt';
[download]

zak_s:

Dumper only displays the data in readable form. The store function writes it into a file in such a way that retrieve can get it back out. Here's a quick example that stores a data structure to a file:

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

# You'll get it via XMLin, I just hardcoded some data
my $data = { foo=>'bar', bim=>'bam' };

store $data, 'MyFile.data';
[download]

Now, when we have another program that wants to use the data, we just retrieve it first:

#!/usr/bin/perl
use strict;
use warnings;
use Storable;
use Data::Dumper;

my $ref = retrieve('MyFile.data');

print Dumper($ref);
[download]

We're only using Data::Dumper to display the data, you won't need it in either of your scripts unless you need to print it to the screen for debugging. (Which is what I often do.)

...roboticus

When your only tool is a hammer, all problems look like your thumb.

Thanks a lot for all of you. Worked!
I have no idea what I did wrong last time for this not to work even though I tried it.

use XML::Simple;
use Storable;
$data = XMLin('foo.xml');
store $data, 'foo.dat';
[download]