Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Any module for saving data as perl data?

by Ovid (Cardinal)
on Apr 29, 2016 at 10:17 UTC ( #1161867=note: print w/replies, xml ) Need Help??


in reply to Any module for saving data as perl data?

It's a strange request and makes me wonder what you're actually trying to do (and thus, if you're not barking up the wrong tree). However, you want to save the variable name with the data? There are several options, none of which are particularly great.

If you can hard-code the variable name, you can try this syntax from Data::Dumper:

use Data::Dumper; my $a = 'hello'; my @foo = qw(1 2 3); my %bar = (this => 'that', one => 'un'); print Data::Dumper->Dump( [$a, \@foo, \%bar], [qw/$a *foo *bar/] );

That's probably your best bet. If for some reason you can't hard-code the names into the call to the Dump() method, you could install my Data::Dumper::Names module:

use Data::Dumper::Names; my $a = 'hello'; my @foo = qw(1 2 3); my %bar = (this => 'that', one => 'un'); print Dumper( $a, \@foo, \%bar );

That uses PadWalker to get the variable names and thus only works on lexical variables. If you're desperate and are willing to try a source filter, you can try my Data::Dumper::Simple module:

use Data::Dumper::Simple; my $a = 'hello'; my @foo = qw(1 2 3); my %bar = (this => 'that', one => 'un'); print Dumper( $a, @foo, %bar );

However, that's a source filter. It will break. Be warned :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1161867]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2020-10-24 03:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (242 votes). Check out past polls.

    Notices?