トップページ⇒php
984コメント309KB

【Perl】初心者コーナーPart11

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/03/27 12:53ID:wAXxxOxP
　
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【CGIだけどなんか質問ある Pert 5.01 】
http://pc.2ch.net/test/read.cgi/php/1015127347/l50
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

過去ログ、その他の役立ち情報は>>2-10を見よう。
0496nobodyさん02/04/14 20:45ID:???
とりあえず>>469は帰って良いよ。
プロトタイプでも勉強してきな。
0497nobodyさん02/04/14 20:46ID:???
datafileは

<table>
<tr>
<td>田中雅夫</td>
<td>田中さん</td>
</tr>
<tr>
<td>椎名林檎</td>
<td>林　檎</td>
</tr>
<tr>
<td>志村けん</td>
<td>バカ殿</td>
</tr>
</table>

環境はWINにactiveperl522e入れてます。
flockとか使うとエラー出たりするし、
そういう違いなんかなぁ…
0498４６９02/04/14 20:50ID:???
496 = gunzip = 初心者
決定！ばーか

0499nobodyさん02/04/14 20:52ID:???
(´-`).｡ｏＯ（ちょっと遅れた春だねぇ…）
0500nobodyさん02/04/14 20:52ID:???
>497
やっぱり俺のところでは普通に変換される。
Win2kにanhttpd＋ActivePerl-5.6.0.616。

flockはWin95やWin98じゃ使えないんじゃなかったっけ？
0501nobodyさん02/04/14 20:59ID:???
522でも行くとは思うが・・・・・
630あたり入れない？
050249702/04/14 21:02ID:???
>500
はい、そうみたいです。
他の違いとかは全く分からない状態で…
勉強不足ですいません（＾＾；
ActivePerlもけっこう前に入れたものだし、
新しいのinstallしてみよっかな。
とりあえず、ありがとうございました〜
0503nobodyさん02/04/14 21:06ID:???
あー、データファイルとperlスクリプトで文字コードが違うとかやってない？
両方EUCで書くこと。
050449702/04/14 21:08ID:???
あーほんとんにごめん（＾＾；
きちんと実行しました！！
申し訳ない…鬱だ。。
ほんとにありがとう…４日くらいハマってました（汁
050549702/04/14 21:17ID:???
原因はなぜか分からないんですが、
ハッシュの中に
"太宰啓介", "太　宰"
を入れてて、
これを抜いたら動きました。。
0506nobodyさん02/04/14 22:07ID:???
啓の2バイト目が“[”だから動かない。
$hoge = "\Q". join("\E|\Q", keys %xx) . "\E";
0507nobodyさん02/04/14 22:15ID:???
$hoge = join "|", map{ quotemeta } keys %fuga;
の方が見栄えは良いな。
いや、>>506の方が多分効率良いけど。
0508４６９02/04/14 22:26ID:???
469>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>475
050950602/04/14 22:34ID:???
スマソ>>507の方法じゃないと駄目だ。
"\Q" . "[\E" と "\Q[\E"は等価じゃない。
0510rain02/04/14 22:37ID:sltXes8x
えっと、プログラム板では板違いという事でこっち来ました。
PERLのCGIを実行させようとすると何故かダウンロードを始めてしまいます。
どうなってるのでしょう？
0511nobodyさん02/04/14 22:40ID:???
>510
99% Content-typeの問題。
0512rain02/04/14 22:46ID:sltXes8x
print "Content-type: text/plain\n\n";
に何か問題があるのでしょうか？
051349702/04/14 22:49ID:???
>>507
おー！動いた！ありがと〜

>啓の2バイト目が“[”だから動かない。
ふむふむ…もうついていけないレベルです（＾＾；

$hoge = "\Q". join("\E|\Q", keys %xx) . "\E";
$hoge = join "|", map{ quotemeta } keys %fuga;
これがどんなことしてるのか、
じっくり勉強してみます。
0514nobodyさん02/04/14 22:57ID:???
>512
１：\nを\r\nにしてみる。
２：それをスクリプトの３行目に置いてみる。
0515rain02/04/14 23:00ID:sltXes8x
駄目みたいです・・・。
やっぱり変わらずダウンロードを開始します・・・。
何が原因なんでしょう？
0516nobodyさん02/04/14 23:02ID:???
>515
環境を明記した上でスクリプトの拡張子を.txtにしてアプして。
0517rain02/04/14 23:06ID:sltXes8x
アプるほど大きくないんで乗せますね。
環境はapacheの１．３です。他に必要な環境情報ありますか？
------
#!D:/program/perl/bin/perl

print "Content-type: text/plain\r\n\n";
print "Hello Perl !";

------
0518nobodyさん02/04/14 23:10ID:???
>>515
httpdがApacheなら、httpd.confに
AddHandler cgi-script .cgi .pl
って書いてあるかどうかかくに〜ん。
0519rain02/04/14 23:15ID:sltXes8x
書いてありますねぇ・・・。
0520nobodyさん02/04/14 23:19ID:???
>517
\r\n\nとはどういう了見だ？
0521rain02/04/14 23:23ID:sltXes8x
あれ？こうしろって事じゃなかったんですか？はっ！もしかしてとんでもない勘違い！？
0522nobodyさん02/04/14 23:25ID:???
ふつー、
\n\n
だね。
0523rain02/04/14 23:26ID:sltXes8x
あ、でもそれでもやったんですよ。
はぁ・・今日は諦めようかな・・・。
0524nobodyさん02/04/14 23:26ID:???
\r\n\r\nだろ、やるなら。
それと、Apacheって適当に入れただけだとExecCGIが効いてなかったような。
0525rain02/04/14 23:30ID:sltXes8x
そうなんですか？まだ勉強不足で・・・。
それと、ExecCGIもちゃんと修正しました。
0526nobodyさん02/04/14 23:31ID:???
>>524
そなの？
それってDOSだとCRCRLFCRCRLFにならない？
もしかしてActivePerlなら、ならないのか・・・
0527nobodyさん02/04/14 23:32ID:???
「ソースがダウンロードされる」のか「実行結果がダウンロードされる」のか。
0528rain02/04/14 23:34ID:sltXes8x
.cgiがダウンロードされてしまいます。
0529nobodyさん02/04/14 23:34ID:???
>>525
ちなみに、ダウンロードされるファイルの中身は、どんなんなの？
Hello Perl!
だけが書いてあるのなら、httpdはOKで、Contenet-type があやしい。

cgiスクリプトがまるまる入っているのなら、httpdの設定があやしい。
0530nobodyさん02/04/14 23:35ID:rKBAHNDF
つまらん質問でｽﾏｿ
123456byteをメガ単位にするときって
何で割るの？1000？・・・
0531nobodyさん02/04/14 23:36ID:???
>>530
もちろん、1024^2で割る。
0532nobodyさん02/04/14 23:37ID:???
>>530 1048576
0533nobodyさん02/04/14 23:37ID:???
2**10 * 2**10で割りなされ。
0534nobodyさん02/04/14 23:41ID:???
> perl -e "print 1024^2"
1026
>
0535nobodyさん02/04/14 23:47ID:rKBAHNDF
つまり、1Mbyteは1024^2 = 1048576byteという事なのか！
スマソ。
0536nobodyさん02/04/14 23:53ID:???
>>510
じぶんもずっとそれ。完璧に諦めている。
UA側の問題と理解しているが、理由に納得はしていない。
0537nobodyさん02/04/14 23:54ID:???
>521
>514を見て「片方だけ変えればいい」という発想できるのは驚き。
その発想力は俺の予想を越えてた。
0538nobodyさん02/04/14 23:57ID:???
>517
UnixかWinか。
あと>529の問いにも答えれ。
0539rain02/04/15 00:09ID:8o4u1f33
ほーい。WINで、CGIがダウンロードされます。
0540nobodyさん02/04/15 00:12ID:???
>>539
その答えがDQNだっつーの。
054153602/04/15 00:17ID:???
自分直ってた。原因がよく分からんままだ。
0542nobodyさん02/04/15 00:18ID:???
【もう】【だめぽ】
0543nobodyさん02/04/15 00:19ID:???
>539
悪いがここはPerlの初心者スレなんだ。
人生の初心者は幼稚園にでも行ってくれ。
0544nobodyさん02/04/15 00:22ID:???
>>539
「ほーい。WINで、CGIスクリプトがそのままダウンロードされます。」
ね。
つーことは、httpd が、そのスクリプトをCGIだと思ってないのよ。
httpdを再起動してだめなら、apache板へ行ったほうがいいかも。

Apacheの設定を教えてください
http://pc.2ch.net/test/read.cgi/php/1003772635/

もちろん、あちらのスレのログをまず見てｶﾞｲｼｭﾂじゃないか確認しよう。
054546902/04/15 00:32ID:???
答えろ。厨房ばっかりだなここは。

0546nobodyさん02/04/15 00:42ID:???
もちろん来年高校受験ですが、何か？
0547nobodyさん02/04/15 00:52ID:???
厨房ばっかりなのがわかったのにまだ聞くの？
それって自分が厨房以下って言ってるのと同じだと思うんだがなぁ。

次回は是非もう少し頭のよさそうな煽りをお願いいたします。
054846902/04/15 01:06ID:???
こたえろおろろろろろろろろろろろろろろろろろろろろろろろろｒ
0549nobodyさん02/04/15 01:15ID:???
どうか教えてください。

２次元配列で、列の最大インデックス値を求める効率的な方法がわかりません。
自分でなんとか書いてみて、もっとよい方法がありそうな気がしていますが
どうしても思いつきません。よろしくお願いします。

;# $data[行][列] の例
for ($[ .. $#data){
$#{$data[$_]}> $MAX_COL and $MAX_COL= $#{$data[$_]};
}
0550nobodyさん02/04/15 01:20ID:???
>>549
それで十分使えるやろ。Perlってことを忘れるなよ。
数値計算等の効率を重視するならCとかにしろって。
0551nobodyさん02/04/15 01:38ID:???
>>548
>>476の何が不満なんだ？
#our($a, $b);
てして、最後のほうに
print join(",",@sum),"\n";
とか書けば、動くと思うけど。
055255102/04/15 01:39ID:???
イタイ。>>475だった。
0553５４９02/04/15 01:53ID:???
>550
了解しまっ！
0554４６９02/04/15 02:03ID:???
４７５みたいなコード書く奴は死んでください。理解できません。
0555nobodyさん02/04/15 02:07ID:???
>554
理解したいなら他人に聞いてもしょうがない。
自分で勉強するしか。
>2-4のサイトの中には親切に色々教えてくれる所もあるだろう。

理解するよりも利用したいなら>475のソースをそのまま使えばいい。
0556５４９02/04/15 02:13ID:???
>554
確かに、プロトタイプや複数処理に対応しているところは一見、知ってそうだが
効率の悪い書き方が目立つね。でも、これを理解できないの？ どこがわからないの？

0557nobodyさん02/04/15 02:16ID:???
>>556
>>475の効率の悪いとこって、どのへん？
0558５４９02/04/15 02:30ID:???
>557
ループカウンタ $i なんか使う必要ないし、return も遅くなるし、
ループ内で local 宣言を逐一行なってるようなとこかな？
055955702/04/15 04:08ID:???
>>558
なるへそ。localはループの外に出して、returnは省略するとして、
$iを使わないようにするには、どうしよう。うーん。
0560nobodyさん02/04/15 04:37ID:???
foreach( 0 .. $max_index - 1 )
とかかかな？
0561ほほ02/04/15 09:08ID:lbZrq7VB
http://www.kent-web.com/bbs/sample/light.cgi
このcgiに
http://yassu.no-ip.com/haikyo/cgi-bin/log.cgi?room=001
のようにURL指定すると画像張り付くようなことがしたいです。
どのようなソースをどこに付け足せばよいですか教えてください。
0562nobodyさん02/04/15 09:29ID:???
>560
それなら$iを使った方がいい。
その手法だと一度$max_index個の配列を一時的に作ることになってメモリを喰う。
0563nobodyさん02/04/15 09:30ID:???
>561
スクリプト改造工房 Part4
ttp://pc.2ch.net/test/read.cgi/php/1012839651/
0564ほほ02/04/15 09:52ID:7Ngfgl5F
>561さん
そちらの方が適切でしたか、誘導ありがとうございます。
0565nobodyさん02/04/15 12:22ID:???
今どきreturnが遅いとかforeach(1 .. 10000)が巨大なリストを作られるとか言ってるやつ。
書き込む前にベンチマークはしたのかと問いたい。問い詰めたい。小一時間問い詰めたい。
お前等、そんなものは今や時代遅れとちゃうんかと。

俺が見たところ、>>475での問題点は
・ループ内でlocalを使っている
・$a$bはパッケージ変数なので違うパッケージの時動かない
くらいなもんだ。
0566nobodyさん02/04/15 12:25ID:???
どうやらコテハン469はネタみたいなので今後は無視の方法でおながいします。
参考：http://pc.2ch.net/test/read.cgi/php/1018303030/
0567nobodyさん02/04/15 13:36ID:???
perlで常駐ソフトは作れないんですか？
0568nobodyさん02/04/15 13:40ID:???
>>567 Win, UNIX等マルチタスクOSなら作れる。 DOSのTSRは無理。
0569nobodyさん02/04/15 13:48ID:waGQdYYq
>>456
>>457
遅レスですがありがとうございました。参考になりました。
とりあえずjsのwindow.open()で?にて渡すことにしました。
Locationの使い方がサッパリ。
0570nobodyさん02/04/15 14:48ID:???
>>568
回答どうも。
よく分からん単語があったので調べます。
0571nobodyさん 02/04/15 14:51ID:WmWR88F9
問い合わせフォームを使っているのですが、以下の内容で

<FORM name="form1" action="form.cgi" method="POST" enctype="text/plain">
<INPUT type="hidden" name="c_copy" value="on" checked>
<INPUT type="hidden" name="no_check" value="off">
<INPUT type="hidden" name="subject" value="問い合わせ">
<TABLE border=0 >
<TR>
<TD>*お名前：</TD>
<TD><INPUT name="お名前" size="16" type="text"></TD>
</TR>
<TR>
<TD>*e-mail：</TD>
<TD><INPUT name="email" size="40" type="text"></TD>
</TR>

</TABLE>
<INPUT type="submit" value=" 送信 " style="HEIGHT: 24px; WIDTH: 70px">
 <INPUT name=reset1 type=reset value="クリア" style="HEIGHT: 24px; WIDTH: 70px">
</></FORM>


全ての項目に入力した上で送信ボタンを押すと、次の画面で
−−−−−−−−−−−−−−−−−−−−−
内容確認
項目 　　内容
c_copy 　on
　　　　　no_check

メールアドレスを入力しないと送信できません
−−−−−−−−−−−−−−−−−−−−−
とメッセージが表示されてしまいます。

何が悪いのか教えていただけませんでしょうか。
よろしくお願いします。

0572nobodyさん02/04/15 15:00ID:???
>571
どこがPerlのコーディングの話なんだ？
Perlのコーディングの話をするスレだから、Perlのコードを出してくれ。
0573nobodyさん02/04/15 15:01ID:???
つーか、まずHTMLの勉強してこい。
そのHTMLソースもグチャグチャじゃないか。
0574nobodyさん02/04/15 15:17ID:???
>>571
form.cgiの中身がおかしいと思います。
0575nobodyさん02/04/15 15:18ID:WmWR88F9
>572&573さん、ご指摘ありがとうございます。
前任者が作成したソースをメンテナンスする事になり、苦労している次第です。
抜粋してPerlのコードを載せます。

#■内容確認
print "Content-type: text/html\n\n";
print "<html><head><title>$title</title></head>\n";
print "$body\n";
print "<h1>内容確認</h1>\n";
print "<form method=\"post\" action=\"form.cgi\">\n";
print "<blockquote><table border=1 cellpadding=3 cellspacing=3>\n";
print "<tr><td bgcolor=\"#ffcccc\"><b><font size=+1>項目</font></b></td><td bgcolor=\"#ffcccc\"><b><font size=+1>内容</font></b></td></tr>\n";
print "<tr><td></td><td></td></tr>\n";

$count = @DATA_NS;

foreach (0..$count-1) {
print "<input type=hidden name=\"$DATA_NS[($_)]\" value=\"$DATA_VS[($_)]\">\n";
print "<tr><td bgcolor=\"#ffeedd\">$DATA_NS[($_)] <br></td>";

if ($DATA_VS[($_)] =~ /\n/) { print "<td bgcolor=\"#ffffff\"><pre>$DATA_VS[($_)]</pre></td></tr>\n"; }
else { print "<td bgcolor=\"#ffffff\">$DATA_VS[($_)]</td></tr>\n"; }
print "</td></tr>\n";
}

print "</table></blockquote><p>\n";
0576nobodyさん02/04/15 15:18ID:WmWR88F9
if ($lct ne "") { print "<input type=hidden name=\"location\" value=\"$lct\">\n"; }

print "<input type=hidden name=\"mailto\" value=\"$mailto\">\n";
print "<input type=hidden name=\"no_check\" value=\"on\">\n";
print "<input type=hidden name=\"ref_page\" value=\"$ref\">\n";

if ($receipt eq "on") { print "<input type=hidden name=\"receipt\" value=\"on\">\n"; }
if ($cc eq "on") { print "<input type=hidden name=\"c_copy\" value=\"on\">\n"; }
if ($ref_url ne "") { print "<input type=hidden name=\"ref_url\" value=\"$ref_url\">\n"; }
if ($ref_name ne "") { print "<input type=hidden name=\"ref_name\" value=\"$ref_name\">\n"; }
if ($subject ne "") { print "<input type=hidden name=\"subject\" value=\"$subject\">\n"; }
if ($password ne "") { print "<input type=hidden name=\"password\" value=\"$password\">\n"; }

if ($email eq '' || !($email =~ /(.*)\@(.*)\.(.*)/)) { print "<font size=+2><b>メールアドレスを入力しないと送信できません</b></font><p>\n"; }
else { print "<input type=submit value=\"　送信(submit)　\"><p>\n"; }
print "</form><p><hr>\n";

以上、よろしくお願いします。
0577nobodyさん02/04/15 15:50ID:???
>575-576
なんともまぁ酷いコードだな・・・。

ともあれ>571のエラーが出るならメールアドレスが入力されてないんだよ。
[email protected]って入力して試してみ。
@と.が入ってないとエラーを吐くだけだから。

つーか、前任者には聞けないのか？
0578nobodyさん02/04/15 15:50ID:???
>>571よ悪いことはいわん。上司に「僕には無理です」と泣き付け。
0579nobodyさん02/04/15 16:07ID:WmWR88F9
>574さん、私もcgiとHTMLソースがうまくかみ合っていないのが原因では？と
考えています。
>577さん、それがメールアドレスを入力しているのに関わらず、エラーが
出ているから困っています。
ちなみに「hoge」「hoge@hage」「[email protected]」の何れを入力しても
同一のエラーが出ます。
>578さん、泣き付ける上司がいればいいのですが、あいにくおりません。

0580nobodyさん02/04/15 16:31ID:YGeSanjU
だって現に無理じゃん、しょうがないよ。
>>578はいいこと言ったよ？
058157702/04/15 16:55ID:???
>579
俺も>580に同意。
前任者がPerlもHTMLもロクに理解していない。
後任のあんたも全然理解していない。
そのスクリプトがエラーになる原因が「思い当たりすぎて」どうしようもない。
そしてアンタ自身にそれを試験しその経過を正確に報告するスキルが無い。
そんな状態でここから指示を出してたら１ヶ月経っても２ヶ月経っても無理だ。

はっきり言って、ケントでもレスキューでも行って多少でもまともなCGIを
拾ってきた方がよっぽどいいと思うぞ。
はっきり言う。
無理だ。

正直、俺から見ると、そのスクリプトを修正するより、自分で１から
作った方が楽にすら思える。
058258002/04/15 17:22ID:YGeSanjU
とりあえず、やめろとは言わん。
どっかで似たもののＣＧＩ探して、
そのＣＧＩとにらめっこして、原因を追究すべし。

２ちゃん寝るの上級者が答えてくれればいいってもんだけど、正直、わかり難い。
0583４６９02/04/15 17:34ID:???
>>556
もっといいのを書いてください！
それだけ知った口を叩けるのだから！！！
0584nobodyさん02/04/15 18:00ID:???
475もいい迷惑だな(w
0585nobodyさん02/04/15 18:05ID:8YI2JjdJ
こんにちは、
これってどうしてちゃんとコード変換しないのでしょう？
ヒアがいけないような気もするのですが...
みなさんはメールのフォーマットってどうやっていますか？

$hoge = "こんにちは";

&jcode'convert(*hoge,'sjis');

$mail_tex = <<HERE;

フォームの内容は$hogeです。
フォームの内容は$hogeです。
フォームの内容は$hogeです。

HERE

&jcode'convert(*mail_tex,'jis');

print $mail_tex;

ちなみにこれはEUCで書いたソースだとします。
sjis変換はログ保存用だと思ってください。

どうかよろしくお願いします。
0586４６９02/04/15 18:25ID:???
糞ばっかりだなここは
意味不明コード厨房に知ったか厨房かよ
ぼけ
058758502/04/15 18:56ID:8YI2JjdJ
本当、意味不明ですいません。
自分でもなにをしてるのか分からなくなってきています。
ちなみに、sjisの所をeucにしても一緒でした。
そろそろ動けばいいって作り方から卒業したいです。（泣
0588nobodyさん02/04/15 20:06ID:???
>>587
&jcode'convert(*hoge,'sjis');
を消せば、いんでないかと。
0589nobodyさん02/04/15 20:09ID:???
>>575
デバッグの基本はプリントだ！
$emailをチェックしている行の直前に、
print "[$email]<BR>";
って入れて、確認しよう。
0590nobodyさん02/04/15 20:33ID:???
とりあえず関係なさそうだが
&jcode'convert(*hoge, 'sjis')
これを
&jcode::convert(\$hoge, 'sjis');
にしておけ。
0591nobodyさん02/04/15 20:38ID:YGeSanjU
とりあえず意味なさそうだが
&jcode'convert(*hoge, 'sjis')
これを
exit;
にしておけ。
0592nobodyさん02/04/15 20:45ID:???
>>584
禿同。

_gunzipのコードは参考になるところが多いから常駐してﾎｽｨんだけど、
エライのに目をつけられたもんだ(w
0593nobodyさん02/04/15 22:38ID:???
なんかあんまり技術的な質問じゃないんですが
掲示板とチャットの違いってスクリプト的に
どのあたりで線引きされるもんですかね？
これとこれみたいな事ができればチャット、もしくは掲示板みたいな
定義があれば教えてください。
0594nobodyさん02/04/15 22:52ID:G09favcm
>580さん、そうですか。無理ですか・・・。(残念です)
>582さん、これを作った人とはもう連絡が取れない状況で自営業をしている
友人が困って私に調べて欲しいと依頼が来た次第です。(なので、仕事とは
全く無関係です)
指摘される通り、私にはあまり知識はありません。
別のCGIを拾ってきて、一から作ってみたいと思います。
>582さん、他の似たようなCGIと比較して原因を調査してみます。
ありがとうございました！！
0595nobodyさん02/04/15 22:53ID:???
あてはまればチャット
・リロードの回数が多い（リアルタイムで返事がくる）
・コメント欄がおそらく一行
・「入室」する
■ このスレッドは過去ログ倉庫に格納されています