Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
761:nobodyさん 08/01/18 12:15:45 ぐぐれかす 762:nobodyさん 08/01/18 12:39:13 アップロードされたファイルのを受信するCGIなのか、 それともファイルをアップロードするCGIなのか知らんけど http://search.cpan.org/~gaas/libwww-perl-5.808/lib/HTTP/Request/Common.pm http://search.cpan.org/~lds/CGI.pm-3.33/CGI.pm#CREATING_A_FILE_UPLOAD_FIELD 763:nobodyさん 08/01/18 12:51:11 >>760 ちゃんとした日本語で 764:nobodyさん 08/01/18 14:27:48 アップロードしたがってるCGIが欲しいんだろ 765:nobodyさん 08/01/18 15:13:46 意思を持つCGIｺﾜｽ 766:nobodyさん 08/01/18 16:38:38 >>760 こんな感じですか？ #!/usr/bin/perl use strict; use warnings; use utf8; use CGI qw/:standard/; use constant MAX_WAIT => 10; my $q = new CGI; $q->charset('utf8'); my $wait = rand(MAX_WAIT); my @mind = qw(uploadしたい uploadしたくない uploadしてもいい); my $mind = $mind[ int( rand(scalar @mind) ) ]; print start_html( -head => meta({-http_equiv=>'refresh', -content=>"10; URL=$ENV{SCRIPT_NAME}"}), -title => 'CGIの気持ち' ),$mind,end_html;

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4914日前に更新/271 KB
担当:undef