mixiで趣味の話をしよう

mixiコミュニティには270万を超える趣味コミュニティがあるよ
ログインもしくは登録をして同じ趣味の人と出会おう♪

開催終了ワークショップ課題

RGの動物園

RGの動物園

詳細

2008年01月14日 10:28 更新

集まらないとやらなそうなので立ててみますた


桃鉄でも麻雀でもフリフでも…

コメント(7)

  • [1] mixiユーザー

    2008年01月14日 12:52

    偉いexclamation ×2指でOK
    そのまま麻雀桃鉄でしょるんるんるんるん笑

  • [2] mixiユーザー

    2008年01月14日 13:58

    シダさん･･･
    あんたは救世主だよ･･･

  • [3] mixiユーザー

    2008年01月14日 19:39

    15、17、19以外で！

  • [4] mixiユーザー

    2008年01月16日 21:00

    よーへいくんもダメみたいだし…明日はパソコン持ってかなくても大丈夫かな？

  • [5] mixiユーザー

    2008年01月17日 08:06

    じゃ、今日はもってかないよーexclamation

  • [6] mixiユーザー

    2008年01月21日 20:46

    print "<html>\n<head>\n";
    print "<title>chat</title>\n";
    print "<link rel=\"stylesheet\" media=\"screen,tv\"" .
    " href=\"./chat-style.css\" type=\"text/css\">";
    print "<meta http-equiv=\"Content-Type\" content=\"text/html;";
    print " charset=EUC-JP\">";
    print "</HEAD>";
    print "<BODY>\n";

  • [7] mixiユーザー

    2008年01月21日 20:59

    #!/usr/bin/perl
    require './jcode.pl';

    print "Content-type: text/html\n\n";

    if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    } else {
    $buffer = $ENV{'QUERY_STRING'};
    }
    @query = split(/&/, $buffer);
    foreach (@query) {
    ($name,$value) = split(/=/);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    &jcode::convert(*value,'euc');
    $query{$name} = $value;
    }
    $user=$query{'user'};
    $message=$query{'message'};

    if ($user ne ""){
    if ($message ne ""){
    $filename="./chatdata.dat";
    open (FH, "<" . $filename);
    @chatdata=<FH>;
    close(FH);

    $maxline=30;
    if ($#chatdata+1 < $maxline * 2){
    $maxline=($#chatdata+1)/2;
    }
    else {shift(@chatdata);shift(@chatdata);}
    open (FH, ">" . $filename);
    for ($k=0; $k<$maxline; $k++){
    print FH $chatdata[$k*2];
    print FH $chatdata[$k*2+1];
    }
    print FH $user . "\n";
    print FH $message . "\n";
    close(FH);
    }
    }

    print "<html>\n<head>\n";
    print "<title>chat</title>\n";
    print "<link rel=\"stylesheet\" media=\"screen,tv\"" .
    " href=\"./chat-style.css\" type=\"text/css\">";
    print "<meta http-equiv=\"Content-Type\" content=\"text/html;";
    print " charset=EUC-JP\">";
    print "</HEAD>";
    print "<BODY>\n";

    print "<FORM METHOD=\"POST\" ACTION=\"./chat.cgi\">";
    print "User:";
    print "<input name=\"user\" type=\"text\" value=\"";
    print $user . "\"size=\"10\">\n";
    print "<BR>\n";
    print "Message:";
    print "<input name=\"message\" type=\"text\" value=\"\"50\">\n";
    print "<BR>\n";
    print "<input type=\"submit\"value=\"post\">";
    print "<input type=\"reset\" value=\"clear\">";
    print "</FORM>";
    print "<HR>\n";

    $filename="./chatdata.dat";
    open (FH, "<" . $filename);
    @chatdata=<FH>;
    close(FH);

    foreach $line (@chatdata) {
    chomp($line);
    $i++;
    }

    for ($j=0; $j<$i/2; $j++){
    print $chatdata[$i-1-$j*2-1] . ":";
    print $chatdata[$i-1-$j*2] . "<BR>\n";
    }

    print "</BODY>\n";
    print "</HTML>\n";

    exit 0;
mixiユーザー
ログインしてコメントしよう！

[RGの動物園] コミュニティトップへ

  • 2008年01月21日 (月)
  • 都道府県未定
  • 2008年01月21日 (月) 締切
  • イベントに参加する
  • 気になる！
参加者
4人

主催者

mixiユーザー

mixiユーザー

主催イベント1回

困ったときには

このページの上部へ