twinkleluzのプロフィール

いつもお世話になります。 ファイルアップロードするプログラムを作成しております。 ファイルサイズが100Kを超えたときにエラーメッセージを吐き出して、読み込みをやめるような処理にしたいのですが、ファイルをロックしてしまっているようです。 どのようなエラーハンドリングをすればよいのでしょうか？ if ($inIMAGE1 ne '') { while ($bytesread = read($inIMAGE1, $buffer, $BUFSZ)) { $file .= $buffer; # ファイルサイズ制限 $file_size1 ++; if($file_size1 > 50) { print "Content-type: text/html\n\n"; print "＊ファイルサイズが大きすぎます。100KB 以下にして下さい。\n"; #last; exit(0); } 　　　　　}

いつもお世話になります。 ファイルアップロードするプログラムを作成しております。 ファイルサイズが100Kを超えたときにエラーメッセージを吐き出して、読み込みをやめるような処理にしたいのですが、ファイルをロックしてしまっているようです。 どのようなエラーハンドリングをすればよいのでしょうか？ if ($inIMAGE1 ne '') { while ($bytesread = read($inIMAGE1, $buffer, $BUFSZ)) { $file .= $buffer; # ファイルサイズ制限 $file_size1 ++; if($file_size1 > 50) { print "Content-type: text/html\n\n"; print "＊ファイルサイズが大きすぎます。100KB 以下にして下さい。\n"; #last; exit(0); } 　　　　　}

お世話になります。 perl5.8において文字コードを指定or変換する際 shift_jis shift-jis Shift_JIS SJIS EUC_JP EUC-JP utf-8 utf8 -と_の違いや大文字小文字の違いなど記述の違いを良く見かけるのですが、実際決まった指定方法などはあるのでしょうか。 逆に文字コードを指定する際、●●のように指定しても無効で●●のように指定しないと有効ではないですよ。。みたいな。 またperlに限らずPHPやHTML、XMLなどではどうなっているのでしょうか どなたかご存知の方いましたら ・上記３つの文字コードについてと ・perlのバージョンの違い、言語の違いなど 文字コードの文字列の指定に関する全般についてご教授願えませんでしょか。 宜しくお願い致します。

初心者です。よろしくお願いします。 簡易な掲示板を作っているのですが2chの様なage,sageシステム？の文の書き方がわからなくて苦戦しています。 掲示板に使っているテーブルは２つ 一つはスレッド本体のレコードをいれているものと、もう一つはレスなどコメントのレコードが入っています。 現在はスレッド本体のテーブル（ID順）に並べて表示させているのですが、新しいコメントがあればそれを一番上（2chの様に）に動かしたいと思っています。 自分なりに考えたのですがやり方が一向にわかりません。 もし、クエリー文で実現可能でしたらヒントだけでも教えて頂ければ嬉しいです。 よろしくお願いします。

定数が定義されてるモジュールに、以下のようにして定義しています。 use constant CODE2NAME => { 　　'000' => 'AAA', 　　'100' => 'BBB', 　　'200' => 'CCC', }; このキーになる部分を順番に取得する事は可能でしょうか？ 例えば、通常のハッシュだと %hash = ( 　　'000' => 'AAA', 　　'100' => 'BBB', 　　'200' => 'CCC', ); と定義しているとすると、 foreach $key ( keys %hash ) { ・・・ } こんな感じにキーを順番に取得出来るようにしたいのですが。。。 よろしくお願いします。