トップページ⇒php
1001コメント328KB

Perlコーディング初心者質問スレ Part 45

■ このスレッドは過去ログ倉庫に格納されています
00019882005/12/08(木) 22:48:27ID:???
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10
0386nobodyさん2006/01/07(土) 22:44:54ID:???
最悪
0387nobodyさん2006/01/07(土) 22:45:28ID:???
日本語のエラーログを吐くの？
0388nobodyさん2006/01/07(土) 23:02:27ID:???
>>382
つかエラーメッセージを意訳するな。そのまま書け。
0389382-3832006/01/07(土) 23:06:50ID:5axJGSRV
>>385
駄目でした。置き換え文字列には含まれなくとも行自体に name= があると駄目なようです。
>>388
そのままです。
あとは、Perl のバージョンやパスが書いてあるだけです。
0390nobodyさん2006/01/07(土) 23:14:21ID:???
エラー行は確かにその正規表現が書いてある行なんだよな？

あと悪いことはいわないから周りのコード晒せ。
見た感じループ内の処理みたいだからそのループ全体を。
0391382-3832006/01/07(土) 23:16:51ID:5axJGSRV
>>384

open(TEMPLATE, "./template.html");
@lines = <TEMPLATE>;
close(TEMPLATE);
print "content-type: text/html" . \n\n;
for ($i = 0; $i < @lines; $i++) {
$line = $line[$i];
#以下、前記のとおり
print $line;
}
exit 0;
0392382-3832006/01/07(土) 23:17:57ID:5axJGSRV
× $line[$i]
○ $lines[$i]
0393nobodyさん2006/01/07(土) 23:18:37ID:???
おいコラ
0394382-3832006/01/07(土) 23:27:41ID:5axJGSRV
質問しておいてなんですが、周辺も載せましたが、結果を見るとやっぱり置き換えのところで何か起きているとしか思えないです。
0395nobodyさん2006/01/07(土) 23:29:19ID:7SuLco6K
ふざけてやってるうちはいいけど、
最近真面目にそういうお馬鹿スクリプト書く初心者が増えてきたからねぇ…
0396382-3832006/01/07(土) 23:31:06ID:5axJGSRV
テストなので、雛形 HTML のフォーム入力エレメントは今のところ textarea しかないのですが、input のフィールドも追加して検証してみようと思います。
0397382-3832006/01/07(土) 23:32:39ID:5axJGSRV
どこがおかしいですか。初心者なのでわかりません。
0398nobodyさん2006/01/07(土) 23:34:23ID:???
>>391
「初心者なので」というセリフは大嫌いだが、>>391をそのまま実行すると
print "content-type: text/html" . \n\n; でエラー。当然だがね。
0399382-3832006/01/07(土) 23:35:54ID:5axJGSRV
すみません。

open(TEMPLATE, "./template.html");
@lines = <TEMPLATE>;
close(TEMPLATE);
print "content-type: text/html\n\n";
for ($i = 0; $i < @lines; $i++) {
$line = $line[$i];
#以下、前記のとおり
print $line;
}
exit 0;

でも先の問題は解決されません。
0400382-3832006/01/07(土) 23:36:41ID:5axJGSRV
本題の解決策をお願いします。
0401nobodyさん2006/01/07(土) 23:37:43ID:???
>>399
こっちでは再現しないけど。「前記の通り」とかじゃなくてフルに書いてみ？
あとPerlのバージョン含めた実行環境も。
0402382-3832006/01/07(土) 23:41:59ID:5axJGSRV
#!/usr/local/bin/perl

$comment1 = "";
open(TEMPLATE, "./template.html");
@lines = <TEMPLATE>;
close(TEMPLATE);
print "content-type: text/html\n\n";
for ($i = 0; $i < @lines; $i++) {
$line = $lines[$i];
$line =~ s|<textarea name="comment1" cols="60" rows="10"></textarea>|<textarea name="comment1" cols="60" rows="10">$comment1</textarea>|;
print $line;
}
exit 0;

駄目。

#!/usr/local/bin/perl

$comment1 = "test";
open(TEMPLATE, "./template.html");
@lines = <TEMPLATE>;
close(TEMPLATE);
print "content-type: text/html\n\n";
for ($i = 0; $i < @lines; $i++) {
$line = $lines[$i];
$line =~ s|<textarea name="comment1" cols="60" rows="10"></textarea>|<textarea name="comment1" cols="60" rows="10">$comment1</textarea>|;
print $line;
}
exit 0;

これも駄目です。
template.html の内容と印刷結果は載せなくても大丈夫ですか。
0403nobodyさん2006/01/07(土) 23:42:28ID:???
というか何を隠そうとしてるのかしらないけど、「そのまま」ここに張りつけてみな。
そうすれば直ぐに答えがかえってくるんだから。
0404382-3832006/01/07(土) 23:44:11ID:5axJGSRV
Perl バージョン:

これは perl, v5.6.1 built for i386-linux です
0405382-3832006/01/07(土) 23:46:11ID:5axJGSRV
>>403
>>402 に書いたのは全行です。
テストなので、これだけしか書いていません。
これだけしか書かないうちに先の不都合が見つかりました。
もっとも、最終的にやろうとしていることはありますが、それらはまだ書いていません。
この問題の解決が先なので。
0406nobodyさん2006/01/07(土) 23:47:27ID:???
もしや置き換え該当行は下から一行目？
0407382-3832006/01/07(土) 23:48:07ID:5axJGSRV
もう一度そのまま貼り付け。

#!/usr/local/bin/perl

$comment1 = "";
open(TEMPLATE, "./template.html");
@lines = <TEMPLATE>;
close(TEMPLATE);
print "content-type: text/html\n\n";
for ($i = 0; $i < @lines; $i++) {
$line = $lines[$i];
$line =~ s|<textarea name="comment1" cols="60" rows="10"></textarea>|<textarea name="comment1" cols="60" rows="10">$comment1</textarea>|;
print $line;
}
exit 0;
0408nobodyさん2006/01/07(土) 23:48:16ID:???
>>402
前者も後者も正常に実行できている。ソースを見てもスクリプトの問題とは思えない。
エラーの出方から見てえらく特殊な環境で実行しているようにしか思えない。
perlバージョンだけでなく、OSのバージョンも。
0409382-3832006/01/07(土) 23:50:31ID:5axJGSRV
>>406
「雛形の」という意味ですか。
であれば、違います。
雛形で言えば、該当行の下には
</form>
</body>
</html>
などの行もあります。
0410nobodyさん2006/01/07(土) 23:50:41ID:???
つかエラーログって何？
コマンドラインで実行できないの？
0411382-3832006/01/07(土) 23:56:08ID:5axJGSRV
雛形 HTML の内容は要らないですか。
0412nobodyさん2006/01/07(土) 23:57:20ID:???
>>411
貼りたきゃ勝手に貼れ。それより>>408の質問に答えろ。
0413nobodyさん2006/01/07(土) 23:58:01ID:???
>>410にもねー
0414382-3832006/01/07(土) 23:58:04ID:5axJGSRV
OS バージョン:

Red Hat Linux 7.2 2.96-118.7.2
0415382-3832006/01/08(日) 00:00:24ID:0I8ISceR
エラー ログは設置した覚えはないですが、自動的に書庫化されているようです。
日ごとに書庫化されています。
スクリプトを実行するたびに書庫にログが追加されています。
0416nobodyさん2006/01/08(日) 00:01:40ID:???
>>415
RedHat7.2+perl5.6.1で「コマンドライン実行」した結果は？
「name は予約語となる可能性があります。あるいは、name の前にオペレータが抜けてはいませんか。」
なんて表示が日本語で出てくるわけじゃないよな？
0417382-3832006/01/08(日) 00:02:34ID:0I8ISceR
勝手に貼れということはあまり参考にならないということのようなので、やめておきます。
必要なら言ってください。
0418382-3832006/01/08(日) 00:03:30ID:0I8ISceR
>>416
FAQ に「当サーバではコンソールの使用を認めておりません。」とあります。
参考になりますか。
0419nobodyさん2006/01/08(日) 00:04:11ID:???
>>418
氏ね
0420382-3832006/01/08(日) 00:05:19ID:0I8ISceR
>>419
どういうことですか。
0421nobodyさん2006/01/08(日) 00:10:14ID:???
情報の後出しが多すぎるな。実行環境とかレン鯖だったことは最初に言うものだが。
あと自作CGIはローカルに実行環境を持って、そこでテストしてからレン鯖に持っていくのが常識。

で、結論から言うと>>402のスクリプトに異常はない。これでエラーが出てるなら
perl以外の問題である非常に高い。レン鯖の名前を出せるようなら、親切な人が
検証してくれる可能性もあるが。
0422nobodyさん2006/01/08(日) 00:10:29ID:???
通りすがりだが、自分のPCで試さないでサーバでテストするって・・・
市ねってことでしょ。まさか自分のPCにPerlも入れてない？
0423nobodyさん2006/01/08(日) 00:11:03ID:???
まぁ精々KENTでも見習って適当にやってくれ。
0424nobodyさん2006/01/08(日) 00:18:25ID:???
ここは回答者も初心者ですね
0425nobodyさん2006/01/08(日) 00:22:07ID:???
「情報の後出しが多い」と言われて先にいろいろ書くと「長い」「ごちゃごちゃ書くな」と言われる
初心者回答者は答えられない言い訳を質問者に転嫁することが多いですね
0426nobodyさん2006/01/08(日) 00:22:27ID:???
Perlコーディング初心者(が)質問(に答える)スレ Part 45

ですが何か？
0427nobodyさん2006/01/08(日) 00:28:21ID:???
ガッテン！ガッテン！
0428nobodyさん2006/01/08(日) 00:29:43ID:???
まぁ、初心者同士の互助会ってことだな
0429nobodyさん2006/01/08(日) 00:31:48ID:???
初心者でも達人でも>>382-383に答えられないのはいっしょだがな。
0430nobodyさん2006/01/08(日) 01:01:05ID:???
>>424-428
じゃあ答えてやれよ
0431nobodyさん2006/01/08(日) 01:14:47ID:???
初心者の質問に答えられない達人ぶった初心者が多いスレはここだと聞いてやってきました
0432nobodyさん2006/01/08(日) 01:17:17ID:???
環境依存の問題に答えようがあるかい
0433382-3832006/01/08(日) 01:17:38ID:???
>>431
急いでいます。教えてください。
0434nobodyさん2006/01/08(日) 01:17:57ID:???
達人って……小学生かよ
0435nobodyさん2006/01/08(日) 01:18:14ID:???
というか >>421 が答えだよね。いまんとこ
0436382-3832006/01/08(日) 01:27:57ID:???
誰も答えられないのですか？
0437nobodyさん2006/01/08(日) 01:28:59ID:???
>>436
>>432
あと騙りじゃないならID出せ。
0438nobodyさん2006/01/08(日) 01:46:42ID:???
「環境依存」と来たか
ID出してもどうせだれも答えられないんだからID出すこと自体無意味
0439nobodyさん2006/01/08(日) 01:48:20ID:???
421=435
初心回答者は自画自賛もお手の物です。
0440nobodyさん2006/01/08(日) 01:51:53ID:???
ところが>>421以外の回答が出てこない。何故だろう。
0441nobodyさん2006/01/08(日) 01:53:13ID:???
' ' => '\s'
0442nobodyさん2006/01/08(日) 01:58:25ID:???
ちなみに、空文字のかわりに空白を入れるなんて邪道は嫌です。
0443nobodyさん2006/01/08(日) 02:00:29ID:???
つーか
スペースじゃなくて文字が入っていても結果が同じだと言ってるのだから何の解決にもならない
二つスクリプト貼ってるだろ
よく読め
ボケカス
0444nobodyさん2006/01/08(日) 02:08:37ID:???
ぅはｗｗｗｗｗ
俺ンとこでも再現した！
0445nobodyさん2006/01/08(日) 02:09:04ID:???
nameが評価されてるだろ

エラーメッセージ嫁
0446nobodyさん2006/01/08(日) 02:16:12ID:???
テンプレート
<HTML>
　　　<BODY>
　　　　　　<FORM action="" method=POST>
　　　　　　　　　<TEXTAREA name="comment1" cols="60" rows="10"></TEXTAREA>
　　　　　　</FORM>
　　　</BODY>
</HTML>

実行結果
<HTML>
　　　<BODY>
　　　　　　<FORM action="" method=POST>
　　　　　　　　　<TEXTAREA
　　　　　　</FORM>
　　　</BODY>
</HTML>
0447nobodyさん2006/01/08(日) 02:17:07ID:???
>>445
堂々巡りの阿呆だな
解決策を書けよ
0448nobodyさん2006/01/08(日) 02:20:40ID:???
KENT様を見習ってヒアドキュメントでも書かれたらいかがですか？
0449nobodyさん2006/01/08(日) 02:21:31ID:???
>>446
エラーメッセージ何て出てる？
0450nobodyさん2006/01/08(日) 02:22:59ID:???
出ねーよ
モノは出力されてんだから
シェルからでも同じ
0451nobodyさん2006/01/08(日) 02:24:05ID:???
>>450
実行環境plz
0452nobodyさん2006/01/08(日) 02:24:42ID:???
Content-type: text/html

<HTML>
　　　<BODY>
　　　　　　<FORM action="" method=POST>
　　　　　　　　　<TEXTAREA
　　　　　　</FORM>
　　　</BODY>
</HTML>
0453nobodyさん2006/01/08(日) 02:25:33ID:???
というか、こんな横暴な質問者を助けるんだ…。
みんな優しいのな。
仕事なら自分で解決しろとしか俺は言わんが。
0454nobodyさん2006/01/08(日) 02:26:06ID:???
perl 5.6.1
fedora core 4
0455nobodyさん2006/01/08(日) 02:26:13ID:???
FreeBSD4.11+perl5.8.1では再現しない。スクリプトもテンプレもEUC。
content-type: text/html

<HTML>
　　　<BODY>
　　　　　　<FORM action="" method=POST>
　　　　　　　　　<textarea name="comment1" cols="60" rows="10">test</textarea>
　　　　　　</FORM>
　　　</BODY>
</HTML>
0456nobodyさん2006/01/08(日) 02:27:15ID:???
初心者ほど猿のように実行環境はなんだOSはなんだと質問する
いったいおまえらにバージョンの差異がわかるのかと(ry
0457nobodyさん2006/01/08(日) 02:27:26ID:???
>>453
質問者が仕事じゃないときの答えられないお前の言い訳は？
0458nobodyさん2006/01/08(日) 02:28:27ID:???
>>456
再現する環境としない環境がある以上は聞かなきゃ仕方がないだろ。
0459nobodyさん2006/01/08(日) 02:31:00ID:???
どうして「しかたがない」のやら……まったくもって頭の良い御方の発言は理解できませぬ
0460nobodyさん2006/01/08(日) 02:31:27ID:???
冬休みいつまでだよ
0461nobodyさん2006/01/08(日) 02:31:58ID:???
>>459
>>458見てわからんようじゃ相当頭悪いなお前
0462nobodyさん2006/01/08(日) 02:32:15ID:???
$comment1 = ""; # の場合
Content-type: text/html

<HTML>
　　　<BODY>
　　　　　　<FORM action="" method=POST>
　　　　　　　　　<TEXTAREA
　　　　　　</FORM>
　　　</BODY>
</HTML>

$comment1 = "test"; # の場合
Content-type: text/html

<HTML>
　　　<BODY>
　　　　　　<FORM action="" method=POST>
　　　　　　　　　<TEXTAREA
　　　　　　</FORM>
　　　</BODY>
</HTML>
0463nobodyさん2006/01/08(日) 02:32:30ID:???
で、原因と解決策はいつ出てくるのかね？
0464nobodyさん2006/01/08(日) 02:33:42ID:???
ActivePerl5.6.1でも再現しねーな。なんだこりゃ？
0465nobodyさん2006/01/08(日) 02:34:07ID:???
それこそ解らないやつが聞いても仕方がないわけだが。

というかこいつらのデバッグってただ流せれば終わりなの？
0466nobodyさん2006/01/08(日) 02:35:39ID:???
それがKENTクオリティ
0467nobodyさん2006/01/08(日) 02:35:41ID:???
>>465
遠まわしに言っても理解できないから単刀直入に結論をどーぞ
0468nobodyさん2006/01/08(日) 02:35:45ID:???
試行置換文
$line =~ s|<TEXTAREA name="comment1" cols="60" rows="10"></TEXTAREA>|<TEXTAREA name="comment1" cols="60" rows="10">$comment1</TEXTAREA>|;
$line =~ s|comment1" cols="60" rows="10"></TEXTAREA>|comment1" cols="60" rows="10">$comment1</TEXTAREA>|;
どっちでもダメだわこりゃ
0469nobodyさん2006/01/08(日) 02:37:44ID:???
@FOO=<>;
するぐらいならヒアドキュメントのほうがどれだけいいことか。
0470nobodyさん2006/01/08(日) 02:38:01ID:???
評価部分にはnameがなくっても$lineにあるなら同じようになるようだ
04714552006/01/08(日) 02:38:25ID:???
>>468
こちらではどっちも問題ない。
0472nobodyさん2006/01/08(日) 02:38:56ID:???
>>469
質問者の前提条件をひっくり返してしまってよいなら誰でも答えられるがなアンタ
0473nobodyさん2006/01/08(日) 02:40:19ID:???
textareaじゃなくてinput type=text name=...で試してくれんか
0474nobodyさん2006/01/08(日) 02:41:38ID:???
これ以上なく単純明快な形で既に解決策が提示されているものを猿が罵倒した件について。
04754552006/01/08(日) 02:42:47ID:???
>>473 普通に置換できてる。つか当たり前っちゃ当たり前。
0476nobodyさん2006/01/08(日) 02:43:14ID:???
>>469
あの質問ではあんなテンプレートあってもなくても意味がないような気がするが
のちのちの完成形ではテンプレートを読み込むというのが絶対条件なら
くずせないだろ、バカチン
0477nobodyさん2006/01/08(日) 02:44:46ID:???
Content-type: text/html

<HTML>
　　　<BODY>
　　　　　　<FORM action="" method=POST>
　　　　　　　　　<INPUT type=text
　　　　　　</FORM>
　　　</BODY>
</HTML>
0478nobodyさん2006/01/08(日) 02:45:40ID:???
KENT様を見習え。バカチン！
0479nobodyさん2006/01/08(日) 02:45:47ID:???
>>474
解決策などありませんでした
ありませんでした
ありませんでした
0480nobodyさん2006/01/08(日) 02:47:04ID:???
requireやuseしていない組み込みモジュールに$nameがあると見た！
0481nobodyさん2006/01/08(日) 02:47:22ID:???
赤帽系のperlが変ってこと？
0482nobodyさん2006/01/08(日) 02:48:48ID:???
>>480
仮にそんなことがあるとしてもそんなことが判明しても解決にならない。
formのnameが別の名前に置き換えられないんだから。
0483nobodyさん2006/01/08(日) 02:50:03ID:???
そこらへんのHTTPデーモンにはエラーログを日本語で出力してくれるものがあるの？
0484nobodyさん2006/01/08(日) 02:50:31ID:???
フォームでは「name/value」しか使えないのｹ？
0485nobodyさん2006/01/08(日) 02:52:10ID:???
>>483
アーカイブ化されてるつってんだからレンタル屋がraw->日本語処理スクリプトも置いてんだろ
0486nobodyさん2006/01/08(日) 02:53:22ID:???
もうこいつら頭良すぎ(w
全然付いていけない。

オヤスミナサイ。
■ このスレッドは過去ログ倉庫に格納されています