【Perl】初心者コーナー Part12
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/04/27 23:17ID:1NNXdNspいらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
CGIの質問は【CGIだけどなんか質問ある Pert 6 】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4 】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10を見よう。
0316nobodyさん
02/05/04 00:26ID:GNJILI/Xログファイルの$hoge[3]にそれぞれ数字がありまして
その数の合計を求めるにはどうすれば宜しいのでしょうか？
ログファイルは\tで区切ってあります。
0317310
02/05/04 00:26ID:???実はすでにあちらのメモも試したのですが、うまくいかなかったのです。
でも、実際のところはどこがうまくいっていないのか理解できていないので
うまく適用できていなかったのかもしれませんが・・・。
0318nobodyさん
02/05/04 00:33ID:???改善されてねーな
112 ：nobodyさん ：02/05/03 18:40 ID:???
>>110
「ログファイルの$hoge[3]」って何よ。
「ログファイルは\tで区切ってあります」ってのはレコード区切りが\nでデータ区切りが\tって事か？
わかるように書いてくれ。いや、大体わかっているんだけどな。
0319nobodyさん
02/05/04 00:35ID:???\tで区切ってるログファイルの4番目のとこに数字があるってこと？
$count=0;
open(FILE,"./$filename");
while(<FILE>){
@hoge=split(/\t/);
$count+=$hoge[3];
}
close(FILE);
print $count;
0321nobodyさん
02/05/04 00:49ID:???$_ = '文字コードがEUCの場合ね';
s/\x82[\x9F-\xF1]//g;
print;
これでひらがなだけ削れる
逆は自分で考えれ
0322nobodyさん
02/05/04 00:49ID:???$hoge ="123あいうえ456さしすせ-*/アイウabcdエオ";
$Zhiragana = '(?:\xA4[\xA1-\xF3])';
$hoge =~ s/$Zhiragana//g;
EUCこれでできるよ。
実行したら print $hoge; で表示されるのは
123456-*/愛上尾アウabcdエオ
あなたはどう書いてるの？EUCにコンバートするところとかは？
0323nobodyさん
02/05/04 00:53ID:/IfudcOZ0324nobodyさん
02/05/04 00:54ID:???EUCはこうか
s/\xA4[\xA1-\xF3]//g;
0326310
02/05/04 00:56ID:???ありがとうございます！うまく動きました。
trを使っていたのが間違いだったのでしょうか？？
兎にも角にも、ありがとうございました。
0327nobodyさん
02/05/04 00:56ID:???LWPを使う。
0328nobodyさん
02/05/04 00:57ID:???0331310
02/05/04 00:59ID:???お答えありがとうございます。そちらも試したのですが
SCALAR(0xc963c4)
のエラーがでてしまいます・・・。なぜでしょう？
0332_gunzip
02/05/04 01:00ID:???レベルが低いよ。
0333310
02/05/04 01:02ID:???とりあえず、入力される文字列は全て
jcode::convert(\$hoge, 'euc');
にてeucにコンバートしております。
で、とりあえずいまはWin2000上のコマンドプロンプトで動かしているので
出力前にsjisにして出力しています。
0334nobodyさん
02/05/04 01:04ID:/IfudcOZＬＷＰですか・・
ちょっと調べてきます・・・
0338nobodyさん
02/05/04 01:08ID:???0340nobodyさん
02/05/04 01:10ID:???print "写真うｐしる！話はそれからだ！\n";
}
else {
print "逝ってヨシ！\n";
}
0341nobodyさん
02/05/04 01:11ID:???0342316
02/05/04 01:15ID:GNJILI/Xエラーになっちゃいました。
$count+って使えます？
0345_gunzip
02/05/04 01:37ID:???過去レスで何度も答えている内容をいまだに質問してくるということで、
そのために答えるほうもまとを得ない答えになってしまっているということ。
0348nobodyさん
02/05/04 01:50ID:???暇な奴だな(w
0350nobodyさん
02/05/04 01:56ID:???漫画でよくあるネタだよね（ｗ
↓ここに投稿したくなった。
バカの一つ覚えな展開２
http://comic.2ch.net/test/read.cgi/comic/1019059437/
0351nobodyさん
02/05/04 01:58ID:???0352nobodyさん
02/05/04 02:00ID:???0353nobodyさん
02/05/04 02:08ID:???0354nobodyさん
02/05/04 02:11ID:???http://www.google.com/search?hl=ja&q=lwp%82%C1%82%C4%82%C8%82%C9%81H&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
0355352
02/05/04 02:13ID:???>>353 LibWww-Perl の略じゃないの？
http://www.linpro.no/lwp/
Perl関連でなけりゃLight Weight Processの略かもしれないがな。
0357nobodyさん
02/05/04 02:54ID:???0358ん〜さっぱわからん
02/05/04 04:11ID:qVSStWkLんで、そのファイルには２０行のテキストデータがあって
その１行の文字数はマチマチである。
さて、このファイルの５行目から１０行目までのデータを
読み込みたい。
でも、ファイル全部を読み込んで後から整形するのはいやだ。
どうすればいいのだろうかぁ？
0359nobodyさん
02/05/04 04:13ID:???あとは、wgetやWWWcp等の外部コマンドを呼ぶしか、簡単な方法は
無いと思う。
めんどくさい方法でもいんなら、Socket使ってうりうりやる方法もある。
0360nobodyさん
02/05/04 04:15ID:???foreach(1..5) {
<IN>;
}
foreach(1..5) {
push(@data,<IN>);
}
でどうかね。
0361nobodyさん
02/05/04 04:19ID:Wv66U69Iとしているのですが、ブラウザから呼び出すと何故か動きません。
「500 Internal Server Error」とエラーメッセージが出てしまいます。
文字コードも置き場所もパーミッションも.htaccessも問題無いと思うし、
TELNETで単体実行してもちゃんと動きます。
エラーログを見ると、「Premature end of script headers」となっています。
･･･スクリプトヘッダーの時期尚早の終わり？とな？ん？
他の人が作っていたCGIを見てみても、とりあえず一行目の
「#!/usr/local/bin/perl」というのは一致しているし･･･
皆さん、どうぞ知恵をお貸し下さい。
0362ん〜さっぱわからん
02/05/04 04:25ID:qVSStWkLそんなに簡単にできちゃうの？もうずいぶんと長い間悩んでいるのだが
でも、それって結局ファイル全部読み込んでるのと同じじゃないのだろうか？
0363nobodyさん
02/05/04 04:28ID:???改行コードがDOS改行になってるっていうオチはないか。
とりあえず、telnet経由で単独で実行した結果の先頭5行くらいコピペ
してちょ。
0365なんとなくわかってきた
02/05/04 04:38ID:qVSStWkLんん、なんとなくわかってきますた。すいませぬ。
つまりは２ｃｈ掲示板の
最新50 1-100 100-200 200-300
っつーのをやりたいのですが、やはりこの方法でやっているのでしょうか？
0366361
02/05/04 04:39ID:Wv66U69I秀丸を使って、EUCからS-JIS、JIS、UNICODEにUTF-8まで試してみました。
以下は単独実行の結果です。
dalrq000@sv29:~/public_html/acjik/abcd/cgilib>./jiktes.cgi
Content-type: text/html
<html>
<body bgcolor=silver text=navy>
<h1>CGI TEST</h1>
length:<p>
IP Addres:<p>
data:<p>
（以下略）
･･･どんなでしょうか？
0367nobodyさん
02/05/04 04:44ID:???っかしいなぁ。
出力はそれでOK。
ためしに、
#!/usr/local/bin/perl
print "Content-Type: text/html\n\nほげほげ";
だけ書いたスクリプトだとどうなるかな。これでだめなら、
webサーバの設定(httpd.confか.htaccess)がおかしいと思う。
0369わかりましたぁ！
02/05/04 04:50ID:qVSStWkLですよね。なんとか理解してきました。
早速試してみます。ありがとうございます。
・・・しかし、随分長い間Perl書いてるのになんで
教える側にまわれないんだろう？（ｼｮﾎﾞﾝ
0370361
02/05/04 04:58ID:Wv66U69I.htaccessは以下の二行だけです。
AddType application/x-httpd-cgi .cgi
AddType application/x-httpd-cgi .cgi/
他の人が作成してちゃんと動いているCGIのディレクトリ内には、
.htaccessはありません。当然削除して試してみましたが駄目でした。
更に、その人のディレクトリに私のCGIを置いて試してもみました。
httpd.confの方は見る事も禁止されてるので、なんとも言えません。
0372361
02/05/04 05:37ID:Wv66U69Iそれが･･･それらのファイル、エラく大掛かりなんで、ドコを
どうイジったらいいか分析するのに凄く時間が掛りそうなんです。
とりあえず移動させずに、ブラウザからアクセスするとForbiddenと
言ってきます。これは、一応CGIの実行結果みたいです。
関連するらしいファイルをまとめて（怪しいですが）私のトコにコピーし、
ブラウザから呼び出してみると･･･500 Internal Server Errorになります。
あ、「ほげほげ」もやっぱり駄目みたいです。
0373nobodyさん
02/05/04 05:39ID:???オマエには無理じゃないのか？
FreeBSDのＷｅｂサーバ上にＣＧＩスクリプトをアップしてるわけだろ。
秀丸で文字コード変換を試したっつーことはＷｉｎからアップしてるだろ。
アップはＦＴＰだと思うが、結局アップするときにバイナリモードでやったのか？
オマエのことだから自動変換かアスキーモードでやっていないか？
あとは、パーミッションは大丈夫だと言ってるが、上位ディレクトリのパーミッション
まで確認できてるのか？
それと、３７１ が書いてることも合わせて確認しろ。
0374nobodyさん
02/05/04 05:40ID:fEiPwaMdLWPで取得したデータを$xに入れる。
その$xをwhileで処理させる超シンプルなソースお願いです。
0375nobodyさん
02/05/04 05:45ID:???foreachでも(1..5)とか指定すればwhileで5回繰り返しやったのと
結果以外の部分でも同じ位の負荷だとかになるんでしょうかね？
後、どっかのスレで書けるなら全部whileの方がいいと聞きましたが
全部読む必要があるときなんかもwhileで書いた方が良いんですかね？
0376361
02/05/04 05:56ID:Wv66U69Iん？確かにＷｉｎからですが、CGIの類ってASCIIで
転送するんじゃなかったんですか？
パーミッションはpublic_html以下から、とりあえず777にしてみてます。
0377361
02/05/04 06:09ID:Wv66U69ICGIの類っちゅうか、スクリプト言語の類ですね。
0378371
02/05/04 06:09ID:???ASCIIでやったほうが、改行コード変換してくれるので楽だけど、
できればあらかじめUNIX改行(LF)にしておいて、バイナリモードで
転送したほうが確実。
(>>363で改行コードの指摘したのはそれなんだけど)
んで、Forbiddenってのは、CGIの実行結果じゃく、サーバが返してる
エラーだと思うんだけど、それはおいといて、
まずは>>367の2行スクリプト試してよ。
不安なので、public_html/ 直下に置いて、.htaccess アリの場合と
無しの場合と、telnet で直接実行した場合の３通りの結果よろしく。
0379361
02/05/04 06:42ID:Wv66U69IEUCにしておいてバイナリモード転送。･･･同じですね。
でも、363の内容で問題が起こってたとしたら、
単独実行も出来なかったのでは？
その人は403.htmlってファイルを自分で用意してて、
それを表示させてるみたいです。
試しましたよ。「ほげほげ」って、その２行スクリプトの事です。
先程改めて、EUCにしておいてバイナリ転送して試しましたが、駄目みたいです。
public_html直下に置く件、.htaccessの件、直接実行の件、
試しましたがどれも駄目みたいです。
0380371
02/05/04 06:51ID:???EUCは文字コードで、改行コードとはぜーんぜん関係ないんだけど、
それはまぁいいや。
とりあえず、例の2行スクリプトがだめなら、君のせいじゃなくて、
サーバの設定の問題しか考えられないので、管理してる人に
相談しよう。
0381nobodyさん
02/05/04 06:57ID:???0382361
02/05/04 07:24ID:Wv66U69Iへー、今までそれらはセットになってるんだと思っでもてました。メモメモ。
でも、373の彼もその辺まで考えてたとは思えないなー？
もう５日前からサポートにメールしてるんですが、リアクションが無いんです。
ＧＷをフルに休んでるのか、誰もメールをチェックしてないのか･･･
太陽が眩しい。とりあえずもう寝ます。お付き合いありがとうございました。
>>381
ん？･･･それ、今.htaccessに追加してやってみました。駄目です。
0383nobodyさん
02/05/04 07:35ID:???結局今まで出ているエラーは
Premature end of script headers
これなんでしょ？だとしたら、cgi は動いているんだよ
で、俺が見て気になった部分なんだけど
#!/usr/local/bin/perl
print "Content-Type: text/html\n\nほげほげ";
↑これを
#!/usr/local/bin/perl
print "Content-Type: text/html\r\n\r\nほげほげ";
↑こうやっても駄目カナ？
以前、一度これではまった覚えあるから…
0384nobodyさん
02/05/04 07:38ID:???0385383
02/05/04 07:43ID:???0386nobodyさん
02/05/04 07:45ID:???(ﾟДﾟ)ﾊｧ?
何言っているの君？
>>361
> エラーログを見ると、「Premature end of script headers」となっています。
> ･･･スクリプトヘッダーの時期尚早の終わり？とな？ん？
> 他の人が作っていたCGIを見てみても、とりあえず一行目の
> 「#!/usr/local/bin/perl」というのは一致しているし･･･
日本語読めますかぁ？
0388nobodyさん
02/05/04 07:53ID:???ってスクリプトが実行できていないときにも出るよ。
0390nobodyさん
02/05/04 07:55ID:???#!/usr/local/bin/perl
の行が間違ってても、Premature end of script headers になるよん。
なので、改行がDOS改行(CR+LF)になってると、
「/usr/local/bin/perl^M」ってファイルを実行しようとして、上記のエラーになる。
ただしその場合、コマンドラインから実行しようとすると、コマンドが
見つからないっていうエラーになるはずなので、今回はあてはまらないんだよね。
0391nobodyさん
02/05/04 08:05ID:???鬱。間違えた
>>388 が正しい。ｺﾞﾒｿ
>>398
> ただしその場合、コマンドラインから実行しようとすると、コマンドが
> 見つからないっていうエラーになるはずなので、今回はあてはまらないんだよね。
だから、cgi は動いていると判断するのが妥当だろ。なんで、.htaccess に
話をもって行くのが疑問…
0392nobodyさん
02/05/04 08:06ID:???Premature end of script headers でるよん。
0393nobodyさん
02/05/04 08:13ID:???0394nobodyさん
02/05/04 08:26ID:???いろいろなケースが考えられるんじゃないかな？
質問者の利用している環境がよくわからないので、何とも言えませんが。
Perlスクリプトとしては実行できているのに、CGIでは動作していない
ようなので、あらゆる可能性を考えてみるのも悪くないと思うよ。
まぁ、こういう時は、単純なケアレスミスだったりするかもしれないけど。
0395nobodyさん
02/05/04 13:02ID:KUHaKz9Topen(FILE,"./log.txt");
@data=<FILE>;
close(FILE);
$num=1;
$i=0;
print "Content-type: text/plain\n\n";
while(($data[$i] ne '') or $num<8){
($name,$message)=split(/\t/,$data[$i]);
print "名前$num:$name\n";
print "メッセージ$num:$massage\n";
$i++;
$num++;
}
logファイルを読み込んでそれをただブラウザに表示させるプログラムです。
logファイルから読み込んだデータが8行以上の場合は7行まで表示させて、7行に満たない場合は
そこで表示を終了させたいのですが､データが7行未満しかないときでもwhile文を抜け出してくれません。
配列にデータが入ってない場合はどのように条件にしたら良いのでしょう。
0398nobodyさん
02/05/04 14:54ID:???17氏のbbs.cgiからトリップの部分だけコピペしましたが動作しませんでした･･･。
どうすればトリップが使えるようになりますか？
0399nobodyさん
02/05/04 15:06ID:???名前欄に「#〜〜」と入れる。
というネタレスはさておき。
$name = $in{'name'};
$name =~ s/◆/◇/g;
if($name =~ s/#(.+)$//g){
$key = $1;
$salt = substr(substr($key, 1, 2) . "H.", 0, 2);
$salt =~ tr/:;<=>?\@[\\]^_`/ABCDEFGabcdef/;
$salt =~ s/[^\.\/0-9A-Za-z]/\./g;
$trip = substr(crypt($key, $salt), -8);
$name .= "◆$trip";
}
漏れはこうやって使ってる。
0400さらなる謎
02/05/04 15:50ID:qVSStWkL>>360さま
下のようなテストのスクリプトを書いて試してみたんだけど
#(ok)の方では正しい答えがえられるのに
コメントアウトしてある#(ng)では11行目以下のデータも
@LOGに読み込んでしまうのですます、はい。
なんでだろ？同じ筈なのに・・・・謎。
#!/usr/local/bin/perl
#==========================================
open(IN,"test.dat");
foreach(1..5) { <IN>; }
foreach(1..5) { push(@LOG,"".<IN>); } #(ok)
#foreach(1..5) { push(@LOG,<IN>); } #(ng)
close(IN);
#==========================================
print "Content-type: text/html\n\n";
print "<HTML>\n";
foreach $data(@LOG){
print "$data<BR>\n";
}
print "</HTML>\n";
exit;
サーバーはfreeBSDのアパッチ。
0401nobodyさん
02/05/04 16:24ID:638lh9Jmそのデータ管理ファイル内にパスワードを
平文のままで保存しておくとセキュリティー上問題が
在ると思います。
しかし、ユーザIDとメールアドレスをユーザが入力すると
その２つと一致したデータのパスワードを
相手にメールで通知したいと思います。
そこで、そのようなプログラムはどのように組めばいいのでしょうか？
暗号・復号可能なパスワードのロジックなど存在するのでしょうか？
アドバイスをお願いします。
0403ん〜
02/05/04 16:30ID:qVSStWkLん〜、crypt。。。じゃダメなの？
0404nobodyさん
02/05/04 16:33ID:???あまりに基本過ぎてネタとしか思えないんだが。
第一引数の配列の末尾に第二引数を要素として加える。
第二引数はダブルクォーテーションとして囲まれてるから文字列として加えられる。
頼むから初歩の初歩的なことくらい自分で勉強してくれ。
0405nobodyさん
02/05/04 16:39ID:638lh9Jmcryptだと、ユーザが入れたパスワードが
在っているかどうかのチェックはできると思うのですが、
パスワードを忘れたユーザに対して登録しているメールアドレスに
通知するとき、もとのパスワードはわからないですよね？
かといって、平文で保存しておくと、セキュリティー上やばいでしょうから。
皆さんのお知恵をお借りしたいのです。
0407nobodyさん
02/05/04 17:00ID:???$_みたいなものですか？
while (($name, $value) = each %cookie) {
$name =~ s/([$encode])/'%'.unpack("H2", $1)/eg;
$value =~ s/([$encode])/'%'.unpack("H2", $1)/eg;
$name =~ s/\s/\+/g;
$value =~ s/\s/\+/g;
push(@sqcookie, "${name}_${value}");
}
0408nobodyさん
02/05/04 17:05ID:???$sqcookie[@sqcookie] = "${name}_${value}";
こういう書き方をすればわかるかな？
強引なやり方だが意味は同じ。
${name}は$nameと同じ。
何でそういう事をしているかというと、$name_$valueだと、
「$name_」と「$value」を足す事になって、「$name」と「_」と「$value」を足す
という意味にはならないから。
変数にどの文字が使えるか考えればわかる事。
${name}という表記の仕方は覚えておくといいよ。
変数名に変数を使いたい時とかに役立つ。
質問の意図を一部誤解していたみたいですまない。
0409nobodyさん
02/05/04 17:34ID:???複合化できたら平文で保存するのとあまりセキュリティ上の危険さは変わらないと思うけど。
(自分で複雑なのを組むとか言うなら別だけど。)
それなら、確認のメール入れてそこからアクセスして変更ってのが一番楽かと。
0412nobodyさん
02/05/04 17:47ID:???a1
a:aaaa
*
a2
a:aaa
*
a3
a:aa
*
こんな感じで保存されているクッキーがあって、
$COOKIE{a}と書くと
aaaaのみ表示されて、
aaaa
aaa
aa
と表示されません。
どうすればいいのでしょうか？
■ このスレッドは過去ログ倉庫に格納されています