【Perl】初心者コーナー Part17
■ このスレッドは過去ログ倉庫に格納されています
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 8
http://pc.2ch.net/test/read.cgi/php/1032704121/
参考書籍の話題は【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は 【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/
過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0077nobodyさん
02/10/16 13:43ID:???open(F,"test.log");
my @log = (); push @log, $_ while <F>;
#@log = <F>;でもどっちでもいいよこの際。
close(F);
foreach(@log){
....
}
より
open(F,"test.log");
my $log = '';read(F,$log,-s "test.log");
close(F);
while($log =~ /\G([^\r\n]+)[\r\n]+/g){
....
}
とかにした方が全然速くない？
特に「ファイルを早く閉じたいから一気読みしてる」とか言ってる奴が
前者を使う理由がわからない。
#for$n($start..$end){$log[$n]の加工}とかで一部だけ
#加工したいなら読み込み段階で素直に
#while(<F>){$n++;next if($n < $start);last if($n > $end);$_の加工}
#とでもした方が全然速いし当然メモリはほとんど使わないし。
0078nobodyさん
02/10/16 13:44ID:???ありがとうございます。
とりあえず今は数字しか必要ないので今のやり方でやります。
007973
02/10/16 14:41ID:???それを前提にしたベンチやってても、その結果を考慮に入れる香具師は
いないってこと。
0080nobodyさん
02/10/16 14:50ID:???逆じゃないの？
一気にメモリに読み込む仕様にした時にでかいファイルを読まれたら
どうなるかは視野に入れて作った方が良いというか。
製作者の意図通りに使ってくれない人なんて沢山いるだろうし。
0081nobodyさん
02/10/16 15:12ID:???だからね、
「一気にメモリに読み込む仕様にした時にでかいファイルを読まれたら
どうなるかは視野に入れ」たら、普通そういう仕様にしないでしょ。
検討はしましたが、実際には使いませんね、でいいじゃん。
制作者の意図って誰の意図？ Larryのことか？
008280
02/10/16 15:35ID:???落ちけつ。俺だってそんな仕様にはしないし
確かに普通そんな仕様にはしないだろう。
だがその話をしてる人は普通の用途では無いかもしれんし
実用云々は置いておいて単なる処理の話をしてるのかもしれん。
自分じゃまずやらない事だからこそ何か発見があるかもしれんし
色々話すだけなら構わんのでない？
0083nobodyさん
02/10/16 15:49ID:???s/あ/ア/;
tr/あ/ア/;
これはどっちも同じですよね。
対象文字列に正規表現が使えるか使えないかの違いでしょうか。
0085nobodyさん
02/10/16 17:30ID:???流行なんでしょうか？昔は見なかったような・・・
0086nobodyさん
02/10/16 17:46ID:???0087nobodyさん
02/10/16 18:44ID:???0089nobodyさん
02/10/16 20:34ID:???>while($log =~ /\G([^\r\n]+)[\r\n]+/g){
\Gってなんですか？
あとテキストファイルの読み込みは<FILEHANDLE>が一般的と明言されてますけど
例にあるreadの方が本当に速いんですか？
0090nobodyさん
02/10/16 20:56ID:???\Gは前回マッチした場所の直後からスタート。
スピードは計ってみりゃいいじゃん。
#! /usr/bin/perl
open(LOG,">test.log");for(1..1000){print LOG 'a' x 1000 ."\n";}close(LOG);
use Benchmark;
timethese(50,{
1=>q{
open(F,"test.log");
my @log = (); push @log, $_ while <F>;
close(F);
foreach(@log){next;}
},
2=>q{
open(F,"test.log");
my $log = '';read(F,$log,-s "test.log");
close(F);
while($log =~ /\G([^\r\n]+)[\r\n]+/g){next;}
}
});
#Benchmark: timing 50 iterations of 1, 2...
#1: 22 wallclock secs (19.37 usr + 0.82 sys = 20.19 CPU) @ 2.48/s (n=50)
#2: 5 wallclock secs ( 3.37 usr + 1.01 sys = 4.38 CPU) @ 11.40/s (n=50)
0091nobodyさん
02/10/16 21:44ID:???readは読み込み専用に用意された関数だから、そりゃ速いだろ。
ファイルハンドルで回すのが一般的なのは扱いやすい、発展しやすいからじゃ
ないかな。(といってもreadで読むのは別に珍しくは無いと思うけど)
0092nobodyさん
02/10/17 01:50ID:???どうやればいいんですかねえ？
0093nobodyさん
02/10/17 03:57ID:???デザインを大幅に変えていた。
変え終わってローカルで最終テストをしている時に気づいた
パスワードが暗号化されていない・・｡･ﾟ･(ﾉД`)･ﾟ･｡
このままでは、ダメだと思い、別のところで配布されている
スクリプトに変えようかと思ったが、デザイン変えてしまったし、
折角だから、自分で暗号化してみようかと思い必死で暗号の仕方を探した。
何度も何度も試した。
エラーの繰り返し。
それから、12時間経過・・・(´Д｀) =3
もう、別のスクリプト探すyoヽ(`A´)ﾉｳﾜｧﾝ
こんなことなら、初めから別のスクリプトにしておけば良かった。
無駄な12時間だった・・・。(-＿-)
0094nobodyさん
02/10/17 08:19ID:???パスワードの暗号化の部分だけ、別スクリプトからもらってきたら
よかったんじゃない？ っていうかパスワード暗号化って必要な
ものなのか？
0095nobodyさん
02/10/17 09:13ID:???記事変更・削除時に入力されたパスをcrypt(入力,93)使って暗号化、記録してある物と比較
一致すればOK パスが記録されたファイルを見られても大丈夫
>>93 これじゃ駄目?
0096nobodyさん
02/10/17 12:19ID:???0098nobodyさん
02/10/17 16:52ID:???を訳してください。
010199
02/10/17 17:07ID:???010296
02/10/17 17:25ID:???http://www.mikeneko.ne.jp/~lab/perl/des/
0103nobodyさん
02/10/17 20:41ID:???何度も別のスクリプトからもらってきて
試してみたんですが、無理でつた。
僕の知識不足です。
さすがに、生のパスワードがそのままログに
残ってしまうのは、もしも漏れた時に・・と考えると・・・。
それに、自分では来訪者のパスワードが見れてしまうので
気持ち悪いのです。。
>>95
わざわざ説明ありがとうございますた。
今試してみたのですが、記事削除時の比較がなかなか上手く
できないです。もう少し頑張ってみます。ﾍﾟｺﾘ
0105nobodyさん
02/10/17 23:44ID:???吊るされに逝ってきます
0106nobodyさん
02/10/18 01:16ID:eCvV6YKPError 500
CGI エラー - Content-Type ヘッダが正しくありません。
CGI 出力メッセージ:
"my" variable $year masks earlier declaration in same scope at C:\www\up\upload.cgi line 1366.
flock() is not available on Win95!
と出てしまったのですが、OSが95で flock() を含むスクリプトは使えないってことですか？
何か解決策はありませんでしょうか？
0107nobodyさん
02/10/18 01:32ID:???0108107
02/10/18 01:50ID:???eval{ flock() };
0110nobodyさん
02/10/18 13:52ID:lRuefofgperlで作れるのは掲示板とかチャットとかです。
パスワード発行のやり方とかは知りません。
0113nobodyさん
02/10/18 17:46ID:???掲示板やchat作れるんならパスワード認証くらい簡単なはず。
一。<form action="hoge.cgi"></form>の中にメールアドレスとパスワードを入力する画面の設計。
二。hoge.cgiでメールアドレスとパスワードをファイルにかき出す。
三。メールアドレスを集めて、sendmailで用意したメール本文を送信。
ところで、パスワードは何に使うのかなぁ
0114名無しさん＠カラアゲうまうま
02/10/18 19:40ID:???0115110
02/10/18 19:48ID:???メールの送る内容（情報）を選べるようにしたいので、
会員登録後もIDとパスワードでログインして送信設定などを各会員にやってもらう予定なのです。
会員システムの時、IDとパスワードをユーザーが自分で決める方式と
IDは任意でパスワードは自動発行のだいたい二通りがあると思うんですけど
これってどっちがいいんでしょうか。別にどっちも大して変わらないんでしょうか。
0116超凄腕プログラマー
02/10/18 20:22ID:???0117nobodyさん
02/10/18 22:04ID:XuCvNIceCJ-CLUB の I-BOARD2001
のアイコンの種類と文字色の種類を増やしたいんですが、
set.cgi で増やしても
500 Internal Server Error
が出てしまいます。
他に書き換えなければならない部分があるのでしょうか？
エディタは秀丸とメモ帳でやってます。
改行は自分では入れていません。
0118nobodyさん
02/10/18 22:30ID:???0120nobodyさん
02/10/18 23:08ID:???自動発行ってトリップみたいなものかな？
実状は自分で決めたパスワードさえ忘れてしまう人が呆れるほど多かったりする罠。
自動発行だと忘れる人は倍増する気もするけど、
メールでしっかり忘れないようにするなら逆に忘れられても大丈夫かもしれない。
0121nobodyさん
02/10/18 23:56ID:Ts+deQMHどんな原因が考えられるでしょうか？
まったく見当がつかなくて困っています。
おながいします。
0122nobodyさん
02/10/19 00:00ID:???・CGIが使えない設定
・Perlやシェルの場合のパス違い
・パーミションの実行権なし
・アップロード時の文字コードまたは改行の設定ミスあるいはバイナリモードでアップした
0124デフォルトの名無しさん
02/10/19 00:45ID:???0125nobodyさん
02/10/19 00:53ID:SecGkhKpどう書けばイイですか？
0126121
02/10/19 01:17ID:???べんきょうになりますた。
>>124
すっげー根詰めてやってたから、和んだ（ｗ
メールアドレスの@が犯人でした
ありがとうございました
0127rubyist＠カラアゲうまうま
02/10/19 09:13ID:???糞言語に相応しい糞なやりとりだな。
0128デフォルトの名無しさん
02/10/19 09:36ID:???あんたさあ、糞言語の糞スレなんか読んでないで、
rubyスレでまともな発言したらぁ
0129nobodyさん
02/10/19 09:51ID:???()で変数にしたい部分を囲む。
したら$1という変数に勝手に入る。
正規表現のとこに書いてあるだろ。
0130名無しさん＠カラアゲうまうま
02/10/19 15:26ID:5SBDqdQD0132nobodyさん
02/10/19 15:31ID:???perlと格闘してますがぁ、
^Mがどうしても消せません！！！！！！！！！！！！！！！
^Mがどうしても消せないのです！！！！！！！！！！！！！！！
chompやchopでは
^Mがどうしても消せません！！！！！！！！！！！！！！！
どうやって消すのでしょうか？
0134nobodyさん
02/10/19 16:05ID:???perl -e 'BEGIN{}' -p ファイル名 引数
みたいに、-e 、-pを共存してかけますか？
0135nobodyさん
02/10/19 16:38ID:???できますか？
perldoc perlstyle
perldoc.jpなどに日本語訳あり
>>134
こういうこと？
perl -pe "..." file1 file2 ...
>>135
出来るけど、ブロックだと何か困ることでも？
f() while EXPR;
0137135
02/10/19 17:01ID:???あっ、そうだった・・・
質問間違えてた。EXPRが真なら処理A（ループ含む）をし、偽なら処理B（ループ含まない）なんてことできますかね？
べつにブロック使って困ることはありませんが、できそうになかったので敢えて質問してみました。
処理を関数にすれば、普通にifなり三項演算子なり使えば問題なさそうだけど。
sub A
{
ループする処理
}
sub B
{
ループしない処理
}
if(EXPR){
A()
}else{
B()
}
0141nobodyさん
02/10/19 17:55ID:M9PYtBQykiseiという配列があって、その中には数字のみのデータが入っているのですが
（こんな感じに→ @kisei=(256, 512, 4444); ）
$idという変数にも何か数字が入っているとして、$idが@kiseiに含まれているかどうか
調べる為にはどうすれば良いでしょう？
やはりforeachで配列を回して探さなければいけませんか？
0143通行人さん＠無名タレント
02/10/19 18:41ID:???ハッシュかな、、、、簡単にプログラムするなら
0144１３４
02/10/19 18:42ID:???-peではまとまって書かなければならないですよね。
そうではなくて、
-p hoge.pl
のhoge.pl内の変数に対し、
-e 'BEGIN{}'
で初期値の設定がしたいのです。
0145nobodyさん
02/10/19 19:04ID:???"─"
を含む行を消す時ってsedだと
sed /─/d
のように短く出来るけど、perlだと結構冗長にならない？
0147141
02/10/19 19:17ID:M9PYtBQyまじで？
0148nobodyさん
02/10/19 19:18ID:???perl -ibak -ne "print unless /―/"って感じかな？
sedみたいに特化してないから、仕方ないと思うけど。
0153デフォルトの名無しさん
02/10/19 20:38ID:???もっとまとめて簡潔に質問してください。
grep $id, @kisei;
rubykitchさんを調べてるのですか？
0155nobodyさん
02/10/20 07:05ID:???URLに使える文字以外をエスケープしようと思うのですが
下記のようにすると、記号の前に\が入ったりします。
(http://hogehoge.com/\~xxx/)
どうしたらいいでしょうか？
s|([^\w\[\];/\?:@&=\+$,-\.!~\*'\(\)])|'%'.unpack('H2',$1)|eg;
0156デフォルトの名無しさん
02/10/20 11:15ID:???rubykitchのidは、正規表現ラッパーになってると
聞いてるが、何か？
0157nobodyさん
02/10/20 21:52ID:???0158nobodyさん
02/10/20 23:20ID:S0+M+/Ux$total 全体
$A 求めるもの
$percent パーセント
おながいします。
0160nobodyさん
02/10/20 23:56ID:???0161nobodyさん
02/10/21 00:02ID:???0162nobodyさん
02/10/21 00:15ID:???$pai 円周率。
おなかしいます。
0163nobodyさん
02/10/21 00:18ID:???0164nobodyさん
02/10/21 00:30ID:???perldoc て日本語訳ありますこ？
0165nobodyさん
02/10/21 00:34ID:???0166nobodyさん
02/10/21 00:49ID:???http://perldoc.jpで日本語化が進行中
0168nobodyさん
02/10/21 15:22ID:???リファレンスの使い方は一応わかったんですけど、どんな時に使うのかがわかりません。
0169nobodyさん
02/10/21 16:08ID:???ちょっと高度なことをするとき。
よく使う場合はねぇ、
配列引数をサブルーティンに複数渡すとき、
多元配列を扱うとき、
ハッシュ変数にアクセスするとき、
だやね。
0170nobodyさん
02/10/21 16:34ID:???0171nobodyさん
02/10/21 16:47ID:???そのまま何も変えないで使うとデータファイルはaska.logです。
で、このlogファイルは投稿内容や暗号化された削除キーなどが記録されています。
そのlogファイルをブラウザからアクセスすると容易に閲覧できます。
投稿内容だけならともかく、投稿者のホスト名や暗号化された削除キーが載っています。
これはセキュリティ的に危険だと思うんですがこんなんでいいんでしょうか。
管理者以外にlogファイルを見られなくする方法は.cgiファイルにすれば見れないと
前に知りましたがこの方法が一番簡単なんでしょうか。
0173nobodyさん
02/10/21 17:23ID:nGDYlndqCGIで
パスワードを入力してボタンを押す
↓
パスワードが合ってるか？ →エラーの為のHTML出力
↓(YES) (NO)
管理人しか見れない様なHTML出力
という風に同一ＣＧＩ内でパスワードの処理をしたいんです。
んで、
<form action=\"$URL\" method=\"POST\">\n
<input type=\"hidden\" name=\"mode\" value=\"admin\">\n
<input type=\"password\" name=\"pass\" size=\"8\">\n
<input type=\"submit\" value=\"管理用\"></form>
というのを出力してみたのですが、
ここからパスワードを取得して、比べる→その結果によって出力っていうのがどうやったら良いのかわかりません。
どなかたご教授お願いします。
分からなければCGI.pmとかcgi-lib.plでも使え。
・分岐は if を使う。
・出力は print を使う。
0175173
02/10/21 17:30ID:nGDYlndqやってみます。
ありがとうございました。
■ このスレッドは過去ログ倉庫に格納されています