こんばんわ。ソートの処理で行き詰ってしまいました…
(@allには正規表現で一致したデータを全て読み込んであります。)
foreach (@all){
($filename,$title,$sentence,)= split(/,/,$_);
$score = ..... #スコアを求める
この後@allを$scoreの値が大きい順にソートし、@sorted_listを作成したいのですが、この後どの様なコードを書けば良いのでしょうか?
自分で言うのもなんですがあまり上手く説明できませんでした…
わかりにくい説明ですがよろしくお願いします。
No.3
- 回答日時:
>ソートの基本は理解しているのですが、
>スコアを foreach内で算出しているので
>ご回答してくださった方法では無理みたいです^^;
現方法では、スコアを取っておいていないようですが・・
あとでスコアの大小を使って@allをソートするためには、@allの各行に付け加えなければいけません。
スコアを求めることを別にやったからといって、
ソートの中で一時的に求めたらいけないということはありません。
foreach の中で、@allが変化していないのであれば、
その後で、#1の方法でソートしても何の問題もありません。
my を使って一時的な変数を使っているので、外部に影響することもありません。
>スコアの算出方法は単純な処理で、ソートに関るような処理はしていません。
スコアの大小でソートをするわけですから、当然、ソートに関わっております。
ソートでスコアの大小を比較する処置が必要です。
スコアを算出している時点でソートに関ってますよね^^;
現時点では問題は解決していませんが、あと少しで問題を自己解決できそうです。
(もしかしたらもう一度お世話になるかもしれませんが・・・)
ありがとうございました。
No.2
- 回答日時:
シュワルツ変換を使ってみては。
こんな感じ;my @scored_list;
for ( @all ){
( $filename, $title, $sentence ) = split( /,/, $_ );
$score = ..... #スコアを求める
push @scored_list, [ [$filename, $title, $sentence], $score ];
]
my @sorted_list = map { $_->[0] } sort { $a->[1] <=> $b->[1] } @scored_list;
@sorted_listに、$filenameと$title、$sentenceを組とする配列のリファレンスが、ソートされて格納されます。
$scoreも保持したいとか、@allと同じ形式でデータを保持したい場合は、@scored_listへの格納法とソート比較式を適宜変更してください。
その他、perlfaq4とかに複雑なデータの取り扱い法が書かれてるので、一読されてみては。
参考URL:http://perldoc.jp/docs/perl/5.6.1/perlfaq4.pod
No.1
- 回答日時:
スコアを求める操作がわからないので一般的なsortについて書きますと
sub byscore {
#与えられた配列の中身2つを$a,$bとして大小比較した結果を返す関数
}
を作っておけば
@sorted_list = sort byscore @all;
で良いです。
例えば、
sub byscore {
#与えられた配列の中身2つを$a,$bとして大小比較した結果を返す関数
my ($filename,$title,$sentence)= split(/,/,$a);
my $scorea = ...#何らかの計算
($filename,$title,$sentence)= split(/,/,$b);
my $scoreb = ...#何らかの計算
$scoreb <=> $scorea;
}
というような感じになります。
実際に動作させて確かめていないので、おかしいところがあるかもしれませんが、そんな感じで・
この回答への補足
ご回答ありがとうございます。
ソートの基本は理解しているのですが、
スコアを foreach内で算出しているので
ご回答してくださった方法では無理みたいです^^;
@allをforeachで一行一行読み込んで
一行ごとのスコアを算出しています。
スコアの算出方法は単純な処理で、ソートに関るような処理はしていません。
もし宜しければ再度アドバイスをお願いしますm(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perlについて
-
Perlのプログラムについて
-
Perlでの文字変換(置換)について
-
このファイルを開く方法で困っ...
-
Perlのエラーについてご教授く...
-
PERL
-
ちょうどn文字の連続にマッチす...
-
こんにちは ブラケッツでプログ...
-
Wコロン
-
Perlのプログラミングに困って...
-
perlのスクリプトどこが間違っ...
-
perl/tkでコントロールの配置が...
-
3から100までの素数を配列に入...
-
[perl] perlで書き込み中に、PC...
-
ラズベリーパイ初心者です。 ラ...
-
Perl言語について。
-
ファイルをディレクトリ分配の...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
access adoのトランザクション
-
VB + oracle oo4o でのトラン...
-
gitでコミットするタイミングが...
-
ExecuteSQLについて
-
トランザクション実行のステータス
-
Accessのマクロでモジュールを...
-
Access VBAで行ラベルが定義さ...
-
エクセルVBAでUserFormを起動し...
-
Statement ignored というエラー
-
キャッシュを使わずにSELECTを...
-
VBA プロシージャの名前の取得
-
sqlplusでヘッダーが付かない
-
SQL*Plusの終了はquit?exit?
-
callで順に実行されるプロシー...
-
ODBCリンクの際にACCESSでは読...
-
SQLサーバで和暦から西暦に変換...
-
【Excel VBA】 WorksheetやRa...
-
全角空白のTRIMができない...
-
PL/SQLカーソルの2重FORループ...
-
Accessの数値から時間に変換す...
おすすめ情報