ただいま perl で画像アップロード機能を作成中でして。んで、ベタに CGI.pm でサクっと実装したら、何かアップロードしたファイルがぶっ壊れるじゃないですか。何故。 #!/usr/local/bin/perl -l use CGI; my $q = new CGI; my $uploadfile = $q->upload('photo'); $path = "./image/photo.jpg"; open (OUT, ">$path"); binmode OUT; print OUT while (<$uploadfile>); close (OUT); close ($uploadfile) if ($CGI::OS ne 'UNIX'); chmod (0666, $path); exit; 実際には mime によって拡張子を判定したりしなくちゃいけないんだけど、大体こんな感
概要 CGI.pmは、簡単にHTMLページを生成し、その内容を解析するためのPerl標準ライブラリです。 このライブラリのメソッドを使って、フォームから送信されたデータをチェックしたり、その値を使ってフォームを作成するといったようなことが出来ます。また、ファイルのアップロード、スタイルシート、サーバ・プッシュなどを実現する機能も用意されています。 CGI.pmはオブジェクト指向と、メソッド指向のプログラミング・スタイルがあります。このドキュメントでは、オブジェクト指向スタイルを使って説明していきます。 以下は、CGI.pmを使って、簡単なHTMLページを出力する例です。 # CGI.pmの読み込み use CGI; # 新しいCGIオブジェクトの作成 $obj = new CGI; print $obj->header, # HTTPヘッダの作成 $obj->start_html('hel
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く