![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
perlはかなり初心者です。この前、掲示板の作り方を解説しているサイト様でスクリプトをお借りしていじってみました。解説がところどころ書いてあるので構造は大体理解できましたが、HTML以外のところは全然改造はできません。この掲示板は、書き込みが新着順に上から並ぶのですが、古い順に上から並べるにはどこをどうすればよいのでしょう?どなたかお願いします。
require "cgi-lib.pl";
print "Content-type: text/html; charset=Shift_JIS\n\n";
# フォーム部分を表示する
print <<EOL;
ここはフォームのHTMLを書きました
EOL
&ReadParse(*form);
# フォームの値を取得
$namae = $form{"namae"};
$message = $form{"message"};
# ログファイル読み込み
open(IN, "bbs.txt");
@log = <IN>;
close(IN);
# メッセージが入力されているときは書き込み処理を行なう
if ($message ne "") {
# タグの無効化
&deltag($namae);
&deltag($message);
# 改行を<br>に変換
$message =~ s/\r\n/<br>/g; # Windows系(\r\n)
$message =~ s/\r/<br>/g; # Mac系(\r)
$message =~ s/\n/<br>/g; # UNIX系(\n)
# ログ先頭に書き込み内容を格納
unshift @log, "$namae\t$message\n";
# ログファイルにロックをかけて書き込み
open(OUT, "+< bbs.txt");
flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT @log;
close(OUT);
}
# ログ表示
foreach $data (@log) {
chop $data;
($namae,$message) = split(/\t/, $data);
print <<EOL;
<br><br>$namae<br>$message
EOL
}
print <<EOL;
</body>
</html>
EOL
# タグを除去するサブルーチン
sub deltag {
$_[0] =~ s/</</g;
$_[0] =~ s/>/>/g;
}
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- JavaScript Javascriptが機能せず原因が分からないので教えて頂きたいです 3 2023/06/04 14:50
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- PHP ここでの ②if($su_d<>"")の比較演算子 を使う理由は 1 2022/03/26 02:33
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- PHP PHPで画像の渡しが上手く行きません。 1 2023/02/02 09:39
- PHP PHPでユーザー情報を入力して簡易ログイン機能をつくってみたのですが 1 2023/05/29 08:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サーバーのテキストファイルを...
-
wordの数式について 定積分を書...
-
ラジオボタンが両方とも選択で...
-
HTMLでのタイマーの設置
-
チェックボックスとセレクトボ...
-
フォームの入力内容の後ろに文...
-
proftpdで困ってます。
-
VB初心者。小数点以下の表示で...
-
クオートの多重入れ子をするには?
-
WEBページを強制的に横画面で見...
-
プログラミングについての質問...
-
「value」に2つの値をセットす...
-
入力フォームに全角・半角スペ...
-
シングルコーテーション(')と...
-
ブックマークからのアクセスを...
-
CGIに渡しているパラメータを表...
-
pythonのnumpyでの列(縦)ベク...
-
ある条件での必須入力について
-
selectboxの画面遷移で、postデ...
-
OPTIONタグにループは使えない...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サーバーのテキストファイルを...
-
LuaJITで日本語出力
-
表示を一覧表形式にしたいので...
-
IIS の@INC ERRORについて教えて
-
索引を目次の該当ページへ入れ...
-
HTMLからCGIへデータを引き継ぎ
-
CGIの中で異なるContent-typeの...
-
jcode.pl 使い方
-
ブラウザ表示されません大変困...
-
CGIで、ボタンを押した時に違う...
-
perlがうごきません
-
標準入力からデータが読込めない
-
ランダムに1行読込み フォーム...
-
sjisでの文字化け?
-
サーバー(UNIX)上のフォルダ...
-
検索結果テーブルの背景色を変...
-
他のWWWサーバーからHTMLを得る
-
ひらがなチェック
-
次のcgiファイルを開くには? ...
-
ソケットの使い方が分からない
おすすめ情報