ファイルのアップロードについて

質問

ファイルのアップロードができるCGIはフリーのものなどがたくさんweb上で配布されていますよね。
それをダウンロードしてくればいいのですが、１からつくりたいのです。
ダウンロードしてきて中をみてみたりしたのですが、アップロード以外の機能のことなどがたくさん書かれすぎていて、
どこがアップロードに対してのコードなのかイマイチわかりませんでした。
以前もアップローダーをダウンロードしてきて自分で改造したのですが、それではやはり身につかないようなので、
今回は一からつくろう！と思ったわけなんですが。。

アップロードをするだけのコードを少し教えていただけませんでしょうか？

たとえば
$folder=******;
$img=テキストボックスを使用して入力された画像の箇所
アップロードの実行

みたいな感じになれば多少なりともわかるような気がするのですが。

・ファイルのサイズの制限
・ファイルの種類の制限
等はなくて大丈夫です。

回答No.2

flowermaze · ベストアンサー

いろいろあるようです。

ライブラリ不要
http://nais.to/~yto/tools/ssupload/

cgi-libを使うもの
http://www.aimix.jp/cgi/acccgilibupfile.html

CGI.pmを使うもの
http://www.harukaze.net/~mishima/perl/module/upload_by_CGI_pm.html

"Perl ファイルアップロード" で検索すると、アップロード部分だけのコードサンプルがあるページがいくつもヒットしますよ。

お礼

回答ありがとうございます。

一番上のライブラリ不要のサイトへ行き、早速試してみました。

無事実行はできましたが、中のコードを見て、いきなりひっかかったので教えてください（＞＿＜）

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use POSIX qw(strftime);

この「use」はどういうことなのでしょうか？
普段こんなコードを見ないので…
「○○を使いますよ」という宣言みたいなものなのでしょうか？

補足

すいません、useわかりました。
関数だったんですね。
モジュールを呼び出すとか…。
はじめてみました。
あと普段使わないmy関数なんかも出てきていました。

ところでこのuse関数を使わないでこのコードを書いた場合はどのようになりますでしょうか？

回答No.1

kalze

CGIって言語はPerlでよいのでしょうか？

cgi-libなどのモジュールは一切使わないという条件ですか？

お礼

回答ありがとうございます。

はい、Perlで作成していますのでPerlでのコードを教えてください。

また、モジュール類は使うのに慣れていないので、できれば使わない方法がいいです。

補足

別の質問文をたてましたので、そちらもみていただければ、と思います。
よろしくお願いします。