[求助] 一个XML文档排序问题

Suchangyu

处理前：

1. <Garden>
   
2.         <Apple id="110" name="AAA" permission="readwrite">
   
3.                 <Banana type="uint32" sizeOf="1" name=""/>
   
4.         </Apple>
   
5.   <Apple id="10" name="BBB" maxIndex="1" permission="readwrite">
   
6.                 <Banana type="uint8" sizeOf="1" name=""/>
   
7.                 <Banana type="uint16" sizeOf="1" name=""/>
   
8.         </Apple>
   
9.         <Apple id="27" name="CCC" maxIndex="1" permission="readwrite">
   
10.                 <Banana type="uint8" sizeOf="1" name=""/>
    
11.                 <Banana type="uint32" sizeOf="1" name=""/>
    
12.         </Apple>
    
13.         <Apple id="23" name="DDD" maxIndex="91" permission="readwrite">
    
14.                 <Banana type="uint8" sizeOf="1" name=""/>
    
15.         </Apple>
    
16. </Garden>

复制代码

处理后：

1. <Garden>
   
2.   <Apple id="10" name="BBB" maxIndex="1" permission="readwrite">
   
3.                 <Banana type="uint8" sizeOf="1" name=""/>
   
4.                 <Banana type="uint16" sizeOf="1" name=""/>
   
5.         </Apple>
   
6.         <Apple id="23" name="DDD" maxIndex="91" permission="readwrite">
   
7.                 <Banana type="uint8" sizeOf="1" name=""/>
   
8.         </Apple>
   
9.         <Apple id="27" name="CCC" maxIndex="1" permission="readwrite">
   
10.                 <Banana type="uint8" sizeOf="1" name=""/>
    
11.                 <Banana type="uint32" sizeOf="1" name=""/>
    
12.         </Apple>       
    
13.         <Apple id="110" name="AAA" permission="readwrite">
    
14.                 <Banana type="uint32" sizeOf="1" name=""/>
    
15.         </Apple>
    
16. </Garden>

复制代码

按照Apple元素的id属性，按照数值大小排序，按照从小到大（或者从大到小）的顺序输出。
Apple内嵌的Banana元素无需做处理，仅要保留每个Banana与Apple的父子关系。
请各位帮忙，share一下你的代码，谢谢。

jason680

处理前：处理后：按照Apple元素的id属性，按照数值大小排序，按照从小到大（或者从大到小）的顺序输出。
A ...
Suchangyu 发表于 2011-07-27 10:40

$ cat sort_apple_id.pl

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $flgHead = 1;
   
6. my $flgTail = 0;
   
7. my($sHead, $sTail, $sID);
   
8. my %hApple;
   
9. 
   
10. while(<>){
    
11.   $flgTail=1 if(m/^\s*<\/Garden>/);
    
12. 
    
13.   if($flgTail == 1){
    
14.     $sTail .= $_;
    
15.     next;
    
16.   }
    
17.   if(m/^\s*<Garden>/){
    
18.     $flgHead = 0;
    
19.     $sHead .= $_;
    
20.     next;
    
21.   }
    
22.   if($flgHead == 1){
    
23.     $sHead .= $_;
    
24.     next;
    
25.   }
    
26.   $sID = $1 if(m/^\s*<Apple id="(\d+)"/);
    
27. 
    
28.   $hApple{$sID} .= $_;
    
29. }
    
30. 
    
31. print $sHead;
    
32. print $hApple{$_} foreach(sort {$a<=>$b} keys %hApple);
    
33. print $sTail;
    

复制代码

$ perl sort_apple_id.pl fruit.xml
<Garden>
  <Apple id="10" name="BBB" maxIndex="1" permission="readwrite">
                <Banana type="uint8" sizeOf="1" name=""/>
                <Banana type="uint16" sizeOf="1" name=""/>
        </Apple>
        <Apple id="23" name="DDD" maxIndex="91" permission="readwrite">
                <Banana type="uint8" sizeOf="1" name=""/>
        </Apple>
        <Apple id="27" name="CCC" maxIndex="1" permission="readwrite">
                <Banana type="uint8" sizeOf="1" name=""/>
                <Banana type="uint32" sizeOf="1" name=""/>
        </Apple>
        <Apple id="110" name="AAA" permission="readwrite">
                <Banana type="uint32" sizeOf="1" name=""/>
        </Apple>
</Garden>

yinyuemi

1. perl -aF"\"" -lne 'if(/<Apple/){$s=$F[1];$arr{$s}.=$_}elsif($F[1]!~$s){$arr{$s}.="\n".$_};END{print "    <Garden>";foreach (sort {$a<=>$b} keys %arr){print $arr{$_}};print "    </Garden>"}' xml

复制代码

Kitaisky

##献丑

#!/usr/bin/perl -w

use strict;
use warnings;

my @apple;

{ local $/;
    @apple = split /(?:<Garden>|\bApple>)\r?\n/, <DATA>;
}

shift @apple;
my $footer = pop @apple;

@apple = map { $_->[0] }
        sort { $a->[1] <=> $b->[1] }
        map { [ $_, &appleID($_) ] }
        @apple ;

sub appleID {
    my ($id) = $_[0]=~/<apple id="(\d+)/i;
    return $id;
}

print "<Garden>\n";
print $_  ."Apple>\n" for @apple;
print $footer, "\n";


__DATA__
    <Garden>
            <Apple id="110" name="AAA" permission="readwrite">
                    <Banana type="uint32" sizeOf="1" name=""/>
            </Apple>
      <Apple id="10" name="BBB" maxIndex="1" permission="readwrite">
                    <Banana type="uint8" sizeOf="1" name=""/>
                    <Banana type="uint16" sizeOf="1" name=""/>
            </Apple>
            <Apple id="27" name="CCC" maxIndex="1" permission="readwrite">
                    <Banana type="uint8" sizeOf="1" name=""/>
                    <Banana type="uint32" sizeOf="1" name=""/>
            </Apple>
            <Apple id="23" name="DDD" maxIndex="91" permission="readwrite">
                    <Banana type="uint8" sizeOf="1" name=""/>
            </Apple>
    </Garden>

xxhacker

我同事有一个很牛X的答案，一句代码就可以实现。他原话是这样的：直接print出来就行了，还费什么劲。。。
我表示鸭梨很大~~~

zhlong8

直接用 RE 做的都是神

斯文牛氓

$ cat sort_apple_id.pl$ perl sort_apple_id.pl fruit.xml

  
               
             ...
jason680 发表于 2011-07-27 11:17

    写java的？