如果将string转换成array of hashes 字符串转数组???

buypro9

如何将

$string = "{file => 'file1', desc  => 'test}, {file => 'file12', desc => 'test2'}"


转换成

my @array_of_hashes = (
       {file => 'file1', desc  => 'test},
       {file => 'file12', desc  => 'test2'},
  
  );



sting 转 array比较容易 采用split 的方法。可以找倒很多示范
但是如何将string转换成array of hashes ？？？？？？


谢谢

Perl_Er

这个想法比较奇特！
试试下面的代码：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my $_ = "{file => 'file1', desc  => 'test1'},{file => 'file12', desc => 'test2'}";
   
7. 
   
8. my @array = ();
   
9. if(/(.*)\},(.*)/){
   
10.         print $1."}","\n";
    
11.         push @array, eval "$1}";
    
12.         print $2,"\n";
    
13.         push @array ,eval "$2";
    
14. }
    
15. 
    
16. print Dumper \@array;

复制代码

[ 本帖最后由 Perl_Er 于 2009-8-8 21:08 编辑 ]

redicaps

@a = eval $str;

buypro9

老大。 为什么说比较奇特呢？

是不是我走了弯路？


我是用cgi session 取得了cart的 session.
然后以stirng 形式存入mysql.

结果取出的是是string 这才发觉事情有点麻烦。

关于eval我听人说过。说有安全隐患。 不知道是指什么呢？？ 有哪些安全隐患？？

能否请教一下？



还是是否可以直接将cgi session  取得的 array以array形式存入 mysql ？我试了以下结果发现内容以为hash(XS1325)这样的。是否可以顺利还原》

最后一个问题是。， 为什么google这个问题的结果那么困难。机会很少有人提到？ 难道是我真的绕了弯路。就从没人那么做？？？？

buypro9

<code>
#!/usr/bin/perl

use strict;
use warnings;
use Data:umper;

my $_ = "{file => 'file1', desc => 'test1'},{file => 'file12', desc => 'test2'}";

my @array = ();
if(/(.*)\},(.*)/){
print $1."}","\n";
push @array, eval "$1}";
print $2,"\n";
push @array ,eval "$2";
}
print "ragma: no-cache\n";
print "Content-type:text/html\n\n";
print Dumper \@array;


</code>


这个用eval得好像无法执行哦。怎么回事？

[ 本帖最后由 buypro9 于 2009-8-9 21:30 编辑 ]

Perl_Er

不能执行，报什么错了？ 或直接使用3楼给出的  @a = eval $str;如何了?

hitsubunnu

原帖由 buypro9 于 2009-8-9 20:21 发表
老大。 为什么说比较奇特呢？

是不是我走了弯路？

CGI::Session　直接 支持 mysql

my $s ＝ CGI::Session->new("driver:mysql", undef);

通过
param 存取变量  完全没必要 自己手工搞来搞去

buypro9

老大。

@a = eval $str; 也不行的。 返回空白页


最后有前辈帮我写了一段

#!/usr/bin/perl
use strict;
use warnings;
use Data:umper;
#$str = "{file => 'file1', desc  => 'test'}, {file => 'file12', desc => 'test2'}"
my $string = q({file => 'file1', desc  => 'test''}, {file => 'file22', desc22 => 'desc22'});
my @array_of_hashes;

my @hashes = $string =~ /(\{.*?\})/g;

for my $hashstr (@hashes) {
    my @keys = $hashstr =~ /(\w+)\s*=>/g;
    my @values = $hashstr =~ /=>\s*\'(\w+)\'/g;
   
    my %hash;
   @hash{@keys} = @values;
   push @array_of_hashes, \%hash;
}

print "ragma: no-cache\n";
print "Content-type:text/html\n\n";
print Dumper(\@array_of_hashes);


#Gives:
#$VAR1 = [
#         {
  #          'desc' => 'test',
   #         'file' => 'file1'
    #      },
     #     {
      #      'desc' => 'test2',
       #     'file' => 'file12'
       #  }
       #];


遗憾的是不支持中文。同时也无法为空的值或者值中有空格。比如以下的形式将导致undef .
谁能再帮我看看。改一下？

请注意看 desc2  => '

my $string = q({file => 'file1', desc  => 'test', desc2  => 'desc 2222', desc3  => 'test3'}, {file => 'file22', desc22 => 'desc22'});  ###这样结果就会有undef 出现。导致key和value错乱。

my $string = q({file => 'file1', desc  => 'test', desc2  => '', desc3  => 'test3'}, {file => 'file22', desc22 => 'desc22'});  ###这样结果就会有undef 出现。导致key和value错乱。

谁能帮我一下 ？

yashiro_lj

在你贴的代码基础上改了一下，以支持值中的空格、中文或值为空

1. use strict;
   
2. use warnings;
   
3. use Data::Dumper;
   
4. 
   
5. my $string = q({file => 'file      1', desc  => ''}, {file => 'file中文', desc22 => 'desc22'});
   
6. my @hashes = $string =~ /\{([^}]*)\}/g;
   
7. my @array_of_hashes;
   
8. 
   
9. for my $hashstr (@hashes) {
   
10.    my @keys = $hashstr =~ /(\S+)\s*=>/g;
    
11.    my @values = $hashstr =~ /=>\s*\'([^']+)\'/g;
    
12.    
    
13.    my %hash;
    
14.    @hash{@keys} = @values;
    
15.    push @array_of_hashes, \%hash;
    
16. }
    
17. print Dumper(\@array_of_hashes);

复制代码

buypro9

老大真厉害。完全正确。


还有点小问题。当值为空的时候。  desc  => '' 还是  desc  => ' '？

如果是desc  => ''  我还是得到undef  以后loop的时候  key和value又会匹配错了。

再次感谢。