zebedeerのプロフィール

@zebedeer zebedeer
ありがとう数104
質問数1
回答数183
ベストアンサー数
80
ベストアンサー率
66%
お礼率
100%

自宅にLinux Serverを立てて、PerlでCGIを書いてます。 PHPとRubyもやってみたいと思ったり。 (Pythonはちょっとなぁ)

  • 登録日2003/07/26
  • ファイルの破壊について

    2人以上の方が同時にファイルの書き込みをすると ログファイルが白紙になったりエラーが起こってしまうらしく、それを防ぐために以下のような書式が open(OUT, "> file.txt"); flock(OUT, 2); print OUT ".......\n"; close(OUT); # closeすると自動的にアンロックされる とほほのWWW入門で記載されていたんですが、このロック方法で本当に大丈夫なのでしょうか とほほさんの解説があまりにも漠然としていて信じがたいんです。 詳しい方、上の方法でも十分かどうかご教授よろしくお願いします。 http://www.tohoho-web.com/wwwperl3.htm#Lock

    • ベストアンサー
    • is_may
    • Perl
    • 回答数2
  • オンライン対戦ゲームのサーバープログラムをPerlで作りたい

    現在flashの勉強を始めた者です。 flashを使ってゲームを作りたいと思っています。 オンラインの対戦ゲーム(1:1のもの)を作りたいのですが、 サーバー側はどのようにしたら良いのかよく分からないので ご教授頂ければと思います。 サーバー側は出来ればperlでサーバープログラムが出来ればいいなと思っていますが、perlでも可能でしょうか? 今までperlでファイルを読み取り計算したり正規表現を使ってりすることは出来ます。 しかし、ネットワーク上でデータを直接やりとりすることをしたことがありません。 質問をまとめますと Perlでサーバー側のプログラムを作ることは可能でしょうか?(C++でなくても大丈夫か) また、開発する上でのヒントなどありましたらお願いします。

  • データの抽出、配列操作で教えて下さい。

    こんばんは、お世話になります。 配列操作で教えて頂きたく。 次のデータをuser.datとします。 1<>yamada<>99999<> 2<>tanaka<>22222<> 3<>suzuki<>10101<> 4<>yamada<>12345<> 5<>yamada<>55555<> user.datの中からyamadaの行だけ取り出して 3番目の数字データでソート表示したいのですが なかなかうまくいきません。 open(F,"user.dat"); @load_txt = <F>; close(F); foreach $data (@load_txt){ if((split(/<>/,$data)[2]) eq "$usid"){push(@txt_lines,$data);} } @txt_lines = sort{(split(/<>/,$a))[2] <=> (split(/<>/,$b))[2]}@txt_lines; 上記でおかしな所ありましたらご教示頂きたく 宜しくお願いします。

    • ベストアンサー
    • noname#51438
    • Perl
    • 回答数4
  • データの抽出、配列操作で教えて下さい。

    こんばんは、お世話になります。 配列操作で教えて頂きたく。 次のデータをuser.datとします。 1<>yamada<>99999<> 2<>tanaka<>22222<> 3<>suzuki<>10101<> 4<>yamada<>12345<> 5<>yamada<>55555<> user.datの中からyamadaの行だけ取り出して 3番目の数字データでソート表示したいのですが なかなかうまくいきません。 open(F,"user.dat"); @load_txt = <F>; close(F); foreach $data (@load_txt){ if((split(/<>/,$data)[2]) eq "$usid"){push(@txt_lines,$data);} } @txt_lines = sort{(split(/<>/,$a))[2] <=> (split(/<>/,$b))[2]}@txt_lines; 上記でおかしな所ありましたらご教示頂きたく 宜しくお願いします。

    • ベストアンサー
    • noname#51438
    • Perl
    • 回答数4
  • セッション削除でエラー

    $session->delete(); でセッションファイルをディスクから削除使用とすると、Can't call method "delete" on an undefined value at test.pl line 471. というエラーが出てきてしまいます。 なぜでしょうか。

    • ベストアンサー
    • apoton
    • Perl
    • 回答数1