求助一个perl数组问题

flysky_coool

1. our $accout_record = {
   
2.         1 => ["serial","110000001"],
   
3.         2 => ["account_id","1000001"],
   
4.         3 => ["order_id","DA20140501010000001"],
   
5.         4 => ["order_price","1.00"],
   
6.         5 => ["integral","0.00"],
   
7.         6 => ["type","0"],
   
8.         7 => ["create_time","20140501010010"],
   
9.         8 => ["remark","the record from wangyin"],
   
10. };
    
11. 
    

复制代码

目前我把accout_record的每个value的第二个元素放到了一个数组@a中

我想从控制台输出一下格式
110000001|1000001|DA20140501010000001|1.00|0.00|0|20140501010010|the record from wangyin
110000002|1000001|DA20140501010000002|1.00|0.00|0|20140501010010|the record from wangyin
110000003|1000001|DA20140501010000003|1.00|0.00|0|20140501010010|the record from wangyin
110000004|1000002|DA20140501010000004|1.00|0.00|0|20140501010010|the record from wangyin
110000005|1000002|DA20140501010000005|1.00|0.00|0|20140501010010|the record from wangyin
110000006|1000002|DA20140501010000006|1.00|0.00|0|20140501010010|the record from wangyin
110000007|1000003|DA20140501010000007|1.00|0.00|0|20140501010010|the record from wangyin
110000008|1000003|DA20140501010000008|1.00|0.00|0|20140501010010|the record from wangyin
110000009|1000003|DA20140501010000009|1.00|0.00|0|20140501010010|the record from wangyin
.......



好多人看不懂。于是我重新编辑下。。

第1、2、3个字段依次加1，只不过第2个字段对应3个第1、3个字段，如上个样式

第2个字段比如从 1000001加到1050000，那第1、3个字段也要跟着变。

jason680

回复 1# flysky_coool

print join("|",@a), "\n";
   

huang6894

反正我是看不懂需求~

flysky_coool

回复 3# huang6894


    已经重新编辑过，不知道是否还清除了

huang6894

回复 4# flysky_coool


    不知道理解对了没~反正好奇怪的需求。。。
     


不是没有其他更好的方法，只不过刚好在学for循环~所以将就着用吧~

lhohoz

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my @a = ("110000001", "110000002");
   
6. 
   
7. foreach (@a) {
   
8.     my $accout_record = {
   
9.         1 => ["serial","110000001"],
   
10.         2 => ["account_id","1000001"],
    
11.         3 => ["order_id","DA20140501010000001"],
    
12.         4 => ["order_price","1.00"],
    
13.         5 => ["integral","0.00"],
    
14.         6 => ["type","0"],
    
15.         7 => ["create_time","20140501010010"],
    
16.         8 => ["remark","the record from wangyin"],
    
17.     };
    
18.     my @new =  map { my $key = $_; $accout_record->{$key}->[1] } sort keys %{$accout_record};
    
19.     unshift (@new, $_);
    
20.     print join("|",@new), "\n";
    
21. }

复制代码