![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
Yahooのトップページのトピックスをクリックすると、
そのトピックスにはコメントができるものがあります。
(一種の掲示板ですよね)
そこには、「私もそう思う」「私はそう思わない」
というボタンがあります。
そして、「並べ替え」「そう思う順」「そう思わない順」
「注目順」「共感順」というボタンがあって、並べ替えが
できるようになっています。
このような”掲示板”を作るにはどうしたらいいのでしょうか?
一応、「Perl/CGI入門」のような本を読んでみましたが、
「並べ替え」が出来るような記述は見当たりませんでした。
もっと、たくさん本を読んで勉強すれば出来るのかもしれませんが、
やみくもに本を買うのは得策ではないと思うので、
経験者の方、知識のある方のアドバイスをいただけたら
幸いです。
どうか、ご教授願います。
No.2ベストアンサー
- 回答日時:
#!/usr/bin/perl -T
use warnings;
use strict;
use utf8;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Pretty;
my @threads = (
{ name => 'AAA',
date => '2009-01-03',
subject => '333',
},
{ name => 'BBB',
date => '2009-01-02',
subject => '111',
},
{ name => 'CCC',
date => '2009-01-01',
subject => '222',
},
);
my $q = CGI->new();
my ($sort_key) = $q->param('sort_key');
if (( !defined $sort_key )
|| ( ( $sort_key ne 'name' )
&& ( $sort_key ne 'date' )
&& ( $sort_key ne 'subject' ) )
)
{
$sort_key = 'name';
}
my @tables;
foreach my $thread ( sort { $a->{$sort_key} cmp $b->{$sort_key} } @threads ) {
push @tables,
$q->p(
"name = $thread->{name}, date = $thread->{date}, subject = $thread->{subject}"
);
}
print $q->header( -charset => 'UTF-8' ),
$q->start_html(
-lang => 'ja',
-title => 'Sort'
),
$q->a( { -href => $ENV{SCRIPT_NAME} . '?sort_key=name' }, 'Sort Name' ),
$q->br,
$q->a( { -href => $ENV{SCRIPT_NAME} . '?sort_key=date' }, 'Sort Date' ),
$q->br,
$q->a( { -href => $ENV{SCRIPT_NAME} . '?sort_key=subject' },
'Sort Subject' ),
$q->br,
@tables,
$q->end_html;
No.1
- 回答日時:
各々の投稿データが、連想配列になります。
その連想配列の集まりが、あるキーに従ってソートされればいいんですよね。
CPANに Sort::MultipleFieldsモジュールというのがありますが、これで如何でしょうか。
参考URL:http://search.cpan.org/dist/Sort-MultipleFields- …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 2ちゃんねる 2ちゃんねる等で初心者を攻撃する人ってどう思いますか? 4 2023/03/13 17:57
- SSL・HTTPS 掲示板サイトへの書き込みができない件(ブラウザソフトを変えてもできない) 2 2022/11/20 10:48
- CGI (フリーの)ツリー掲示版CGI、昔は多用させてもらいましたが・・今セキュリティ上どうでしょう? 2 2023/06/25 07:18
- その他(悩み相談・人生相談) 私に非があったのに謝れなかった。 3 2023/01/12 00:52
- Excel(エクセル) Excelで漢字人名が勝手に並び変わる 2 2023/01/14 22:14
- 教えて!goo なぜこのQA掲示板って回答者は金に糸目をつけない回答をするのか? 7 2023/07/10 17:15
- ハッキング・フィッシング詐欺 ハッキングについて 2 2022/07/19 00:24
- 企画・マーケティング 皆さん、おはようございます♪ 看板を掲示する際についてのご質問です。 看板を掲示する際に注意すること 1 2023/01/28 01:12
- 出会い・合コン 掲示板で知り合った年上の女性と相席屋2回くらいいったのですが、否定から入る思ったことをずけずけいう、 2 2022/04/03 05:42
- Excel(エクセル) Excelで漢字人名が勝手に並び変わる(続) 4 2023/03/21 21:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
Perlで、「が」を、「...
-
このファイルを開く方法で困っ...
-
perlのflock関数でロックをかけ...
-
perl 正規表現でエラー
-
P.Cのシングルチューナーとダブ...
-
perl LWPでURLにアクセスした時...
-
PerlでUTF-8のファイルの文字列...
-
AI sisterとは、偽物の人ですか?
-
Perlで時間の計算
-
perlのrequireの動き方について...
-
Perlで特定文字列から特定文字...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
Perlのエラーについてご教授く...
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにど...
-
perlで2次元配列をサブルーチ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
if($key){ ($key eq 'aaa') ||...
-
双方向リスト(?)
-
HTML::TemplateのTMPL_LOOPにつ...
-
連番ごとに印をつける
-
変数に何も入ってないとき
-
Perlのリファレンスについて
-
ハッシュを無名変数へ代入して...
-
VB6の公式リファレンスはありま...
-
bashのリファレンス的なWEB...
-
DBIを使用してデータを連想配列...
-
重複する値を表示しない
-
クラスの作り方
-
Perl構造体、出力方法
-
ハッシュの配列を作ることは可...
-
Yahooの掲示板のような掲示板を...
-
ファイルからデータを読み込ん...
-
Perlで縦横変換のような事をし...
-
サブルーチンの返値に配列のハ...
-
構造体の配列の指定方法
-
C言語について。
おすすめ情報