prob in unfolding Dumper Data at the Server Side Socket prog

sroy.5 has asked for the wisdom of the Perl Monks concerning the following question:

I have wrapped the data using Dumper from the Client side and wanted to pass the data using syswrite through Socket and wanted to use those data in the Server Side.

Client Side
-----------
my %c = ( 
        name => "Apple",
        value => "25",
        );
my $a = [ %c ];
my $d=Data::Dumper->New([ %c , $a]);
$Server->syswrite( $d , length($g));

Server Side
-----------
$Scoket->recv($buffer,$buff_len);
[download]

Not able to unwrap $buffer Tried with Dumper( eval $buffer->Dump). I could get only this much which throws the error as::>

Can't call method "Dump" without a package or object reference at ....
+.
[download]

The Dumper gives the value as Dumper($buffer) ::>

"$VAR1 = \'Data::Dumper=HASH(0x8adff94)\';"
[download]

I am looking for the way how could I get back the data in the Server Side. Thanks SR

Comment on prob in unfolding Dumper Data at the Server Side Socket prog Select or Download Code

Replies are listed 'Best First'.
Re: prob in unfolding Dumper Data at the Server Side Socket prog by Joost (Canon) on May 19, 2007 at 14:51 UTC
Take another look at the docs for Data::Dumper. `Data::Dumper->new()` (not "New") does not return the serialized data structure, it returns a new Data::Dumper object. `$dump_object->Dump()` returns the serialized data as a string containing perl code ready for eval(). In other words, you should send the output of `$d->Dump()` to the client and then restore it using `eval $buffer;` "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
Re^2: prob in unfolding Dumper Data at the Server Side Socket prog by sroy.5 (Initiate) on May 19, 2007 at 15:53 UTC
Thanks for the pointing out the $d->Dump to be send with the syswrite. Now I am getting the value in Server Side. But eval is not giving the data back. The output is coming as follows::> Dumping the buffer $VAR1 = undef; Though While I am again using `$socket->recv($buffer , BUFF_LEN); my $a = [ $buffer ]; my $d = Data::Dumper->new([ $buffer , $a ]); my $c = $d->Dump; print Dumper($c);` [download] The above code is unfolding the details. can you pls comment on this. Re, SR	[reply] [d/l]
Re^3: prob in unfolding Dumper Data at the Server Side Socket prog by Joost (Canon) on May 19, 2007 at 17:08 UTC
Ok, well a few comments: The output is coming as follows::> Dumping the buffer $VAR1 = undef; That's certainly not the output of the code you just posted. `$socket->recv($buffer , BUFF_LEN);` will break the message if BUFF_LEN is smaller than the actual size of the message sent. `my $a = [ $buffer ]; my $d = Data::Dumper->new([ $buffer , $a ]); my $c = $d->Dump;` [download] What's that all about? You are receiving a serialized structure in $buffer you should not-store that string in a new structure and serialize it again, you should eval() the $buffer. As already stated by me and others in this thread. You appear to be confused about the use of Data::Dumper. Let me just note that it's easy to test the dump/restore stage without sending anything across a pipe/stream/socket: `#!/usr/bin/perl -w use strict; use Data::Dumper; my $fancy_struct = { a => "aaah", b => "beeh", }; my $dumper = Data::Dumper->new([$fancy_struct]); $dumper->Purity(1); my $serialized = $dumper->Dump; print "Serialized form: $serialized"; my $VAR1; eval $serialized \|\| die; my $new_fancy_object_clone = $VAR1; print "a = $new_fancy_object_clone->{a}\n";` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
Re: prob in unfolding Dumper Data at the Server Side Socket prog by NetWallah (Canon) on May 19, 2007 at 14:52 UTC
Did you notice that your statement `$Server->syswrite( $d , length($g));` [download] uses $g, not $a ? $a is not the best name to use anyway, since sort uses it. "An undefined problem has an infinite number of solutions." - Robert A. Humphrey "If you're not part of the solution, you're part of the precipitate." - Henry J. Tillman	[reply] [d/l]
Re: prob in unfolding Dumper Data at the Server Side Socket prog by blazar (Canon) on May 19, 2007 at 14:59 UTC
`my $a = [ %c ]; my $d=Data::Dumper->New([ %c , $a]); $Server->syswrite( $d , length($g));` [download] I'm not familiar with D::D's OO interface, but I believe that you want `$d->Dump` there, not the object itself. And what the heck is `$g` anyway? Not able to unwrap $buffer Tried with Dumper( eval $buffer->Dump). At the receiving end you want a simple eval, nothing that has to do with D::D.	[reply] [d/l] [select]