/></p></form></body></html>―bgm.cgi―のほう。#widthとheightのゲットにしか使わないので。#サーバ上の絶対パスでないといけないようだ。#サーバ上の絶対パスでないといけないようだ。#読み出したイメージのファイルハンドルからwidthとheightを取得する。Objectをundef。$fh1と$fh2はScriptの終了時にcloseされるらしい。File::Copyのmoveで使う。#サーバ上の絶対パスでないといけないようだ。@rec;move($from1,$to1);#終了exit(0);Perlのお勉強-#4。Perlのお勉強-#4。コメントを受け付けていません。Perlのお勉強-#3。スクリプトでは,画像のアップロード時にwidthとheightを教えてやる形になっている。当然ながらそんなことをしなくてもいいように,スクリプトの側でこれを取得させたい。この件に関しても最近のPerlでは簡単らしい。追加モジュールのImage::Sizeがインストールされていないといけないということで,自鯖についてppmから調べてみたら,Image::Sizeは入っていなかった(いるならインストすればいいわけだ)。XREAについてはどうすればいいんだろうとググったら,instmodshの話とExtUtils::Installedが見つかった。instmodshのほうはshellでCGIで使えないのではないかと思う(とにかく初心者なので自信はないです。―爆)ので,ExtUtils::Installedのほうでやってみた。モジュール確認(レンタルサーバー)を参考にさせてもらって,下のようなプログラム作りを走らせた。これで,インストールされているモジュールがすべてわかったのかどうかよくわからないんだが,少なくともImage::Sizeのインストールはされているらしいことは判明した(苦)。$list->modules;exit(0);Perlのお勉強-#3。Perlのお勉強-#3。コメントを受け付けていません。フォームからアップロードできるようにした。入力値のチェックもファイルサイズのチェックもまだだから,このまま設置すると多分えらいことなんだろうな。ものすごく久しぶりにPerlを弄っているけど,Perlも5ってなるとmoduleとか使うとずいぶんわかりやすくなっているんだね。