求助 大侠们！纠结的问题

netherunix

有这样一个格式的文件：

cpu_idle,Util
11,22
33,44
55,66
想法：我想将两列数据写入另一个文件 格式如下：

<dataset name='cpu_idle'>
<set value = '11' />
<set value = '33' />
<set value = '55' />
</dataset >
<dataset name='Util'>
<set value = '22' />
<set value = '44' />
<set value = '66' />
</dataset >

-------------------------------------------

请问如何实现呢？ 谢谢

yinyuemi

回复 1# netherunix

1. #!/bin/perl
   
2. use strict;
   
3. use Data::Dumper;
   
4. my (%hash,@data);
   
5. @data = (my $s =(<DATA>)) =~ /(\w+),(\w+)/;
   
6. while(<DATA>) {
   
7.    chomp;
   
8.    my @tmp = split /,/;
   
9.    map{push @{$hash{$data[$_]}},$tmp[$_]} (0..1);
   
10. }
    
11. 
    
12. #print Dumper \%hash;
    
13. 
    
14. map{
    
15. my $index = $_;
    
16. print "<dataset name = '$data[$index]'>","\n";
    
17. map{print "<set value = '$hash{$data[$index]}->[$_-1]' />","\n"} 1..@{$hash{$data[$index]}};
    
18. print "</dataset >\n";}(0..1)
    
19. __DATA__
    
20. cpu_idle,Util
    
21. 11,22
    
22. 33,44
    
23. 55,66
    

复制代码

netherunix

谢谢，楼上的大侠！问题搞定！