Perl ネタ
【Perl おぼえがき】CGI モジュールで form 要素を出力する。その 3。
Perl でゴニョゴニョして html で出力のに cgi.pm を使ってみます。
cgi.pm で radio_group, checkbox_group を表示できたのでその続き。
CGI モジュールを使って filefield を出力してみようと思います。
【filefield】ファイルアップロードフィールドを表示する
use strict;
use warnings;
use CGI/-no_xhtml/;
my $q = CGI->new;
print $q->header(-type => 'text/html',
-charset => 'euc-jp'),
$q->start_html(-title => 'form'),
$q->filefield(-name => 'file',
-default => 'filename'),
$q->end_html;
PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html lang="en-US"><head><title>text</title>
</head>
<body>
<input type="file" name="file" value="filename">
</body>
</html>
form で囲んで submit をつけたら選択したファイルをサーバにアップロードして保存したり Imagemagick なんかを使って加工したりもできそうです。
セレクトメニューなんかもやれそうだったので、また今度やってみましょう。
