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 ) { ・・・ } こんな感じにキーを順番に取得出来るようにしたいのですが。。。 よろしくお願いします。

早速ではございますが、質問をさせていただきます。 親クラスのパッケージとは異なるパッケージに子クラスが あるとき、子クラスが親クラスのメソッドをオーバーライ ドするときに、親クラスのメソッドのアクセス修飾子を publicかprotectedにしなければコンパイルエラーになり ます。それはなぜなのでしょうか？ どうかご教授のほどよろしくお願いします。

こんにちは。メールフォームを作ったのですが、 テスト送信すると文字化けになってしまいます。 それも、短い文章なら、日本語で表示されるのですが、文章がながくなると、一部分が文字化けしてしまいます。ヤフーの長い記事を貼り付けてみたのですが、やっぱり長いと変なところが文字化けしてしてしまいます。また、テストテストテストテスト・・・ とコピペすると、１４行目あたりから急に テストテストテストテストテストテストテストテストテ! %9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%9%H%F%・・・・・・・ となってしまいます。いったいどのように書けば文字化けを起こさないで送信できるのでしょうか。。 以下はメールのサブルーチンです。どこがおかしいのでしょうか？ご指導お願いいたします。 sub mail{ $mail_body .= "$mes\n"; $mail_body .= "$mes2\n"; $mail_body .= "$mes3\n"; &jcode'convert(*mail_body,'jis'); $subject2 = &mimeencode($subject); open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n"; print MAIL "From: $from_mail\n"; print MAIL "To: $to_mail\n"; print MAIL "Subject: $subject2\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n"; print MAIL "$mail_body\n"; close (MAIL); }

毎度、質問ばかりで申し訳ありません。 POSTでパラメータを投げているのですが、パラメータが渡らないことが あります。 GETでも同様のことがあります。 パラメータの数もサイズもそんなに大きくないのですが、なぜこのようなことが おきるのでしょうか？ 複数本のPERLプログラム間で連携しているのですが、パラメータ空間の初期化 など必要なことがあるのでしょうか？ 調べ方が悪いのか、Webでも適当なヒントが探せません。 どうかお助けください。 お願いします。

毎度、質問ばかりで申し訳ありません。 POSTでパラメータを投げているのですが、パラメータが渡らないことが あります。 GETでも同様のことがあります。 パラメータの数もサイズもそんなに大きくないのですが、なぜこのようなことが おきるのでしょうか？ 複数本のPERLプログラム間で連携しているのですが、パラメータ空間の初期化 など必要なことがあるのでしょうか？ 調べ方が悪いのか、Webでも適当なヒントが探せません。 どうかお助けください。 お願いします。

毎度、質問ばかりで申し訳ありません。 POSTでパラメータを投げているのですが、パラメータが渡らないことが あります。 GETでも同様のことがあります。 パラメータの数もサイズもそんなに大きくないのですが、なぜこのようなことが おきるのでしょうか？ 複数本のPERLプログラム間で連携しているのですが、パラメータ空間の初期化 など必要なことがあるのでしょうか？ 調べ方が悪いのか、Webでも適当なヒントが探せません。 どうかお助けください。 お願いします。

いつもお世話になっております。 HTMLのリセットボタンについて、質問させて下さい。 <input type="reset"> を使用した際の、プルダウンの動作なのですが、以下の動作をするのはHTMLの仕様(?)なのでしょうか？ ---- 前提条件 ---- <画面初期表示> ○色プルダウン▼ ブランク【初期値】 赤 黄 緑 ○くだものプルダウン▼ ブランク【初期値】 <画面表示時にonLoadで行う処理【配列生成】> 赤くだもの = new Array('りんご', 'いちご'); 黄くだもの = new Array('バナナ', 'レモン'); 緑くだもの = new Array('キウイ', 'メロン'); ---- 質問内容 ---- (1)色プルダウン選択時に、JavaScriptを使用して、くだものプルダウンの内容を生成する。 例)「赤」を選択した場合、くだものプルダウンは ○くだものプルダウン▼ りんご【初期値】 いちご と表示される。 (2)表示されたくだものプルダウンから、「いちご」を選択する。 (3)リセットボタンを押下する。 ********** (3)のオペレーション後の画面表示は、 ○色プルダウン▼ ブランク ○くだものプルダウン▼ りんご になります。 あたかもくだものプルダウンがリセットされていないかのように見えますが、これはHTMLリセットを使用している以上、仕方のないことでしょうか？ <input type="reset">でプルダウンのリセットを行う場合は、先頭の要素に戻される、という認識であっていますでしょうか？ ご教授お願い致します。 (参考URLを紹介して頂ければ、幸いです。) 宜しくお願い致します。

perlスクリプトなどで、判定文を記述する際の考え方について、 重箱の隅的な質問になりますが、よろしくお願いします。 (1)if等判定文での定数、変数の記述順序 例えば、ある変数が0であることを判定するのに、結果は同じなのですが、 [] if($a == 0) [] if(0 == $a) のどちらで書く方が良い（理にかなっている）のでしょうか？ （文字列でも同じでしょうか） [] if("$a" eq "") [] if("" eq "$a") (2)私はよく上限、下限の判定を行う際に、 [] 0 < x < 10 ということを表現する際に、 数学的に見映え（並び順）が同じになるよう、 [] if((0 < $x) && ($x < 10)){ と書くのですが、(1)のことと照らし合わせると、 [] if(($x > 0) && ($x < 10)){ と書いたり、 [] if((0 < $x) && (10 > $x)){ と書くほうが良いでしょうか。 (3)以上の(1)(2)のことは、標準的なＣ言語でも同じでしょうか？ (4)Perl独特の書き方ですが、1行で済む実行文の場合、 [] 実行文 if(条件文); と書く方が、 [] if(条件文) 実行文; と書くよりも変換効率（？）か何かが良いと聞いたのですが、 どういう理由でどちらが良いとかありますか？ この辺の違いはコンパイラが吸収してくれるので、どちらでも良いとか、 何か参考になる文献などもありましたら、ご教示よろしくお願いします。

　Perlのクラス(*.pm)からuseする側の*.cgi内ののスカラやハッシュ、配列の参照は可能でしょうか? いろいろなサーバに対応させやすくするため 1行目(Perlのパス)や各種モジュールのパスや設定情報を*.cgiに書いてプログラム本体は*pmに置きたいのです。 それとももっといい方法がございますでしょうか。 　教えて！ください。

　Perlにおける<?phpinfo();?>のようなPerlのバージョンなどのチェック機能はございますか？ 利用しているサーバのPerlの正確なバージョン(5.8.1など。5.8までではなく)やインストールされているモジュールなどが知りたいので。

　Perlにおける<?phpinfo();?>のようなPerlのバージョンなどのチェック機能はございますか？ 利用しているサーバのPerlの正確なバージョン(5.8.1など。5.8までではなく)やインストールされているモジュールなどが知りたいので。

ノートＰＣを壊してしまい、ハードディスクだけは助かったので IDE-USB2.0変換コードでつなぎデータの救出はできました。 このまま　外付けハードディスクとして使いたいのですが、 初歩的なこととは思いますが、ＨＤＤ本体は内蔵されていたときの向きで使わないと支障が出るのでしょうか、 置き場所に悩むので、壁に立てた状態で貼り付けられれば嬉しいのですが もし立てられるとしたら、その場合の上下は関係あるのでしょうか？ よろしくお願いします。

初めて投稿させていただきます。 宜しくお願い致します。 LWP::Simpleなどを使ってＷｅｂサイトのHTMLソースを 取得したいのですが、できません。 同じplファイルを使って環境Aでは取得できているのですが、 環境Bでは出来ません。 LWPのバージョンは5.805で、両環境とも同じです。 どこでエラー？が起こっているかSimple.pmから ソースを追って見たところ、 LWP::Simple::_trivial_http_get( )のSocketを取得する所で undefが返却されているようです。 さらに追っていくと、 IO::Socket::INET::new( ) →IO::Socket::new( ) →IO::Socket::INET::configure( ) 最終的にここまで来ました。 configure( )の、 --------------------------------------------- if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { # ${*$sock}{'io_socket_timeout'} = $timeout; return $sock; } --------------------------------------------- ここまで来て、上記のifブロックに入らず、timeoutかよくわかりませんが、 とにかくソケットを返していないようなのです。 その原因を、お教え頂きたいのです。 環境AとBで違う所は、大きな差としては、 無線LANを使ってない(A)か、使ってるか(B)しか無いです…。 また、環境Bで試した点としては、 ・無線LANルータに対して get('http://192.168.xx.yy');のようにした事と　→結果、だめ ・apache tomcatが立ち上がっているローカルホストに get('http://192.168.xx.zz:8080');のようにした事　→結果、だめ です。 長々と状況説明してすみませんが、ご回答お待ちしております。 以上です。

某CGIを改造中です。 記事を更新日順でソートしなおしたいです。 多分、ソート部分だと思われる部分の現状は、 ----- foreach (@data) { 　　($no,$year1,$month1,$day1,$name～～) = split(/<>/); 　　@tmp = (); 　　@tmp = map {(split /<>/)[0]} @data; 　　@data = @data[sort {$tmp[$b] cmp $tmp[$a]} 0 .. $#tmp]; } ----- です。 ただ、見ての通り、日付が「$year1,$month1,$day1」と分かれています。これを結合して(20060309のような形)、それを元にソートしなおしたいのですが、どのようにしたら良いでしょうか? 方法を教えてください。お願いします。

初めて投稿させていただきます。 宜しくお願い致します。 LWP::Simpleなどを使ってＷｅｂサイトのHTMLソースを 取得したいのですが、できません。 同じplファイルを使って環境Aでは取得できているのですが、 環境Bでは出来ません。 LWPのバージョンは5.805で、両環境とも同じです。 どこでエラー？が起こっているかSimple.pmから ソースを追って見たところ、 LWP::Simple::_trivial_http_get( )のSocketを取得する所で undefが返却されているようです。 さらに追っていくと、 IO::Socket::INET::new( ) →IO::Socket::new( ) →IO::Socket::INET::configure( ) 最終的にここまで来ました。 configure( )の、 --------------------------------------------- if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { # ${*$sock}{'io_socket_timeout'} = $timeout; return $sock; } --------------------------------------------- ここまで来て、上記のifブロックに入らず、timeoutかよくわかりませんが、 とにかくソケットを返していないようなのです。 その原因を、お教え頂きたいのです。 環境AとBで違う所は、大きな差としては、 無線LANを使ってない(A)か、使ってるか(B)しか無いです…。 また、環境Bで試した点としては、 ・無線LANルータに対して get('http://192.168.xx.yy');のようにした事と　→結果、だめ ・apache tomcatが立ち上がっているローカルホストに get('http://192.168.xx.zz:8080');のようにした事　→結果、だめ です。 長々と状況説明してすみませんが、ご回答お待ちしております。 以上です。

１．CPANのモジュールの下準備として必要な環境は、LinuxやCygwin環境を導入していること。 ２．以下のサイトの右側にあるDownload: CPAN-1.87.tar.gzをクリックしてダウンロードする。 http://search.cpan.org/~andk/CPAN-1.87/lib/CPAN.pm ３．C:\tempを作り、ここにLhaplusなどのソフトで解凍する。 ４．コンソールからcd C:tempに移動して以下のコマンドを打つ。 # perl Makefile.PL # make && make test # make install ５．ホームに戻りコンソールから以下のコマンドを実行する。 perl -MCPAN -e shell ほとんどエンターでOK？ ６．二回目にperl -MCPAN -e shellを押してcpanを起動する。 cpan＞install Bundle::CPAN などでモジュールをインストールする。 以上のことをやってみたのですが、スクリプトが動きませんでした。 各項目で間違っていることろなどを教えてください。 どこかのサイトではコンパイルが必要と書いてあったのですが、何をコンパイルすればいいのかさっぱりわかりません。ここもアドバイスお願いします。