Re^2: Hash File to Binary ?

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?

Comment on Re^2: Hash File to Binary ? Select or Download Code

Replies are listed 'Best First'.
Re^3: Hash File to Binary ? by zak_s (Initiate) on Dec 11, 2013 at 22:18 UTC
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	[reply] [d/l] [select]
Re^4: Hash File to Binary ? by tangent (Parson) on Dec 11, 2013 at 22:29 UTC
maybe related: `do 'MIFILE';` should be `do 'MYFILE';`	[reply] [d/l] [select]
Re^4: Hash File to Binary ? by zak_s (Initiate) on Dec 11, 2013 at 22:36 UTC
Thats a typo sorry "MIFILE"	[reply]
Re^4: Hash File to Binary ? by Anonymous Monk on Dec 11, 2013 at 23:25 UTC
No need to round-trip `$data` through Data::Dumper, you can just use `store $data, 'MYFILE_2';` ... but maybe `$data` should be `\%something`.	[reply] [d/l]