ラウンジの表示を変えたいのですが?

[上に] [前に] [次に]
まつお 2000/01/26(水) 19:18:41
Perl勉強中のまつおです。
ラウンジの表示を変えることに挑戦してみたのですが
うまくいかないので教えて下さい。
現在は
『名前・e-mail・homepage・date<改行>内容』
ですが
『名前・date<改行>e-mail<改行>homepage<改行>内容』
に変えたいのです。
何行目あたりを変更すればよいのでしょうか?
よろしくお願いします。

ラウォッチ 2000/01/27(木) 12:42:15
ログデータのデータ順に依存していますので、ログデータ作成時に順番を入替えればけるかも。

appendMessageサブルーチンの以下の所の順番を入替える。

    if ($FORM{'EMAIL'} ne "") {
        $FORM{'EMAIL'} =~ s/'//g;
        $msg .= "E-Mail: $FORM{'EMAIL'}\n";
    }
    if ($FORM{'HPAGE'} ne "") {
        $FORM{'HPAGE'} =~ s/'//g;
        $msg .= "HomePage: $FORM{'HPAGE'}\n";
    }
    ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime();
    $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",
        $year + 1900, $mon + 1, $mday, $g_wdays[$wday], $hour, $min, $sec);
    $msg .= "Date: $date\n";

ただし、データ順序を替えるので他に影響するかも...。
ただ、ロジックを見ただけですので、間違っていたら、ゴメン!

まつお 2000/01/27(木) 17:28:45
[[解決]]
アドバイス通りでバッチリできました!!
ありがとうございました。
また、よろしくお願いします。

[上に] [前に] [次に]