perlのソートの方法について質問です。

Question

riyoooh

5

5もっと見る

90pt

コンピュータウェブ制作

perlのソートの方法について質問です。

XMLにおいて、<count>タグ内の値の大きい順に並び替えたいと考えています。

<?xml version="1.0" encoding="UTF-8"?>
<keywords>
<keyword>赤</keyword>
<count>2</count>
</keywords>
<keywords>
<keyword>黄</keyword>
<count>1</count>
</keywords>
<keywords>
<keyword>青</keyword>
<count>3</count>
</keywords>

-----結果---------
<?xml version="1.0" encoding="UTF-8"?>
<keywords>
<keyword>青</keyword>
<count>3</count>
</keywords>
<keywords>
<keyword>赤</keyword>
<count>2</count>
</keywords>
<keywords>
<keyword>黄</keyword>
<count>1</count>
</keywords>

よろしくお願いします。

回答の条件

1人3回まで

登録：2010/05/28 02:35:18
終了：2010/05/30 19:16:14

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.2

edWard8572010/05/28 15:25:18

20pt

> パーサー中にエラーがあるということなのでしょうか。

XMLファイルをUTF-8で保存しましたか？

はい。

UTF-8で保存していますが、同じエラーになります。

2010/05/29 11:25:47

No.3

wwwww16302010/05/28 16:03:19

赤　黄色　青

No.4

wwwww16302010/05/28 16:02:21

どうゆう事？

t-wata 2010/05/28 04:43:37

前の質問にあったコードの、
while(($key, $value) = each(%count)) {
....
}
を、
foreach my $key (sort {$count{$b} cmp $count{$a}} keys %count){
print OUT '<keywords>' . "\n";
print OUT '<keyword>' . $key . '</keyword>' . "\n";
print OUT '<count>' . $count{$key} . '</count>' . "\n";
print OUT '</keywords>' . "\n";
}
にすればいいんじゃないの？

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

koriki-kozou · Accepted Answer · 2010-05-28T04:49:40+09:00

use XML::Simple;
my $readXML = XML::Simple -> new -> XMLin('input.xml', ForceArray=>['keyword','count']);
@{$readXML->{'keywords'}} = sort { $b->{count}[0] cmp $a->{count}[0] } @{$readXML->{'keywords'}};
print XMLout($readXML);

元データには下記のようにルート要素（仮にrootと名づけた）が存在しなければ正しく認識してくれないので注意

<?xml version="1.0" encoding="UTF-8"?>
<root>
<keywords>
<keyword>赤</keyword>
<count>2</count>
</keywords>
<keywords>
<keyword>黄</keyword>
<count>1</count>
</keywords>
<keywords>
<keyword>青</keyword>
<count>3</count>
</keywords>
</root>

koriki-kozou · Accepted Answer · 2010-05-28T04:49:40+09:00

use XML::Simple;
my $readXML = XML::Simple -> new -> XMLin('input.xml', ForceArray=>['keyword','count']);
@{$readXML->{'keywords'}} = sort { $b->{count}[0] cmp $a->{count}[0] } @{$readXML->{'keywords'}};
print XMLout($readXML);

元データには下記のようにルート要素（仮にrootと名づけた）が存在しなければ正しく認識してくれないので注意

<?xml version="1.0" encoding="UTF-8"?>
<root>
<keywords>
<keyword>赤</keyword>
<count>2</count>
</keywords>
<keywords>
<keyword>黄</keyword>
<count>1</count>
</keywords>
<keywords>
<keyword>青</keyword>
<count>3</count>
</keywords>
</root>

perlのソートの方法について質問です。

ベストアンサー

koriki-kozou480792010/05/28 04:49:40

その他の回答（3件）

koriki-kozou480792010/05/28 04:49:40ここでベストアンサー

edWard8572010/05/28 15:25:18

wwwww16302010/05/28 16:03:19

wwwww16302010/05/28 16:02:21

コメント（1件)

この質問への反応（ブックマークコメント）