くだすれPerl（超初心 ..
92:nobodyさん
07/02/10 14:46:42
CGIレスキューのショッピングバスケットプロ v６を使用しています。
このたび、アフェリエイト用のトラッキングタグを入れることになったのですが、
金額に関する変数の設定がわかりません。
cart.cgi内部の
$fee、$fee2、$SHOKEI2、$SHOKEI2、$orders
setup.cgi内部の
$j
など入れてみましたが、数値が出ません。
タグは注文の最終画面に入れ込みます。
注文IDに関してはすぐに出たのですが。。。。
エロイ方ご教授くださいませ。
93:nobodyさん
07/02/10 17:59:27
>>92
改造スレへGo
っていうか仕事を2chに持ち込むなYO
94:92
07/02/11 12:29:23
>>93
誘導有難うございます。
がんばってみて、駄目なら移動してみます。
95:nobodyさん
07/02/18 20:10:51
URLﾘﾝｸ(www.42ch.net)
このスクリプトで、ログファイルへのデータ追加時に
現在の年日時を取得して
2007/2/18 20:09
のような形式で行の末端に自動的に書き込むようにしたいのですが、
どの部分にどのような処理を加えれば良いでしょうか？
96:nobodyさん
07/02/24 08:30:18 vuvrJgei
最近外国人が宣伝目的で掲示板に書き込むので、なんどかしたい。
他の掲示板でも攻撃を受けているのをよく見かけます。
特徴としては、アルファベットのみで書き込むので、アルファベットのみの投稿の場合は
エラーにしたいのですが、そんなことは可能でしょうか？
97:nobodyさん
07/02/24 10:17:57
>>96
EUC-JPだけど
# $str に ASCII 以外が含まれているか判定する
if ($str =~ /[\x8E\xA1-\xFE]/) {
print "含まれている\n";
}
引用元
URLﾘﾝｸ(www.din.or.jp)
98:nobodyさん
07/02/26 13:07:30 bWsttIN4
改造です。
先頭行でなく最終行を取得しないとマズいことに気づいたんですが
どうすればいいでしょうか。
---------
if ($in{'ori_ie_id'} eq "admin"){
$bbs1_log_file = "./member/admin/bbs".$in{'bbs_num'}."_log.cgi";
}else{
$bbs1_log_file = "./member/$in{'ori_ie_id'}/bbs1_log.cgi";
}
open(IN,"$bbs1_log_file") || &error("Open Error : $bbs1_log_file");
# 先頭行を取得
$total_counter = <IN>;
($total_counter,$all_total_counter)= split(/<>/, $total_counter);
$top = <IN>;
local($b_num,$b_name,$b_date,$b_res,$b_count,$b_com)= split(/<>/, $top);
--------------------------
99:nobodyさん
07/02/26 16:00:02
よし、エスパー３級の俺が答えてやろう。
複数行の入力を取った場合配列になる。
@lines = <INPUT>;
この場合に最後の要素はこう所得できる。
$lastline = $lines[-1];
もしくはこう書いても良いだろう。
$lastline = pop(@lines);
これらの違いについてはマニュアルを嫁。
分かったら次からはエスパーじゃなくても分かる言葉で書くように。
100:nobodyさん
07/03/07 21:52:50
なんか、トロイの木馬が検出されましたと出た。
101:nobodyさん
07/03/22 13:03:52 RsfMZKm1
$value = '%e6%97%a5%e6%9c%ac%e8%aa%9e';
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
として走らせたところ、スクリプトをウェブサーバを通して呼んだときと
同じサーバのコマンドラインから呼んだときで
$valueの中が変わってきてしまいます。
linuxコマンドライン：ﾂづ可づ卍づｱﾂつｲ
linux上ウェブサーバ：にほんご
どうしてこうなっちゃうんでしょうか・・
コマンドラインから呼んだときでも"にほんご"とする方法はありますか？
102:nobodyさん
07/03/22 13:08:13
そのコンソールは日本語表示に対応してますか
103:101
07/03/22 14:06:12
ごめんなさいよくわからないです。
linuxのサーバへはwindows上のtelnetでつないでまして、
さきほど、簡単にprintで"にほんご"と表示させるだけ、
もしくはファイルとして保存するだけのスクリプトを
スクリプト自体の文字コードをいろいろ変えて走らせてみたところ、
どれも漢字混じりでぐちゃぐちゃっとなり、まともに出ませんでした。
これって対応してないって事ですかね。。
104:nobodyさん
07/03/23 12:35:39
せめてTeraterm使ってください
105:nobodyさん
07/03/26 05:21:22
表示文字コードを変更できないプロンプトってあるの？
106:nobodyさん
07/04/18 00:42:41 2fOrfnuV
#ディレクトリを開く
print "変換するフォルダのパスを入力してください\n";
$folder_path = <STDIN>;
chomp($folder_path); #改行コード削除
opendir(DIR, "$folder_path");
@file = readdir(DIR);
closedir(DIR);
#ファイル名を調べる
foreach (@file)
{
#htmlファイルなら処理
if( $_ =~ /.html/ ){
print "$1\n"; ##ここは呼ばれるが$1が空##
#ファイルを開く
open(F, "+< $_.$1" );
#ファイル１行読み込む
while($line = <F>){
#iso-8859-1をShift_JISに変換
if( $line =~ s/charset=iso-8859-1/charset=Shift_JIS/ ){
print(F "$line");
}
}
close(F);
}
}
htmlファイルの文字コードをかえるコードを書きたいのですが、うまくいきません。
どこが、間違ってるのでしょうか？
107:nobodyさん
07/04/18 01:10:01
まずエラーメッセージを書こうぜ
108:106
07/04/18 01:17:05 2fOrfnuV
#ディレクトリを開く
print "変換するフォルダのパスを入力してください\n";
$folder_path = <STDIN>;
chomp($folder_path); #改行コード削除
opendir(DIR, "$folder_path");
@file = readdir(DIR);
closedir(DIR);
#ファイル名を調べる
foreach (@file)
{
#htmlファイルなら処理
if( $_ =~ /([A-Za-z0-9_]*\.html)/ ){
print (STDOUT "$1");
#ファイルを開く
if( !open(F, "+< $floder_path.$1" ) ){
printf(STDOUT "HTML読み込み失敗\n");
}
#ファイル１行読み込む
while($line = <F>){
print(STDOUT "変換\n");
#iso-8859-1をShift_JISに変換
if( $line =~ s/charset=iso-8859-1/charset=Shift_JIS/ ){
print(F "$line");
}
}
close(F);
}
}
としたところ、
ファイル名 HTML読み込み失敗
と表示されます。
109:nobodyさん
07/04/18 01:22:04
じゃ動いてんじゃん
110:106
07/04/18 01:23:05 2fOrfnuV
ループにはいるまえに、カレントディレクトリをへんこうし
#カレントディレクトリ変更
chdir("$folder_path");
open(F, "+< $floder_path.$1" )を
open(F, "+< $1" )とすると置換の部分は実行できました。
しかし、置換前の文字が残ってしまいます
111:nobodyさん
07/04/18 01:59:13
>置換の部分は実行できました。
>しかし、置換前の文字が残ってしまいます
バカじゃないんだから実行前の入力文字列と実行後の出力文字列くらい出せや
112:nobodyさん
07/04/18 02:06:45
香ばしいなぁｗ 俺にもあったわこんな時代ｗｗｗ
>>108
ファイル変換系の処理は「読み込むファイルに書き戻す」よりも
「読み込みつつ別のファイルに書き出す」ようにした方がいい。
書き出しが終わった後で削除＆リネームすればいいだけだし、
途中で処理が止まっても安全。
あと微妙に板違いだから次からはプログラム板行けなｗ
113:106
07/04/18 02:57:11 2fOrfnuV
別ファイルに書き出しでやってみます
ありがとうございました。
つぎからはプログラム板逝きます
114:nobodyさん
07/04/18 03:45:43
島根県のみなさん、パチンコをするなら、
優良パチンコ店 エ○トワン
に行こう！ 遠隔（※１）をやっていないパチンコ店は「エイ○ワン」だけ！
違法ロム（※２）を使っていないパチンコ店も「エイト○ン」だけ！
○イトワンでは、遠隔等が可能な設備は入れていません。 ロムも、警察がチェックしやすくしています。
詳しい方はご存知の通り、どんなにパチンコの遊戯人口が変動しても、その市場規模は変わりません（※３）。
要するに、客が減っても、残った客から絞り盗る量を増やして調整しているのです。
しかし、何故それが可能なのか？…ご理解頂けると思いますが、９割以上の店が確実に遠隔等を行ってます。
１万店以上のパチンコ店の中で、遠隔も違法ロムも確実にやってないのは「○イトワン」ただ１店です！
※１…遠隔とは
「お、あの客は新顔だな。勝たせて味を占めさせるか。遠隔操作で設定変更しよ」
「客が減ってきたな。ま、設定を絞めて（違法）、１人あたりから搾る量を増やせばいいか」
「あのオヤジ負け続けてるからそろそろ辞めるかもな。今日は勝たせてやるか」
※２…違法ロムとは
「うちのアタリ確率は、もちろん他と同じ『○○○分の１』ですよ！（ロムいじってるからウソだけど）」
※３ 市場規模 遊戯人口
平成06年 30兆4,780億円 2,930万人
平成08年 30兆0,630億円 2,760万人
平成10年 28兆0,570億円 1,980万人
平成12年 28兆6,970億円 2,020万人
平成14年 29兆2,250億円 2,170万人
平成16年 29兆4,860億円 1,790万人
115:nobodyさん
07/04/24 12:15:29
perlでそれなりに大きなCGIを作ることになったのですが
いろいろな関数をまとめた物を作るときに
それらを単純にまとめただけの外部plファイルを
requireして使いまわすよりも、パッケージ化や
モジュール化して使ったほうが良いと
聞いたのですが、何故でしょうか
116:nobodyさん
07/04/24 14:22:11
パッケージ化することによって、関数（メソッド）や変数（属性）の名前衝突を避けることができ、
モジュールをつかいまわす場合に有効。
117:nobodyさん
07/04/24 14:37:40 RJoF4cmJ
Windowsマシンで、Apache + ActivePerlを使用して、ローカルでPerlの勉強をしているんですが、
Perlのコードにエラーがあると、
use Strict; を記述しても、500 Internal Server Errorになってしまいます。
（どういうエラーが出たか教えてくれない）
エラーを表示させるにはどうしたらいいんでしょうか。
各バージョンは、
Perl v5.8.8
Apache 2.0.59
です。
118:nobodyさん
07/04/24 17:10:54
>>116
なるほど。変数名の衝突を気にしなくてもいいのは便利ですね
これからパッケージの勉強からしてみます
ありがとうございました
119:nobodyさん
07/04/24 17:23:24
>>117
スクリプトの頭に
BEGIN {print "Content-Type: text/plain\n\n"; $| = 1; open(STDERR, '>&STDOUT')}
とでも書いとけ
120:nobodyさん
07/04/25 02:24:17 lSJlnLTR
>>117
モジュールつかっとけ
use CGI::Carp qw(fatalsToBrowser);
URLﾘﾝｸ(perldoc.jp)
121:nobodyさん
07/04/25 20:53:26
[ディレクトリ構成]
xxx/
index.html
data/
post.dat
cgi-bin/
xxx/
post.cgi
と置いてあります。このとき
#!C:/Perl/bin/perl
open(OUT,">> ../../xxx/data/post.dat");
print OUT "$FORM{'posturl'}\n";
close(OUT);
と post.cgi に記述してみたのですが、うまく
post.dat のほうに $FORM{'posturl'} の内容が書き込めていないようでした。
パスの設定ミスだとは思うのですが…
環境は,windows xp sp2 上 でApache/2.0.45 を使用しております。
どうぞよろしくお願い致します m(__)m
122:nobodyさん
07/04/25 22:02:43
それだけじゃさっぱり
123:nobodyさん
07/04/25 22:56:34
自己解決スマソ。
open(OUT,">> ../../htdocs/xxx/data/post.dat");
とすれば良かったみたいです。
htdocs/
- xxx/index.html
- xxx/data/post.dat
cgi-bin/xxx/post.cgi
webプログラムってプログラム以外の部分がややこしい…
124:nobodyさん
07/04/26 16:20:32 Xsmaee58
■ Perl言語 ■ 何でも質問コーナー ■
URLﾘﾝｸ(mixi.jp)
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！)
（Web系であればOK）
ルール：
Google検索で調べてわかるようなことでも質問してもOKです
（初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので）
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o
125:nobodyさん
07/05/01 16:23:34
PerlでファイルアップロードCGIを作ろうとしています。
「1. ファイルを選ぶ 2. 確認画面 3. 送信完了」と動作させようとして
躓きました。2. 確認画面を表示しない場合はうまくいくのですが、
確認画面を間に挟むと空のファイルがアップロードされてしまいます。
1 から直接 3 にいくプログラムは次のように組んであります。
1. CGI.pmを使ってfilefield('file');でファイル選択させる。
3. $fh = upload('file'); でファイルの情報を得て、
while(read...){print...} でファイルを書き込む。
2 をはさむときは、param('fh', $fh); print hidden('fh');
として情報を保存しました。
たぶん、上の方法では必要な情報を保存しきれていないのだと
思うのですが、どうすればよいかわかりません。よろしくお願いします。
126:nobodyさん
07/05/03 02:37:57
無理
127:初心スレ861(481)
07/05/25 22:03:25 1LPPhSSe
質問です
if(a=1){
if(b=1){
print "○○○"
}
}
というようにＩＦの中でＩＦは可能ですか？
128:nobodyさん
07/05/25 22:17:31
歴史にIFなど無いのだよ
129:nobodyさん
07/05/25 23:10:03
>>127
なぜ不可能だと思うんですか？
130:nobodyさん
07/05/25 23:29:35
>>129
うごいていたプログラムのＩＦの中にＩＦ入れたら壊れたからです
何か他にげんいんがあるのかお
131:nobodyさん
07/05/25 23:47:26
お前のプログラム知識だよ
132:nobodyさん
07/05/26 05:47:48
if(a=1)
なんか懐かしいなw
こういうの見たの15年ぶりだよ。
133:nobodyさん
07/05/26 23:39:33
perl 関連スレッドに機会があったらいつか書こうと思って
たんだが、機会が無いのでここに独り言として書く。
[初心者のための perldoc ]
perldoc は、本を開かなくともいつでも開くことが出来る手軽なリファレンスだ。
ターミナルで「perldoc perl」と打ち込むだけで概要が出てくる。SYNOPSIS に
リストがつらつら書かれているがそれぞれ perldoc で呼び出すことができる
1. とりあえず基礎の基礎を読んでみたいなら「perldoc perlintro」
( for, while, if などもここを最初に )
array of array などなら「perldoc perllol」
正規表現なら、「perldoc perlre」
スイッチ（所謂コマンドラインオプション）なら「perldoc perlrun」
etc...
これらの文章中 see perlxxxx.... と書かれていたら素直に
「perldoc perlxxxx」すればよい。
2. 個々の関数について調べたいなら
「perldoc -f reverse」
などと f オプションを付けて実行する。
3. 取り敢えず、なんか判らんって時。例えば「配列」
「perldoc -q array」
faq の中から array を含む文章拾ってくれる。但し question のみ。
4. 個々の説明文 pod にアクセスしたい時
「perldoc Tie::File」
「perldoc strict」
5. 「perldoc -h」すれば、perldoc の使い方の説明が出てくる。
perldoc の中身には例文も出てくるので、英語が判らんでも 2ch に
相談するまえに見てみることをお勧めする。
どーしても、という方には web 上にはそれなりに翻訳された perldoc が
あるのでターミナルで「perldoc perl」でリストの中から目星を付け、
そのファイル名で検索するのも良い。
（但し最新版ではない事がほとんどなので注意が必要）
134:nobodyさん
07/05/29 00:59:04 +KVPsKMz
質問です。
#!/usr/bin/perl
open (IN,"< http://あｑｗせｄｒｆｔｇｙふじこ/test.dat") ;
@LINES = <IN>;
close(IN);
print "Content-type: text/html\n\n";
print "<html><head></head><body>";
foreach(@LINES){
print $_ . "\n";
}
print "</body></html>";
}
こんな感じでhttpから始まるURLをうって
ファイルを開いて処理したいんですがどうやら読めないっぽいです。
open (IN,"test.dat") ;
に変えると動いてくれるのですが、、、
仕様上不可能なんでしょうか？
135:nobodyさん
07/05/29 01:19:04
>>134
allow_url_fopen が効いてる PHP みたいな、裏でどうにかしてくれる仕掛けはありません。
LWP使えば外部のファイル自体は取得できるけど。
136:nobodyさん
07/05/29 02:04:54 +KVPsKMz
>>135
こんな時間にレスあり ＞＜
use LWP::Simple;
$a = get("http://くぁｗせｄｒｆｇｙふじこ/test.dat");
で取得できました。ありがとうございました。
これで気持ちよく眠れます。
137:nobodyさん
07/06/03 00:26:01
久しぶりにperlでcgi作ろうかと思うんだけど、今はutf8で書くのが一般意的？
138:nobodyさん
07/06/03 13:53:14
なんでもおｋ
139:nobodyさん
07/06/05 13:52:29
ブラウザで操作をして
自サーバ内のファイルを別サーバへコピーしたいんですが（セキュアFTPサーバ)
Net::FTP
を使って、セキュアなFTPサーバへ接続は出来ますか？
もしくは、可能な別モジュールってありますか？
140:nobodyさん
07/06/07 14:40:32 TOlQmlY8
すいません。
定期的にフォーム部品の個数が変わるフォームで、
１コでも未記入があった場合にエラーが出したいんです。
radio1
radio2
radio3
textarea1
textarea2
radio4
・
・
・
その時によって、フォーム部品の数が増えたり減ったりします。
汎用的に未記入があった時にエラーを返すにはどうしたらいいでしょう？
141:nobodyさん
07/06/07 15:58:44
フォームにフィールド一覧をhiddenで入れておくとか
142:nobodyさん
07/06/07 16:38:40
それはだめだろｗ
143:nobodyさん
07/06/07 17:31:11
エンティティボディに=&か=$があったら落とせばいい
144:nobodyさん
07/06/07 17:33:24
それでは駄目
仕様上は未入力のフィールドは送信しなくてもいいことになってるんで
145:nobodyさん
07/06/07 17:51:47
そんな細やかなもんなら全部やるしか無いでしょ
どのみちレングスや内容を全部調べるんだろうし
146:nobodyさん
07/06/08 11:15:29
>>144
inputがあるのに未入力を検出したいってんなら>>143で問題ないと思うのだが。
>仕様上は未入力のフィールドは送信しなくてもいいことになってるんで
って何の仕様の話？
147:nobodyさん
07/06/08 12:03:20
>>146
HTML 4.01
148:140
07/06/08 13:54:24 i/tb2omn
144は私ではないです。
みなさんありがとうございます。
>143さんの方法が良さそうですね。
ところで、エンティティボディって何の事でしょう・・・・？
すいません、ぐぐってみます；
149:nobodyさん
07/06/08 17:32:56 rRYhakqE
お世話になっております。
今現在Perlを使用したCGIを作成していて困った事があるので相談させていただきます。
HTML側が
----------------
<form method="POST" ENCTYPE="multipart/form-data" action="edit_completion.cgi">
<input type="file" name="TENSOU">
：
----------------
としていて受け取るCGI側を
----------------
：
my $cgi = new CGI;
my $image = $cgi->param('TENSOU');
my $file_name="./test.jpg";
my $buffer;
open(OUT, ">$file_name") or die(qq(Can't open "$file_name".));
binmode OUT;
while (read($image, $buffer, 1024)) {
print OUT $buffer;
}
close OUT;
：
----------------
としているのですがうまく受け取れません、、、
上記perlは昔自分が書いたものを参考にしたのですが
ナニを参考にしたのか覚えていません。
どこか使用方法が載っているURL等お教えいただけないでしょうか？
150:nobodyさん
07/06/09 13:37:43
URLﾘﾝｸ(www.harukaze.net)
ここを参考にしたら？
151:nobodyさん
07/06/10 18:01:18
Perlを勉強し始めて一ヶ月ぐらいかな・・・
仕事の傍らちょこちょこやってて
今「続・初めてのPerl」のオブジェクト指向とかリファレンスのトコ
そこ入ったらいきなりクラスとかメソッドとか初出の単語が連発してきてかなり混乱
なかなか頭に入ってこなくて泣きそう(つωと)
152:nobodyさん
07/06/10 20:07:23
>>151
「続・初めて」
は題名に反して、「リャマ、ラクダ、CookBook、Best Practice、etc.」を
読んだ後に読む本だぞ。
153:nobodyさん
07/06/11 00:16:13
>>152
レスありがとうございます
う、そうなんですか・・・もっと吟味すればよかった(・ω・｀)
リャマは読み終わりましたのでラクダ本検討してみます
しかし高い・・・
後、やっぱりUnix環境整えた方がいいですよね
今までWindowsのみでやってきたので、Unixの事はチンプンカンプンですけど
WindowsみたいにOSのパッケージを買えばいいのかな・・・調べてみようと思います
ありがとうございました
154:nobodyさん
07/06/11 01:57:28
ム板「質問箱 30」の704 からの流れも参考にしとけ。
後半は、マカーなので分らんw
が、Windows だけで完結してそうな人も多いし、Cygwin
辺りで慣れるだけじゃダメなのかなあ。
もちろん業務とかが絡む人は別だけど。
155:nobodyさん
07/06/11 02:16:08
「原題」ってなんだったっけ、ってサイトに行ってみたら
URLﾘﾝｸ(www.oreilly.co.jp)
絶版になったのか、、、
156:nobodyさん
07/06/11 23:50:11 kL3eCwRQ
Perl初心者です。
スクリプトの文法チェックをしたいのですがどなたかいいツール知りませんか？
検索してみたのですがなかなかいいのが見つからなくて。
157:nobodyさん
07/06/12 02:23:49
文法チェックなら perl -c でやりゃいいじゃん。
もう少し厳しくみるなら perl -wc
perldoc perlrun くらいはしといてくれ。
158:nobodyさん
07/06/12 12:32:30 0KbPnFiH
>>157
ありがとう、早速試してみます。
159:nobodyさん
07/06/12 12:43:31
>>157
ここは超初心者用だ
お前のような排他的な奴は出て行け
160:nobodyさん
07/06/12 14:08:36
>>159
排他って言葉の意味わかってるのか?
161:nobodyさん
07/06/12 16:16:31 0KbPnFiH
ついでにおすすめのエディタもお聞きしたいのですが？
162:nobodyさん
07/06/12 16:55:27
>>161
windows?
秀丸とかEmEditor、金出したくなければ
xyzzyあたり。
163:nobodyさん
07/06/12 17:19:53 0KbPnFiH
>>162
windowsです。
普段は秀丸を利用しています。
秀丸はHTMLは書きやすいのですがPerlは微妙です。
Perlに特化した感じのエディタがないかいろいろ検索中ですがなかなかいいのが見つからなくて。
164:nobodyさん
07/06/12 18:56:13
ｘｙｚｚｙとか、unixで主に使われるエディタなら
perl用のモードがあるよ
Emacsとかvimとか。
windows用もあるけど、初心者お断り的な
ところがあるから、慣れるまでは
大変かも。
希望の機能とかはあるの?
165:nobodyさん
07/06/12 21:45:38 0KbPnFiH
>>164
やっぱ色分けはわかりやすいほうがいいですね。
秀丸はヒアドキュメントの部分がわかりづらくて。
あとは文法チェックやプレビュー機能なんかがあればうれしいですね。
開発環境にこだわるのはある程度知識身につけてからのほうがいいのでしょうか…
なんせまだPerl勉強して１ヶ月もたってないもので…
166:nobodyさん
07/06/12 23:26:18
PerlEditor ただしUTF-8非対応
Eclipse + PerlPlugin
167:nobodyさん
07/06/12 23:37:16
>>165
つーかまずコード書こうや
道具選びはそれからでも遅くない
168:nobodyさん
07/06/13 02:12:53
>>165
最初はそんなにでかいコード書くこともないだろうから、
それこそメモ帳でなきゃ適当なエディタでいいと思うけどね。
とりあえずこいつは構文チェックをしてくれるらしい
URLﾘﾝｸ(activestate.com)
体験版はあるみたいだけど基本的に金だして買わなきゃいけないし、
ドキュメントは英語だけ。
ところでプレビュー機能ってなに? CGIでも作るの?
169:nobodyさん
07/06/13 12:39:29 Ij6cMTyX
とりあえずエディタはこれかPerlEditor落ち着こうと思います。
URLﾘﾝｸ(www.forest.impress.co.jp)
PerlはCGI作るために勉強しはじめました。
とりあえず10日で覚えるPerl/CGIという入門書を読んで勉強中です。
170:nobodyさん
07/06/13 18:17:02
私は一晩で学ぶSQLを買いました。最終的に3年かかりました。
171:nobodyさん
07/06/14 13:02:46
ワロタ
172:nobodyさん
07/06/14 19:02:31 MrJTWOJA
CGIで質問フォームを作ってそれが完了したと同時にメールが送られるようにしてるんだけど、
一定文字数を越えると文字化けしてしまう。。
誰かこの文字化けが何系の文字コードか分かる方います？？
$"$($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($3$3$G2~9T$*$*$*$*$*$*$*$*$*$*$*$*$
173:nobodyさん
07/06/14 19:21:03
別スレに書き込みますすいません。
174:nobodyさん
07/06/15 18:43:38 3CYhNC9F
Perlを勉強するうえで読んでおいたほうがいい書籍ってなんですか？
175:nobodyさん
07/06/15 19:41:34
>>174
1. ああっ女神さまっ 1～34巻
2. 逮捕しちゃうぞ 文庫版1～4巻
3. 大人のCGIスクリプト
176:nobodyさん
07/06/15 20:12:22
女神はクソアニメだろ…
177:nobodyさん
07/06/15 20:55:45
銀英伝全巻（余裕があるなら、アニメ版全巻も）
178:nobodyさん
07/06/15 21:51:09
それが僕には楽しかったから(小学館プロダクション)
ニーチェ入門 (筑摩書房)
本当の潜水艦の戦い方 (光人社)
179:nobodyさん
07/06/15 22:38:03 3CYhNC9F
まじめに教えてくださいよ
180:nobodyさん
07/06/15 22:48:57
あいまい3cm
181:nobodyさん
07/06/15 22:51:37
答えていますとも。
>SF を読むこと。
>だじゃれや言葉あそびへの理解を深めること。
>母国語できちんと文が書けるようになること。
>多くのハッカーは「おたく」というレッテルを受け入れています。
>それは自分が普通の社会的期待から自由だと宣言する方法の一つなのです。
URLﾘﾝｸ(cruel.org)
182:nobodyさん
07/06/16 21:27:44 0wRsaGP2
Perl勉強しただけでハッカーになれるんですか？
183:nobodyさん
07/06/17 08:54:43
perlしか知らなくてもハッカーになれるヤツはなるし
全言語覚えてもハッカーになれないヤツはなれない
要は応用力の問題
184:nobodyさん
07/06/20 21:35:54
よろしければご教示願います。
PerlのCGIからEXEを叩くだけのSYSTEM関数を呼ぼうとしているのですが
処理自体はバックグラウンドでやらせて、制御は画面に戻したいので
「res = SYSTEM(1, @args)」で実行しようとすると、-1が戻されてしまいます。
「res = SYSTEM(@args)」でやれば問題なく動くのですが…
第一引数に1を設定した場合は実行不可になる、といったような
事例はあるのでしょうか？
（検索キー「SYSTEM」では該当が多すぎて…）
185:nobodyさん
07/06/20 22:20:47
>>184
つかそもそもsystem関数の使い方わかってないだろ
「perl system」でググるくらいの検索能力は身につけようぜ兄弟
186:nobodyさん
07/06/20 22:35:16
win 用の特別な記法があるのかと思ってググりまくった俺、マカー。orz...
187:nobodyさん
07/06/20 23:12:17
>>185
いやあの・・・すいません。
「@args」と書いてあるところが、叩かせようとしているEXEの
引数つきコマンドラインです。
system関数の記事ならいくつもHITしますが、第一引数に1をセット
しての使い方についての記述はほとんどなかったので…
（この書き方自体がwin専用らしいですが）
188:nobodyさん
07/06/21 00:30:05
>>187
最初に「Windows+ActivePerlの環境です」とかくらいは書いた方が良いと思うんだ。
@argsの内容とかも。argsなんて名前の配列にコマンドまで入ってるなんてあまり想像しない。
で、たぶん-1返してるのは@argsの中のプログラム側だからそっちを調べないと無理かも。
189:nobodyさん
07/06/26 18:01:07 pgSc3qoH
perl、cgiを独学で勉強しているが理解できない；；
１０日で覚える～の本を参考書にしてるけど１０日じゃ理解できないYO・・
学習能力ねぇから難しいなぁｗ
190:nobodyさん
07/06/26 23:19:15
この手のは学習能力というより意欲の問題。
若干相性はあるがね。
191:nobodyさん
07/06/26 23:32:33
人間必要に駆られないと覚えないから。
1. 何を作りたいか決める
2. とにかく作り始める
3. 詰まったら実現方法を参考書で調べる
4. 2に戻る
あとメモを取った方が効率が上がる。特殊変数全部メモるとか。
それさえあれば何時でも何処でも（少なくとも自分だけは）必ず何でも書けるメモを作る。
192:nobodyさん
07/06/26 23:38:09
「10日で覚える～」を買って本当に10日で習得したって話は聞かないから
>>189はあんまり気にしなくていいよ。
>>191
必要に駆られると覚えるの早いよなあ。納期とか。
193:189
07/06/27 11:43:36 qSRVuZRU
関数が覚えられないからメモをしっかりとってやってみます＾＾；
ゲームとか掲示板を思い通りに作りたいのでまずは基礎からって
感じだと思ったので、とにかく習うより慣れるかな～
194:189
07/06/28 17:14:56 /27P2PeN
質問なんですがよろしくです
#! c:/perl/bin/perl
open(IN, "+<./count.dat");
$count = <IN>;
++$count;
seek(IN,0,0);
print IN $count;
close(IN);
こんなアクセスカウンターがあったとして./count.datの中に
１２が書き込まれていたら次にアクセスしたら１３になりますよね？
seek関数でファイルの先頭に持ってきているのはわかるんだけど
先頭にそのまま持ってきたら１３１２にならない理由を教えてほしいっす＞＜
195:nobodyさん
07/06/28 17:44:35
ファイルにはインサートモードは無い
196:189
07/06/28 17:53:34 /27P2PeN
インサートモードって何ですか？
seek(IN,0,0);
の、部分だけ消してアクセスすると１２１３になるけど
seek(IN,0,0);
が、あることにより上書きになるの？
197:nobodyさん
07/06/28 17:58:37
常に上書きだ
書き込みポイント（シーク位置）が読んだことにより後ろになってるだけ
末尾で上書きすれば追加と同じだろう
メモリでも挿入ってのは、データを後ろにずらしてから上書きしてるんだよ。
198:189
07/06/28 18:16:42 /27P2PeN
？？？（´･ω・`）
seek(IN,0,0); は、
常に上書きって覚えとけば問題ないのかな？
ありがとうございますです。
199:nobodyさん
07/06/28 18:26:31
あーもういいやそれで
200:nobodyさん
07/06/30 14:41:50 zANvV/vQ
こういう範囲指定を → 4.43.96.0/24
このように変換 → 4.43.96.0-4.43.96.255
したいのですが、良い方法を教えてください。
201:nobodyさん
07/06/30 15:21:36
拡大解釈して、「あるIPアドレスがあるネットマスク内にあるか否か」
ってスクリプトなら。
my $netmask = q{4.43.96.0/24} ;
my $ip = q{4.43.96.0} ; # <= ここにテストするIPアドレスをセット
my ( $org_ip, $byte ) = split m{/}, $netmask ;
my $packed_one = unpack qq{B$byte}, pack 'C4', split ( /\./, $ip ) ;
my $packed_two = unpack qq{B$byte}, pack 'C4', split ( /\./, $org_ip ) ;
if ( $packed_one eq $packed_two ){ print q{in} . qq{\n} ; }
こんな感じ？と素人が答えてみるテスト。
202:nobodyさん
07/06/30 15:54:22
>>201
正直Perlは良く分からないのですが、コピペして結果がでました。
どうもありがとうございます。ﾍﾟｺﾘ
203:質問
07/06/30 16:27:58 6uCjWfRX
配列の値をリファレンスを使って、サブルーチンへ渡す方法についての質問です。
下記のような簡単な物を作って、配列のリファレンスがサブルーチン側へ渡されていることは
わかりました。($alldata_refと$getdata_refが同じ）
が、サブルーチンを使っての配列の値の参照がなぜかできません。
いろんなサイトをみても問題はないようですが、わかる方教えてください。
@alldata=(1,2,3,4,5);
$alldata_ref=\@alldata;
print "$alldata_ref\n";
foreach (@$alldata_ref){
print "$_";
}
print "\n";
&COUNT8(\@alldata);
sub COUNT8{
my $getdata_ref="@_";
print "$getdata_ref\n";
foreach (@$getdata_ref){
print "$_";
}
print "\n";
204:nobodyさん
07/06/30 16:43:21
my $getdata_ref=shift;
205:203
07/06/30 16:46:10
うほっ。
よくわかりませんが、できました。
ちょっとshift勉強しに公園のトイレ前に行きます。
206:nobodyさん
07/06/30 16:53:48
便乗で質問させてください
>>203って、サブルーチンの中で引数を取得する時に
ダブルクォーテーションで囲った事が原因ですよね？
207:nobodyさん
07/06/30 17:11:28
printで表示される物と、内部的な扱いは違う。
ついでに、ダブルクオートしなかったら要素数が返るだけと思う。
shift@_なり、$_[0]なりで、ちゃんとリファレンスを取得することが大事。
208:nobodyさん
07/06/30 20:16:18
ついでに、ダブルクオートしなかったら、COUNT8に渡された
リスト(アレイリファレンス1個のリスト)がスカラーコンテ
キストで評価されて結果は1。
209:nobodyさん
07/07/01 06:34:28
my($getdata_ref)=@_;
が推奨されています。
当たり前ですが複数なら以下です。
my($abc,$def,$ghi)=@_;
またPerlでは@arrayの評価は左辺値で決まるので、ダブルクオートしなければ
必ず要素数が返ると信じるのは誤動作の元です。
$#array+1を使うか、scalar(@array)と明示する方法がオススメです。
さらにfor文をこのように書く人が大勢居ますが、
for(,my $i=0; $i<@array; $i++)
非常に遅いので予め@arrayの要素数をスカラーに移して使いましょう。
210:nobodyさん
07/07/03 16:41:35 Fn19fg5B
>>209
板違い。
Perl板でやれ。
211:nobodyさん
07/07/03 19:22:53
perl板って何処にあるんだよ。
212:nobodyさん
07/07/04 09:06:32
URLﾘﾝｸ(pc11.2ch.net)
213:nobodyさん
07/07/07 14:31:13 MhnKrAyD
ActivePerlでPerl始めたんだけど、エクセルのデータかCSVから
それぞれの行、列から数値を取り出したいんですけど、
どこかに良いサンプルか参考になるサイトはないですか？
214:nobodyさん
07/07/07 14:50:58
>>213
ここはwebprog板なのでキミの質問は板違いである。
215:nobodyさん
07/07/08 06:04:57
べつに板は違わないけど
Perl CSVやPerl Excelで検索すりゃ一瞬で出るものを書かれると何かが減退する
216:２１３
07/07/09 22:38:35 6iXDsaKo
Webで検索しても分らないから質問したんですが・・・orz
217:nobodyさん
07/07/10 10:55:28
減退しようぜ
218:nobodyさん
07/07/10 11:13:10
まああるていどやって、ここがわからないという質問だと答える気にもなるけど
お前らの答えは信用ならんから、サンプルやサイトを教えてくれと言われたら
こたえる気はなくすわな
219:nobodyさん
07/07/10 11:49:08
「IBMの言う通りにしたけど出来なかった(ﾟДﾟ)」
と言われたなら、へー出来ないんだーという情報価値も少しある。
出来たらぶっ飛ばすけどね。
今ちょっと見たらOffice2000がどのライブラリも対応してる感じだけど、
バージョンの説明も無いし、なんで検索のお手伝いをしないといけないんだって。
220:nobodyさん
07/07/10 13:28:27
>>216
Google 使って「Perl CSV」で検索すると、先頭に出てくるのだが。
一体、何がどう分からないのかな？
221:nobodyさん
07/07/10 18:20:33
Mac OS X(10.3.9)を使ってるんですが、perlが5.8.1です。
アップグレードってどうやるんですか？5.8.6にしたいんですが(参考にしてる本が5.8.6だから)
222:nobodyさん
07/07/11 09:43:51
>>216
ほれ。ﾁｮｰわかりやすいサンプルを書いてやったぜ。
#! /usr/bin/env perl
$csv = <<"_CSV_";
activePerlで,Perl,始めたんだけど、,エクセルの,データか,CSVから,
それぞれの,行、列から,数値を,取り出したいんですけど、,
どこかに,良いサンプルか,参考になる,サイトは,ないですか？
_CSV_
grep{push(@d2a,[split(/,/)])}split(/\r?\n/,$csv); # 格納
for(@d2a){print for(@$_);print "\n";} # 表示
223:nobodyさん
07/07/11 09:47:22
>>221
5.8.6をインストールすればいい
224:nobodyさん
07/07/11 15:56:08 FWgAFc3u
質問です。おながいします
sub printPage
{
my $begin = $FORM{'page'} * $PAGEVIEW;
my $end = $begin + $PAGEVIEW;
if($end > @DATA) {
$end = @DATA;
}
本を見ながら掲示板を作っているんだけど、my $begin やmy $end が
@DATAの添え字になっているって本に書いてあるんだけど@DATAの添え字なら
$DATE[$begin]とかってってならなくてmy $begin やmy $endで添え字になって
いる理由がわかりません。
わかる方おながいします。
225:224
07/07/11 16:09:46 FWgAFc3u
すまんかった。スルーしてくれ
226:nobodyさん
07/07/11 19:57:17
>>222
Excelの吐くCSVはそれだけじゃダメだよ…
227:213
07/07/12 08:33:10
CSVの1行目に
A,B,C,D,E,とあるとするとそれを
①＝A
②＝B
③＝C
…
と格納して
print ③
print ②
print ⑤
みたいなことがしたいんですが。。。。
この処理が終わると2行目へ・・・と言った感じで。
228:nobodyさん
07/07/12 14:01:39
(:.;ﾟ;Д;ﾟ;.:)y-~
229:nobodyさん
07/07/13 15:37:18 jk1vnwXj
超初心者質問です。おながいします。
#! c:/perl/bin/perl
print "Content-type: text/html\n\n";
print "Hello Perl !";
と、ＣＧＩに書いて本には
Content-type: text/html
Hello Perl !
と、出力すると書いてあるのですがやってみると、
Hello Perl !
しか出力しません。なぜでしょうか？？
AN HTTPD ってのを使ってます。
230:nobodyさん
07/07/13 15:49:26
>>229
ブラウザ何使ってる？
wgetとかコマンドラインのやつ使ってなけりゃ
Firefox入れてLive Http headers アドインを入れてみるのを薦める
231:nobodyさん
07/07/13 15:52:21
>>229
本の出力例＋説明はコマンドラインから走らせたときを想定してると思う。
CGIとして叩いた場合でなくて。
232:229
07/07/13 16:27:58 jk1vnwXj
230,231さん、ありがとう。
いろいろ調べてたらＣＧＩヘッダーはＷｅｂサーバーからＷｅｂ
ブラウザに送信される過程で使われるだけだからブラウザに表示
されるのは「Hello Perl ! 」だけ、とのことみたいなのでなんとなく
解決しました☆
Windows XP使ってますがAN HTTPDではPerl勉強するのに不足でしょうか？
230さんの「Firefox入れてLive Http headers アドインを入れてみるのを薦める 」
を、やったほうがいいでしょうか？
233:nobodyさん
07/07/13 17:33:57
Firefoxはブラウザだ。サーバ(httpd)はなんでもいいよ
234:229
07/07/13 19:08:30 jk1vnwXj
ユーザーエージェントが
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
なので、Firefoxですか？
235:nobodyさん
07/07/13 19:18:19
流石くだ質…レベルが低すぎるってレベルじゃねえぞ
236:nobodyさん
07/07/13 21:48:51
>>234
思いっきりIE6って書かれてるじゃまいか・・・
>>235
スレタイ嫁
答えたくないんなら、スレ読むな
237:nobodyさん
07/07/13 22:29:23
何故貴方に感想を書くことを
制限されなければならないのですか?
ここはあなたの掲示板なのですか?
スレッドに帰属意識でも持ってるお馬鹿さんですか?
238:nobodyさん
07/07/13 22:34:44
>>236
最近はMSIEって書いてあっても信用できない事が(Opera等)あるからキヲツケロ。
239:nobodyさん
07/07/14 00:18:15
>>237
スレ汚しが趣味ですか？
240:nobodyさん
07/07/14 07:16:10
はい
241:nobodyさん
07/07/14 07:46:14
>>240
NGフィルタかけたいから、コテなりトリなりつけてくれ。
242:獅子王
07/07/15 18:51:36 EW+ZDItZ
スイマセンが及ばずながら僕もＰｅｒｌを使いたいと志すものです。
他のところではちょっと僕の質問の仕方が無礼だったようなのでここで質問させてください。
実はつい先日perlをダウンロードするために配布サイトまで行ったのですが
英語尽くしで何がなんだかわかりません。どうも僕にperlのダウンロード
の仕方を教えていただけませんでしょうか？長々とスイマセン。
243:nobodyさん
07/07/15 19:59:41
URLﾘﾝｸ(www.activestate.com)
ActivePerlのGet Current Release→Download→continue→Windows (x86) MSI
244:nobodyさん
07/07/15 20:40:29
Windowsと決め付けるところがさすがに超初心者スレッド。
245:nobodyさん
07/07/15 21:09:48
1. UNIX/Linuxはバージョンはともかくプリインストールの筈である
2. 習慣としてMacならMacと断りを入れる
3. 傾向としてWindowsユーザだけがこのような質問をする
というわけで>244はアスペルガー症候群という自閉症だと思われる。
URLﾘﾝｸ(www.autism.jp)
>子どもでも大人でも社会生活には暗黙のルールがあります。暗黙のルールがわからないために
>他の子どもから嫌われたりいじめられるアスペルガー症候群の子どもが多いのです。
>その場で何が話題になっているか、言外の意味を汲み取ることが苦手なのでどうとでもとれる
>曖昧な質問には答えることが難しいのです。問いかけはなるべく具体的にする必要があります。
246:nobodyさん
07/07/15 23:00:57
>>245
後半は余計だ。荒れる素だからヤメレ。
247:nobodyさん
07/07/16 13:22:38
>>245
1以外は妄想だな。
なんていったけ、見下されると我慢できなくて攻撃態勢に入る精神疾患。
248:nobodyさん
07/07/16 13:46:04
>>247
ホントばかだなオマエは。
その1以外のために「暗黙のルール」や「言外の意味」に関する見解を示したんだよ。
1だけならたしかに後半は余計だった。
249:nobodyさん
07/07/16 13:57:35
だいたいリンクを踏んで行けば最後に一通りOS名が表示されることも知らないから
>>244のような発言が出るのだろうし、もし>>243で
「OSぐらい書け」
と言っていたら、ギャラリーの八割が
「Windowsに決まってるだろ」
と思うわけ。そういう当たり前の常識がオマエには無いんだよ。なぜなら脳に障害があるから。
>>244の脳に障害があることを前提に、極めてわかりやすく、リンクに要点の引用まで付けて
"暗黙のルール" の具体例を示したのに、それでも結局
「1以外は妄想だな。 」
と来る。妄想じゃなくて、暗黙の了解なんだよね。
要するにバカには言葉が通じないので、バカが死ねと言い続けるしか無いんだな。
250:nobodyさん
07/07/16 14:15:09
なんか今訊いたらOSXもPerlはプリインストールらしいじゃん。
初期でPerlが入っていない主要OSはWindowsのみ。>>244みたいな筋金入りのバカは
「Linuxでもカスタムインストールなら」
と言うかもしれないが、Linuxでは主要なアプリケーションでPerlが使われており、Perlは
対象から外せないか、外したつもりでも他のAPの依存関係で結局インストールされる。
試しにLinuxでPerl消してみろよ。yumもaptも動かなくなるから。
なんでこんなバカが人前で発言する気になるんだろう。
251:nobodyさん
07/07/16 17:32:45 Pd2envQf
どっちも酷いな
252:nobodyさん
07/07/16 18:05:34
>>248-250
後付けで何とか体面を整えようと必死杉。笑う。
これを裏付けるデータあるかね。お前さんの脳内以外に。
> 2. 習慣としてMacならMacと断りを入れる
> 3. 傾向としてWindowsユーザだけがこのような質問をする
253:nobodyさん
07/07/16 18:50:59
FreeBSD使いに喧嘩を売ったと見なす
254:246
07/07/17 01:15:15
>>248
あーあ、結局荒れるのか。いいかげんﾓﾁﾂｹ。
>>247
アスペルガー症候群の事か？藻前の煽りも余計だ。荒れる素だからヤメレ。
255:nobodyさん
07/07/18 12:20:06
>>252
オマエ無様だからそろそろ己の低スキルを自覚して自殺しろよ。
オマエの人真似の言葉なんて誰の役にも立ちゃしないし、生きていても意味が無い。
>>254
「荒れる」のハードルも低くなったもんだなぁ。これはせいぜい教育的指導の域を出ない。
>>244みたいな典型的なバカが匿名を盾に人並みに発言するのが社会にとって最も有害。
ノーテクはノーテクだから>>252のように技術以外の部分に必死で食らいつく他に無い。
先に絡んで来たのは>>244なのだし、オレは知ったこっちゃない。
256:nobodyさん
07/07/18 12:58:42
まぁスレも過疎ってるし話を広げて行こうぜ。テーマはこんな感じで。
「OSを指定しないPerlの新規インストールに関する質問には当然OSを尋ねるべきである」
1. Linux、Solaris、OSXは通常プリインストールである
2. したがって質問者の使用OSがWindowsである確率はシェアから約99%超と考えられる
3. 1%の可能性のためにOSを尋ねる場合、回答到達までに3フェーズ必要となる
（OS問合せ->OS回答->URI回答）
4. したがってスレタイに関係なく、この場合OS名を尋ねる者は鬱陶しくも痛いバカである
反論があれば個別にどうぞ。
それとは別にPerlに関するくだらない質問は勝手に訊いてください。
257:nobodyさん
07/07/18 16:34:28
獅子王君はどこいったのかね？
258:nobodyさん
07/07/19 18:35:22 IU8VyPgY
初心者です。質問おながいします。
top.htmlのページからindex.cgiを通してサブルーチンで分岐してa.htmlとb.htmlを
出力したいのですがどうすればいいか詰まってしまいました。
例えば、top.htmlで「男性」or「女性」をクリックしてindex.cgiでotoko.htmlと
onnna.htmlを分岐する場合、top.htmlの中身のリンクの<a href=./index.cgi>
の所になにか条件を指定してcgi内でサブルーチンで分岐できるのですか？
できるならリンクの書き方を教えて欲しいです。
わかりにくくてすんません。
259:nobodyさん
07/07/19 19:12:33 CIvRVShF
>>258
普通にパラメータ書いて分岐させりゃ簡単に出来ると思われ。
ってか、top.htmlにotoko.htmlやonnna.htmlへの直接リンクを書かないのはなぜ？
260:259
07/07/19 19:19:01 IU8VyPgY
どうもですm(__)m
直リンクじゃなくてcgiを利用して使いたかったんで＾＾；
すいません、パラメータってなんですか？＞＜
261:nobodyさん
07/07/19 19:21:52
>>260
実験してるって事？
ひとまず、
URLﾘﾝｸ(www.aikis.or.jp)
これでも見て勉強汁。
262:259
07/07/19 19:28:14 IU8VyPgY
ありがとう。
いろいろ試してみないと気が済まない性格で＾＾；
263:nobodyさん
07/07/20 00:13:39
>>255
裏づけるデータはお前の脳内以外には無いんだな。
264:nobodyさん
07/07/20 03:03:34
キミもそれしか言えないのかね
265:nobodyさん
07/07/21 09:40:53
妄想でしかないんだろ。
妄想を真理と思い込み、他の可能性には気が廻らない。
想定外だったという理由のバグを大量生産するタイプだ。
266:nobodyさん
07/07/21 17:15:10 LRr3Colp
バグってきついよねぇ～。
267:nobodyさん
07/07/23 11:42:52
>>259
#!/usr/local/bin/perl
use CGI qw(:standard);#CGIでのパラメタ受け取り等を簡単に扱うためのもの
use strict;
my$url=sample.cgi; #これ自身のファイル名にしておく
my$name = param('name'); #フォームからの名前投稿をパラメタとして受け取り
# 以下、投稿フォーム。
#form action="$url" は、submitボタンを押した時に飛ぶ場所
#name="name" は、パラメタ名
print my$a= <<EOM;
Content-type: text/html\n\n
<html><head>
</head><body>
<form action="$url" method="POST">
名前<input type="text" size=10 maxlength="7" name="name"><br>
<input type="submit" value="投稿" name="toukou"></form><hr>
EOM
# 以下、表示。
#もしも$nameがあれば(パラメタとしてでも$nameを受け取っていれば)$nameを表示
if($name){
print$name;
}
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4276日前に更新/307 KB
担当:undef