Unserialize String to hash

santosh_vjit has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Unserialize String to hash by jethro (Monsignor) on Jun 30, 2010 at 13:02 UTC
There is PHP::Serialization and PHP::Serialization::XS	[reply]
Re: Unserialize String to hash by Taulmarill (Deacon) on Jun 30, 2010 at 12:56 UTC
There is a module for that: PHP::Serialization	[reply]
Re: Unserialize String to hash by Marshall (Canon) on Jun 30, 2010 at 13:13 UTC
Lots of ways to do this task. In Perl, the field width stuff is not important. Below is one way. A "match global" regex is used to extract the pairs and then a while loop puts them into a hash. `#!/usr/bin/perl -w use strict; use Data::Dumper; my $x = 'a:1:{s:4:"Name";s:5:"sandy";s:5:"sport";s:7:"cricket";}'; my %hash; my ($key,$value); my @tokens = $x =~ m/"(.*?)"/g; $hash{$key}= $value while (($key, $value)= splice(@tokens,0,2)); print Dumper(\%hash); __END__ prints $VAR1 = { 'sport' => 'cricket', 'Name' => 'sandy' };` [download]	[reply] [d/l]
Re: Unserialize String to hash by sierpinski (Chaplain) on Jun 30, 2010 at 12:49 UTC
What should the key-value pairs be? Is 's' included? I'm assuming that you want something like this: `%a1 = ( 'Name'=>'sandy', 'sport'=>'cricket', );` [download] Is that basically what your goal is? Is there significance to the 's' characters in the string? Once it's known what you're looking for, one of the saintly regular expression masters here (sadly I'm still a greenhorn) could probably make quick work of it. I should also ask, is that just a sample of data, or will it always be in exactly that format?	[reply] [d/l]