Perlコーディング初心者質問スレ Part 45
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001988
2005/12/08(木) 22:48:27ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0857nobodyさん
2006/01/17(火) 02:07:12ID:???>結局は日本語を読めない奴が増えただけかよ
激しく同意。
851 には >797,>808 が読めないんだからな
0858nobodyさん
2006/01/17(火) 02:11:07ID:???ということにしたいのですね。
0859nobodyさん
2006/01/17(火) 02:14:53ID:???それ３つとも俺ｗ
俺じゃ出来ないから出来る人の改良ソースを待ってるわけでですよ。
0860nobodyさん
2006/01/17(火) 02:19:58ID:???だとすると、851 はモジュール使わない改良ソースを待っているのか?
0861nobodyさん
2006/01/17(火) 02:26:34ID:???0862nobodyさん
2006/01/17(火) 02:29:47ID:???0863nobodyさん
2006/01/17(火) 02:39:01ID:???空いた時間で他の生産的な事をしろ、ってのがPerlだと思う。
0864nobodyさん
2006/01/17(火) 02:43:40ID:???プログラミングはすべてそうだと思うけど…
0865nobodyさん
2006/01/17(火) 02:48:02ID:???どなたか最適なﾃﾞｺｰﾄﾞ方法教えてください＞ｗ＜
0866nobodyさん
2006/01/17(火) 02:52:10ID:???いや、この板には
・モジュールは重くて邪魔だ。
・これまでモジュールを使ってこなかったが、困らなかった。
・実は、オブジェクトがなんなのかわからないんだけど、分からないことがばれると恥ずかしい
等、様々な理由で、モジュール使いたがらない人たちが多いのですよ。
0867nobodyさん
2006/01/17(火) 02:57:37ID:???ｿﾚﾀﾞ！
0868nobodyさん
2006/01/17(火) 03:05:48ID:???というかイマイチ有用性がわからんのもある
0869nobodyさん
2006/01/17(火) 03:06:00ID:???0870nobodyさん
2006/01/17(火) 03:08:19ID:???0871nobodyさん
2006/01/17(火) 03:30:52ID:???伝家の宝刀は「このスレは回答者も初心者なんですね」。
この文句には注意な。
0872nobodyさん
2006/01/17(火) 03:56:07ID:???> 等、様々な理由で、モジュール使いたがらない人たちが多いのですよ。
mod_perl とか fastcgi とか lighttpd とか使えないような、
貧乏仕様の ISP 貸し出し環境の人が多いということですか。
それとも、cgi を呼ぶと必ずモジュールのロードからするものが Perl だ
とか思ってるんかな。
0873nobodyさん
2006/01/17(火) 03:56:35ID:???自分が必要としていない物の有用性を幾ら説かれても理解には至らんよ。
コードに対する要求レベルは人それぞれで、KENT で充分だと感じる人も
いれば、CPAN にあるモジュールはどれも汚くて書き直したくなる、という
人もいる。この二者が納得するコードなんて書きようがないし、より高い
レベルを要求する事が常に正しいとは限らない。
だから妥協点として、公式マニュアル (perldoc) に書かれている事を指針
にしときましょう、というのが現実的な解。perldoc が難解だと感じるなら
Perl コミュニティ的に「平均」より下。perldoc すら甘いと考えているなら
厳しすぎ。
0874nobodyさん
2006/01/17(火) 03:59:27ID:???そもそもレベルの高低の客観的な評価基準きぼん。
> だから妥協点として、公式マニュアル (perldoc) に書かれている事を指針
> にしときましょう、というのが現実的な解。
それは、どこらへんの「現実」？
> perldoc が難解だと感じるならPerl コミュニティ的に「平均」より下。
それは、どこらへんの「Perl コミュニティ」？
「平均」の算出方法も明確にしておいてね。
0875nobodyさん
2006/01/17(火) 04:06:01ID:???0876nobodyさん
2006/01/17(火) 04:07:20ID:???0878nobodyさん
2006/01/17(火) 04:09:44ID:???0879nobodyさん
2006/01/17(火) 04:10:26ID:???0880nobodyさん
2006/01/17(火) 04:21:05ID:???0881nobodyさん
2006/01/17(火) 04:25:26ID:???0882nobodyさん
2006/01/17(火) 04:27:54ID:???0883nobodyさん
2006/01/17(火) 04:29:40ID:???伝家の宝刀は「このスレは回答者も初心者なんですね」。
この文句には注意な。
0884nobodyさん
2006/01/17(火) 04:57:07ID:tDsfmN2qPerl内でPHPを使用するにはどうすれば良いでしょうか？
0885nobodyさん
2006/01/17(火) 04:57:28ID:???話の流れが理解できているなら、ソースを待っていても、>854 以上のものは出ないことは明白。
待ってても無駄だよ。
0886nobodyさん
2006/01/17(火) 05:00:18ID:???「表示されるHTMLにPHPを使用したいので」
のところが意味不明。
いったい何をprint等で記述したか書いてごらん。
0887nobodyさん
2006/01/17(火) 05:20:40ID:???「>772をまずはこうやって・・・次にこうやって・・・」であれば>772のどこが悪いってのわかりますよね？
ちなみに>772は私がstrictで書く前の代物だったりします (書き直したものはstrictでとりあえず動いてるもののエラーチェックは細かくやってない)
ツッコミどころ云々とか言うだけ言って改良案すらも出ないのかなと
(出たのはread()に関するとこだけ)
ここが上級者スレならスルーはわかるけど・・・
>886
>884は print "echo $char\n"; とか出力して、PHP の echo の動作しない
というのが言いたいと思う
>884
無理かと
perlでPHPのファイル出力してそれをクリックさせるか、CGIとして出力したPHPファイルをperlから呼び出すかぐらいじゃないでしょか？
というか、そもそもそんなことやる必要があるんですか？ 無駄だと思うのですが・・・
0888nobodyさん
2006/01/17(火) 05:53:42ID:???でPHPに埋め込むのではいかんのか
0889nobodyさん
2006/01/17(火) 05:59:37ID:???ちょｗｗｗさりげなく俺の発言まで自分の発言にするなよｗ
>>808はお前が書いたんじゃないだろ。
他のは知らないが。
0890nobodyさん
2006/01/17(火) 06:16:16ID:???先に、hoge.php があるのなら、
print qx[php "hoge.php"]
phpスクリプトを生成するなら
my $php_code='echo "$char\n";';
print qx[php -r "$php_code"];
で何とかなるかもwww
0891nobodyさん
2006/01/17(火) 06:28:38ID:???人に文句付ける前に、お前が改良案出してやれよ。
>>884
やりたいことが>>887の通りだとしたら、
出来ないことはないけど、お勧めしない。
PHPはCLI版またはCGI版があることが条件で、
CLI版の場合はあらかじめヘッダを出力してあげること。
# print "Content-type: text/html\n\n";
open(PHP, "| /usr/local/bin/php") or die;
select(PHP);
print while(<DATA>);
close(PHP);
exit;
__END__
<?
echo "hello, world!";
?>
0894nobodyさん
2006/01/17(火) 09:06:52ID:???sub decode {
my ( $buffer, %in );
if($ENV{'REQUEST_METHOD'} eq 'POST'){
if( $ENV{'CONTENT_LENGTH'} > 1024 ) { die 'CONTENT_LENGTH error' }
binmode(STDIN);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}elsif($ENV{'REQUEST_METHOD'} eq 'GET'){
$buffer = $ENV{'QUERY_STRING'};
}else{ die 'REQUEST_METHOD error' }
my @pairs = split(/&/, $buffer);
foreach my $pair (@pairs) {
my ($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$in{$name} = $value;
}
return %in;
}
0895nobodyさん
2006/01/17(火) 09:16:43ID:nYyzHE1Cメールフォームを利用したページを作っているんですが、
記入漏れがあった時、エラーを表示するようにPERLでプログラムしていて
前のページへ戻ると全て入力したものが消えています。
携帯電話でアクセスした場合、メールフォームに入力したデータが
キャッシュに残っていないのは仕方のないことなのでしょうか？
これはCGIのほうで、どうにかするべき問題ですか？
それともHTMLの記述の中でデータ入力したもののキャッシュを
残すように出来るのでしょうか？
0896nobodyさん
2006/01/17(火) 09:24:09ID:???その記入用画面をまた表示する。その際、
・ページ冒頭で記入漏れがある旨を伝え、それを埋めるように催促する
・正しいデータが送られた部分にはそのデータを初期値として表示
・正しくないデータの部分にはそれと分かるように印をつけて空欄で表示
として、記入漏れのあるところだけ埋めてもらうようにするのがいい。
0897nobodyさん
2006/01/17(火) 09:55:43ID:nYyzHE1Cなるほど、引き渡した変数をそのまま利用して、記入漏れの箇所に対してのみ
再度入力を求める形にすればいいということですね。
ただ気になるのが、きっと print ""; を使うことになると思いますが、
例えば名前が 山田 太郎 と入力されたものとして、
年齢が未入力だった場合、どういう記述の方法をとりますか？
名前の箇所の 山田太郎 は正しかったものとして
ただHTMLで文字として表示させて
未入力だった箇所の年齢は 再度入力ボックスを出すという形ですか？
また変数を、こういう形で受け継がせる方法に最適な案などご存知でしたら
ぜひご教授ください
0899nobodyさん
2006/01/17(火) 12:21:24ID:???0900nobodyさん
2006/01/17(火) 12:29:07ID:???unless(
-e $file and
-f $file and
-r $file and
-w $file
) {
print 'NG';
}
のようにファイルがあるか⇒ファイルか⇒読み書き込み可能か
と全部チェックすべきでしょうか？
それとも、-r, -w のみのチェックでも大丈夫でしょうか？
0901nobodyさん
2006/01/17(火) 12:45:01ID:???-f が真になるなら -e は常に真。
無駄なシステムコールを省く為、二つ目以降は _ を使う。
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item__i__X__i__FILEHANDLE
よって unless (-f $file && -r _ && -w _) { ... }
0902900
2006/01/17(火) 12:57:57ID:???下線だけからなる特別なファイルハンドルがあるとは知りませんでした。。。
非常に勉強になりました。
ありがとうございす。
0903nobodyさん
2006/01/17(火) 13:00:56ID:???またもや、項目を入力可能にしておくとは言えども、
前ページで入力したデータが エラーの出たとこ以外には
デフォで入ってる状態で表示させるんですよね？
HTMLでそんなタグありましたっけ？
0904nobodyさん
2006/01/17(火) 13:07:33ID:???0905nobodyさん
2006/01/17(火) 13:11:38ID:nYyzHE1C0906nobodyさん
2006/01/17(火) 13:14:18ID:???<input value=hensuu>
のvalueとこに変数を渡して、そのまま
print ""; 使ってHTML出力してしまえば、前ページで入力したデータが
デフォで入ってる状態になるところまでは分かったのですが、
checkboxやselect typeだと出来なくないですか？
0907nobodyさん
2006/01/17(火) 13:27:43ID:???0908nobodyさん
2006/01/17(火) 13:33:08ID:???<select NAME="県別" SIZE="1">
<option VALUE="北海道">北海道</option>
<option VALUE="青森県">青森県</option>
<option VALUE="岩手県">岩手県</option>
<option VALUE="宮城県">宮城県</option>
<option VALUE="秋田県">秋田県</option>
<option VALUE="山形県">山形県</option>
<select>
前ページで
「北海道」を選んでいたが、 メアドの項目でエラー出たとき
県別のvalueに与えられていた”北海道”のデータを そのまま引き継ぐには
selectedを使って、どうのような方法がありますか？
0910nobodyさん
2006/01/17(火) 13:41:29ID:???0911nobodyさん
2006/01/17(火) 13:42:16ID:???ユーザーに投げてやればいいでしょ。
何を質問してるのか解らん。
0912nobodyさん
2006/01/17(火) 13:44:04ID:???ありがとうございます。
ただ、その場合は 北海道だけがプルダウンセレクトで出てきて
他の県を選べなくなりますよね？
もし、県別のとこも、エラー出たあとに、他の県に修正できるようにする方法は
ありませんか？
0913nobodyさん
2006/01/17(火) 13:45:22ID:???0914nobodyさん
2006/01/17(火) 13:47:09ID:???0915nobodyさん
2006/01/17(火) 13:51:21ID:???いろいろ見ているのですが、申し訳ない。
>>911
分かりづらい説明ですいません。
最初のフォーム入力ページでは
<select NAME="県別" SIZE="1">
<option VALUE="" selected>北海道</option>
<option VALUE="北海道">北海道</option>
<option VALUE="青森県">青森県</option>
<option VALUE="岩手県">岩手県</option>
<option VALUE="宮城県">宮城県</option>
<option VALUE="秋田県">秋田県</option>
<option VALUE="山形県">山形県</option>
<select>
というふうに デフォでは "--"と表示されていて”県別”の中身は空ですが、
もし、北海道をここで選んで、他の項目でエラーが出た場合、
表示されるページで ”北海道”がデフォで選ばれてる状態にして
なおかつ、他の県にも修正が効く状態にしておきたいんです。
0916nobodyさん
2006/01/17(火) 13:52:14ID:???分からないんです。すいません。
0917nobodyさん
2006/01/17(火) 13:56:21ID:???スレ違い、さっさと失せろ
0918nobodyさん
2006/01/17(火) 13:59:16ID:???スレ移動します。
0919nobodyさん
2006/01/17(火) 14:00:37ID:???選ばれたものが selected になればよいと言って分かる？
分からなければ制作板で HTML の勉強しといで
0921nobodyさん
2006/01/17(火) 14:03:23ID:???>>915で、記述ミスしてました。
北海道のところがselectedじゃなくて、 "--"の行がデフォではselectedでした。
0924nobodyさん
2006/01/17(火) 14:08:05ID:???酷使されてる鯖カワイソス
0925nobodyさん
2006/01/17(火) 14:09:53ID:???俺が書きなおしてやる。
0926nobodyさん
2006/01/17(火) 14:12:35ID:???0927nobodyさん
2006/01/17(火) 14:15:18ID:???0929nobodyさん
2006/01/17(火) 14:31:39ID:???これがHTMLの部分です。
<HTML><HEAD>
<TITLE>問い合わせ</TITLE></HEAD>
<BODY>
<form action="toiawase.cgi" method="post">
<BR>
氏名：<input size="20" type="text" name="氏名">
<BR>
県別：<select NAME="県別" SIZE="1">
<option VALUE="" selected>--</option>
<option VALUE="北海道">北海道</option>
<option VALUE="青森県">青森県</option>
<option VALUE="岩手県">岩手県</option>
<option VALUE="宮城県">宮城県</option>
<option VALUE="秋田県">秋田県</option>
<option VALUE="山形県">山形県</option>
<select>
<BR>
持ってる免許：
<input type="checkbox" name="免許車" value="CAR">
<input type="checkbox" name="免許バイク" value="BIKE">
<input type="checkbox" name="免許船" value="SHIP">
<BR><BR>
<input TYPE="submit" VALUE="送信">
<FORM></BODY></HTML>
0931nobodyさん
2006/01/17(火) 14:36:02ID:???0932nobodyさん
2006/01/17(火) 14:36:59ID:???0933929
2006/01/17(火) 14:40:00ID:???名前＝ 未記入
県別＝ 北海道を選んだ
持ってる免許＝ 免許車、 免許バイク
を選んだとして、「名前の未記入のみ」に対して
もう一度記入してくださいという、画面を出力して出したいんです。
その際には、 県別が「北海道」ということと、免許が「免許車、免許バイク」と分かっているので
と吐き出したいんです。
<HTML><HEAD>
<TITLE>問い合わせ</TITLE></HEAD> <BODY>
未記入の項目がありました。<BR><BR>
<form action="toiawase.cgi" method="post"> <BR>
氏名：<input size="20" type="text" name="氏名"> <BR>
県別：<select NAME="県別" SIZE="1">
<option VALUE="">--</option>
<option VALUE="北海道" selected>北海道</option>
<option VALUE="青森県">青森県</option>
<option VALUE="岩手県">岩手県</option>
<option VALUE="宮城県">宮城県</option>
<option VALUE="秋田県">秋田県</option>
<option VALUE="山形県">山形県</option>
</select> <BR>
持ってる免許：
<input type="checkbox" name="免許車" value="CAR" checked>
<input type="checkbox" name="免許バイク" value="BIKE" checked>
<input type="checkbox" name="免許船" value="SHIP">
<BR><BR>
<input TYPE="submit" VALUE="送信">
<FORM></BODY></HTML>
0936nobodyさん
2006/01/17(火) 15:08:07ID:???免許部分を1から3にします。
<HTML><HEAD>
<TITLE>問い合わせ</TITLE></HEAD>
<BODY>
<form action="toiawase.cgi" method="post">
<BR>
氏名：<input size="20" type="text" name="氏名">
<BR>
県別：<select NAME="県別" SIZE="1">
<option VALUE="" selected>--</option>
<option VALUE="北海道">北海道</option>
<option VALUE="青森県">青森県</option>
<option VALUE="岩手県">岩手県</option>
<option VALUE="宮城県">宮城県</option>
<option VALUE="秋田県">秋田県</option>
<option VALUE="山形県">山形県</option>
<select>
<BR>
持ってる免許：
<input type="checkbox" name="免許1" value="CAR">
<input type="checkbox" name="免許2" value="BIKE">
<input type="checkbox" name="免許3" value="SHIP">
<BR><BR>
<input TYPE="submit" VALUE="送信">
<FORM></BODY></HTML>
930 名前： nobodyさん [sage] 投稿日： 2006
0937nobodyさん
2006/01/17(火) 15:12:02ID:???>>934
自分なりにどういうスクリプト書いてみたかもアップして。
アップローダー使ってね。
アップローダー使ってね。
アップローダー使ってね。
アップローダー使ってね。
アップローダー使ってね。
0938nobodyさん
2006/01/17(火) 15:17:07ID:???フォームから引き渡した数を
$form{'氏名'} ＝ ""
$form{'県別'} ＝ "北海道"
$form{'免許'} ＝ "CAR,BIKE"
としたときに、 HTMLで下のように吐き出すようなスクリプトを教えてください。
<HTML><HEAD>
<TITLE>問い合わせ</TITLE></HEAD> <BODY>
未記入の項目がありました。<BR><BR>
<form action="toiawase.cgi" method="post"> <BR>
氏名：<input size="20" type="text" name="氏名"> <BR>
県別：<select NAME="県別" SIZE="1">
<option VALUE="">--</option>
<option VALUE="北海道" selected>北海道</option>
<option VALUE="青森県">青森県</option>
<option VALUE="岩手県">岩手県</option>
<option VALUE="宮城県">宮城県</option>
<option VALUE="秋田県">秋田県</option>
<option VALUE="山形県">山形県</option>
</select> <BR>
持ってる免許：
<input type="checkbox" name="免許" value="CAR" checked>
<input type="checkbox" name="免許" value="BIKE" checked>
<input type="checkbox" name="免許" value="SHIP">
<BR><BR>
<input TYPE="submit" VALUE="送信">
<FORM></BODY></HTML>
0939nobodyさん
2006/01/17(火) 15:19:10ID:???スクリプト自体はまだ、出来あがってはいませんので
アップできませんが、上のような形でHTMLを吐き出してくれる方法だけでも
教えてもらえませんか？
0940nobodyさん
2006/01/17(火) 15:25:27ID:???教えてもらえません。
お前の屑スクリプトが動くところがみたいんじゃなくて、
お前がそれ相応の努力をしたかどうかがみたいんだ。
だから書きかけでもうｐが先。
0941nobodyさん
2006/01/17(火) 15:26:55ID:???inout valueのところに名前の変数をデフォで表示させておけば
問題ないと分かったんですが・・・・
$NAME=$form{'氏名'};
print "
<HTML><HEAD>
<TITLE>問い合わせ</TITLE></HEAD> <BODY>
未記入の項目がありました。<BR><BR>
<form action=toiawase.cgi method=post> <BR>
氏名：<input size=20 type=text name=氏名 value=$NAME> <BR>
県別：<select NAME=県別 SIZE=1>
<option selected>--</option>
<option VALUE=北海道>北海道</option>
<option VALUE=青森県>青森県</option>
<option VALUE=岩手県>岩手県</option>
<option VALUE=宮城県>宮城県</option>
<option VALUE=秋田県>秋田県</option>
<option VALUE=山形県>山形県</option>
</select> <BR>
持ってる免許：
<input type=checkbox name=免許 value=CAR>
<input type=checkbox name=免許 value=BIKE>
<input type=checkbox name=免許 value=SHIP>
<BR><BR>
<input TYPE=submit VALUE=送信>
<FORM></BODY></HTML>
";
0942nobodyさん
2006/01/17(火) 15:28:03ID:???丸投げ度に応じて適切と思われるスレに移動してくれ。
自分の作ったCGIスクリプトをデバッグするスレ
http://pc8.2ch.net/test/read.cgi/php/1011174442/
手伝ってくれるかた募集
http://pc8.2ch.net/test/read.cgi/php/1083303786/
【CGI】合同開発室
http://pc8.2ch.net/test/read.cgi/php/1001950501/
■こんなCGI作ってください■ Part.2
http://pc8.2ch.net/test/read.cgi/php/1133361560/
依頼されたツールを誰かが作るスレ
http://pc8.2ch.net/test/read.cgi/php/1078997682/
0944nobodyさん
2006/01/17(火) 15:40:29ID:???http://www.uploda.org/file/uporg288825.txt.html
パスはwebprog です。
0945nobodyさん
2006/01/17(火) 15:52:54ID:???sub decode {
my @pairs = split(/[&;]/, do {
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
if ($ENV{'CONTENT_LENGTH'} > 1024) { return undef; }
my $buffer;
binmode(STDIN);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$buffer;
} elsif ($ENV{'REQUEST_METHOD'} eq 'GET' or $ENV{'REQUEST_METHOD'} eq 'HEAD') {
$ENV{'QUERY_STRING'};
} else { return undef; }});
my %in;
foreach my $pair (@pairs) {
my ($name, $value) = split(/=/, $pair, 2);
$name =~ tr/+/ /; $value =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$in{$name} = $value;
}
return \%in;
}
0946nobodyさん
2006/01/17(火) 15:54:08ID:???0948nobodyさん
2006/01/17(火) 15:58:09ID:???0949nobodyさん
2006/01/17(火) 15:58:23ID:???0951nobodyさん
2006/01/17(火) 16:01:20ID:???0952944
2006/01/17(火) 16:11:28ID:???文面から判断できません。
0954nobodyさん
2006/01/17(火) 16:22:28ID:???2ch で勉強しようと思っているのならそれはやめた方がいい
今の君は付け焼き刃でどうにかなるレベルじゃない
もっと時間を掛けて、身銭を切って何冊か参考書を買うことが必要だ
レス数が950を超えています。1000を超えると書き込みができなくなります。