Perl 初心者コーナー Part22
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/04/15 10:15ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
参考書籍の話題は、【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0232226
03/04/22 00:11ID:yfHpFKfLできました！
うわーい！うわーい！
ありがとうございます！
「もし<DT>...</A>に当てはまるなら」という具合で、ずっとif文に縛られて
いました・・・。すみません。でも勉強になりました！
ああ、我知らず、熱い涙が押し出されてきよる・・・(滂沱の涙)。
>>231
最初はブラウザのブックマークからURLとタイトルを抜き出すという課題を自
分に課したのです。それがうまくいって一息ついたときに、「こうするとど
うなるんだろう？」と思い付いてしまったのでした。
ゆるせよ(遠山の金さん)。
0233nobodyさん
03/04/22 01:59ID:8UmhU43Lどうすれば良いですか？
0235nobodyさん
03/04/22 04:41ID:Jj2tlT0c$rootdir = "\\newfolder";
$workdir = "\\newfolder";
if ($rootdir == $workdir) {
print "OK\n"; # 表示されます
}
if ($workdir !~ m#$rootdir#i) {
print "NG\n"; # 表示されます・・・
}
これはなぜ NG が表示されるのでしょうか？
環境は、PERL 5.6.1 を Win2000 のコマンドプロンプトで動かしています。
よろしくおねがいします。
0236nobodyさん
03/04/22 06:26ID:???# 「\newfolder」という文字列
$rootdir = "\\newfolder";
$workdir = "\\newfolder";
# 正規表現は /\newfolder/ =「[改行]ewfolder」
# 「\newfolder」という文字列は「[改行]ewfolder」にマッチしない。
if ($workdir !~ /$rootdir/) { print "NG\n" }
# 本当に改行になってしまっているか確認
$workdir = "\n" . 'ewfolder';
if ($workdir =~ /$rootdir/) { print "OK\n" }
# 対策1
$workdir = "\\newfolder";
if ($workdir =~ /\Q$rootdir\E/) { print "OK\n" }
# 対策2
$rootdir = quotemeta($rootdir);
if ($workdir =~ /$rootdir/) { print "OK\n" }
0237nobodyさん
03/04/22 07:25ID:???$rootdir = "\\newfolder";
print ">$rootdir<\n";
結果
>\newfolder<(改行)
なぜここでは $rootdir の先頭の \n が改行に展開されないのでしょうか？
と、もう一つ質問を書いたら多分分かりました。正規表現じゃないからですね
どうもありがとうございました
うーんややこしい・・・
0239nobodyさん
03/04/22 12:15ID:???ある書式にフォーマットして出力したいんですけど
なぜかエラー５００がでます。
何か一般的な原因があれば教えて
0245nobodyさん
03/04/23 00:26ID:???作成しようと思ったのだが、全くの初心者のため
paerl自体の実行が失敗している。
誰かなんとかしてくれ。
0246nobodyさん
03/04/23 00:27ID:???qq/ / => 変数展開とエスケープされた文字の復活を同時に行う
正規表現担当の部分は、エスケープされた文字を元に戻してから処理する。
$pattern = '\\n_hoge';
($pattern は \n_hoge)
print "$pattern\n";
print "match!\n" if $pattern =~ /^$pattern$/;
正規表現中と、ダブルクオートの中身は、展開の仕方が違うということ。
0247nobodyさん
03/04/23 00:33ID:???cgiのパスワードの逆変換って、できるんですかー？
スクリプトはあります。変換後のワードもあります。
おねがいします。
0248nobodyさん
03/04/23 00:35ID:???0250nobodyさん
03/04/23 00:39ID:???crypt関数のdecrypt基本的に無理
仕様的には、Desはdecrypt出来るんだがperlでは出来な威実装をしてある。
あと、MD5は絶対できないといった感じ
0254nobodyさん
03/04/23 00:49ID:???元に戻す方法ある？
0257247
03/04/23 00:51ID:???まともに答えてくれたからサンクス。
１３金・・・古！！！
0258nobodyさん
03/04/23 00:57ID:???0262nobodyさん
03/04/23 07:06ID:???方法がさっぱりわかりません。
ヒントでいいんでわかりやすく教えてください。
お願いいたします。
0263nobodyさん
03/04/23 07:40ID:???ttp://member.nifty.ne.jp/hippo2000/perltips/LWP.html#An_Example
0264nobodyさん
03/04/23 08:58ID:???0268nobodyさん
03/04/23 16:32ID:???今、Perlのｺﾒﾝﾄ部分を削除するｽｸﾘﾌﾟﾄを組んでるんですが、
#から始まる文字を削る事はできるのですが、
$#演算子まで削られてしまいます。
$len =~ s/((\$#)*.*)#.*$/$1/g;
・・・と、こんな事もしてみたのですが、ダメでした・・・
どんな風に表現すれば、$#を削らずに行けるでしょうか？
よろしくお願いします。
0269nobodyさん
03/04/23 17:12ID:???while(<PERLFILE>){
if($_ =~ /^#/){ $_ = ''; }
#出力処理
}
じゃ駄目ですか？
0270nobodyさん
03/04/23 17:14ID:???$len = <<'EOL';
my @array = ('a' ,'b', 'c'); # コメント1
print STDOUT @array if $#array > 1; # コメント2
# push(@array, 'ぬるぽ');
EOL
$len =~ s/(?<!\$)#.*//gm;
print STDOUT $len;
# ----出力結果----
my @array = ('a' ,'b', 'c');
print STDOUT @array if $#array > 1;
# ----出力結果----
0272nobodyさん
03/04/23 17:43ID:???>>270
>>271
お答えいただきありがとうございます。
正常に動くようになりました・・・が、
(?<・・・）←これってなんですか？？？
(?=・・・) とか (?!・・・) とかなら分かるのですが・・・
本にも載ってない・・・
よろしければ、お答えを・・・
0273272
03/04/23 18:41ID:???しかし・・・ラクダ本にも載ってなかった・・・
なぜ？？？探し方が悪かったのかな・・・？？？
とにかく、ありがとうございました。
0274nobodyさん
03/04/23 18:51ID:???最弱者である自分には甘いの？
0276nobodyさん
03/04/23 18:56ID:???0278nobodyさん
03/04/23 19:26ID:???web掲示板のパスワードを総当たりで調べていくスクリプトが欲しいです。
持っている方、もしくは落ちている場所を教えてください。
但し難しいスクリプトは却下ですので、簡単で直感的に使えるもののみに限定させて頂きます。
0279nobodyさん
03/04/23 19:35ID:???0282nobodyさん
03/04/23 20:19ID:???＞ウイルス、ハッキング・クラッキングを求めるような発言は禁止です。
ってのがあるんだから、WebProg板にもこんな感じのルールがあってもいいんじゃないか。
と言ってみるﾁｪｽﾄ
0283nobodyさん
03/04/23 20:23ID:???0284nobodyさん
03/04/23 22:25ID:???以下のような感じであったとします。
while($form{"k$no"}){
${"party_2$party[$no]"}{'数字'};
$no ++;
}
余計な記述が含まれてますが、見るところは$noが一つづつ増えていって、
んで数字が一つづつ順番に返って来る所です。
で、数字を多いほうから少ないほうへと順番に並べたいわけなのですが…
$no = 1;
${"party_2$party[$no]"}{'数字'} = 2;
$no = 2;
${"party_2$party[$no]"}{'数字'} = 5;
$no = 3;
${"party_2$party[$no]"}{'数字'} = 4;
上記の場合、$noが2、3、1の順番で大きいわけですよね。
この時の$noの番号を出したいんです。
つまり、結果としては
$aaa[0] = 2;
$aaa[1] = 3;
$aaa[2] = 1;
みたいな感じでソートしたいのです。
どうすればよろしいでしょうか？
0285動画直リン
03/04/23 22:29ID:wyYrHR5Q0286nobodyさん
03/04/23 23:02ID:???${"party_2$party[$no]"}{'数字'};
ここは
$party_2{"$party[$no]"}{'数字'};
こうした方がいいかも。
ともあれ、
foreach( sort{${"party_2$party[$b]"}{'数字'} <=> ${"party_2$party[$a]"}{'数字'}} (1 .. 3) ){
push(@aaa,$_);
}
ってとこかな？
0287284
03/04/23 23:16ID:???にゅっぱ〜ん。
ありがとでした。
って言うか、微妙に意味が分からん所があったので
どーなってんのかちゃんと考えてから使わせてもらおうかと思います。
0288272
03/04/24 02:08ID:???先ほど、ｺﾒﾝﾄを削除する正規表現の質問した者です。
で、ｺﾒﾝﾄ削除するｽｸﾘﾌﾟﾄ完成しました。
まぁ、それなり使えそうです。
見てやってください。
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/996.lzh
↑からどぞ。
ここから、誰か拡張とかできればお願いします。
で、よかったらアップしていただければ・・・
それ見て、勉強させてもらいたいと思います。
0289動画直リン
03/04/24 02:29ID:vV02vP1k0290nobodyさん
03/04/24 02:49ID:???プログラミング Perl 改訂版は 5.002 辺りの解説書。
(?<=) (前方参照) が実装されたのは 5.005 。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perldelta.html
第3版 (2分冊になった最新の駱駝本) なら載ってるんじゃないかな?
0291272
03/04/24 02:53ID:???ﾏｼﾞっすか！
俺の持ってるラクダ本、もう古いの？？？
5000円ちょっともしたのに・・・
第2版って書いてる・・・って事は、
俺の知識はPerl5.003くらいかな・・・。
またラクダ本買うなんて、なんだか罠にはまった感じが・・・
教えてくれて、ありがとうございました。
0293nobodyさん
03/04/24 03:17ID:???忘れてた
ttp://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/997.lzh
0294nobodyさん
03/04/24 03:45ID:???そーゆーのはこっちに。
http://pc2.2ch.net/test/read.cgi/php/1049514428/
0295272
03/04/24 04:24ID:???これは失礼しました。。。
誘導、ありがとうございます。
でも、誘導先も、自作CGIですね。
・・・でも、ここよりかは、少しは近いかも・・・
って事で、移動します。
誰かすごい改造してくれないかな・・・。
0296nobodyさん
03/04/24 07:02ID:???0297nobodyさん
03/04/24 11:19ID:???srand();
@salts = ("A".."Z", "a".."z", "0".."9", ".", "/");
$salt = $salts[int(rand(64))] . $salts[int(rand(64))];
$epasswd = crypt($password, $salt);
と処理しごく普通に文字列を暗号化した後
if (crypt($password, $epasswd) eq $epasswd)
で識別するのですが、入力された暗号化前の文字列の始め4文字辺りまで入力すると
移行何も入力しない場合・適当な文字を入力した場合に照合OKとなってしまいます...
これは暗号化に不備があるのか、若しくは照合方法に問題があるのでしょうか
尚、動作環境は下記の通りです
Win98 + AnHTTPd 1.38c + ActivePerl 522
0298nobodyさん
03/04/24 11:34ID:???よくわからんけど
if (crypt($password, $epasswd) eq $epasswd)
は
if (crypt($password, substr($epasswd, 0, 2)) eq $epasswd)
じゃないか？
0299nobodyさん
03/04/24 11:37ID:???いや、わざわざ2文字切り取る必要はないよ。
（crypt関数側で先頭2文字以降を無視してくれるはず）
具体的にどんなパスワードがダメなのか教えて欲しい。
0300297
03/04/24 13:49ID:???例として "kakikukeko" としますと
"kakikuke"
まで入力された時点で照合OKの場合に用意している処理に流れてしまいます。
これ移行の文字列を入力しない場合も、あるいは何も入力しない場合でも
照合OKと認識されてしまいます
いろいろPerlで組んで見たいのですが、何回試みてみてもこの部分で引っかかってしまい
作業が一向に進まなくて困っております T_T
0301250
03/04/24 13:59ID:???確か、des方式だと文字列長の限界が有るはず
それが嫌ならMD5でやるのが正解なんだけど
それはOSに依存する
0304302
03/04/24 14:02ID:???・・・ってもしかして2バイト文字で4文字？
>>302は「おい！8バイトまでだ！」に訂正しますです。
0305297
03/04/24 14:24ID:???日本語で入力した場合で４文字って事でした
とはいえ、DESにて文字列の制限が存在するとは知らず
ずっと問答しておりましたのでマジ泣きしそうです...
どうも有難うございました！！
0306nobodyさん
03/04/24 15:42ID:???暗号前の文字列が8バイト以上になるんだったら、
強引に８バイトごとに切っちゃって別々に同じ種で暗号化して最後に繋げるとか。
0308nobodyさん
03/04/24 18:05ID:???無駄
0309250
03/04/24 18:08ID:???Win系の実装なら使えんが種値に $1$ を付けるだけで済む
0310nobodyさん
03/04/24 18:38ID:???0311nobodyさん
03/04/24 19:00ID:???0312オーディーン
03/04/25 00:02ID:8w/Lt+kfこれにリファラーチェックをつけて特定のページからでないと
表示できないようにしたいのですが。
たとえば『http://ike-ike.net/index1.htm』からでないと表示できないように
したのですが・・・
どの辺をいじったらいいのでしょうか？
ソースはこちら
http://www.ike-ike.net/bbsking.txt
アドバイスお願いします。(゜゜)(｡｡)ペコリ
0313nobodyさん
03/04/25 00:05ID:???↓の>>1を10回ほど読んでからどうぞ。
【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
0314nobodyさん
03/04/25 01:38ID:???マルチポストやめれ！
面前、 http://pc2.2ch.net/test/read.cgi/tech/1048519394/526 だろ？
＃それとも、単なるコピペの釣りか？
0316オーディーン
03/04/25 06:33ID:8w/Lt+kf【 スクリプト改造工房 PART 6 】
に移動しました。よろしく。
0317nobodyさん
03/04/25 06:52ID:???1000行あるファイルから途中の10行だけ取り出したい場合、
whileで目的の行まで読み込む
@でファイル全体を読み込んでから目的の行を取り出す
二つのうちどちらが負荷や処理スピードの面でいいのでしょうか？
あともし他にもやり方がある場合はそれも教えていただけるとありがたいです。
0318nobodyさん
03/04/25 07:04ID:???普通に考えて、whileで10行目を読むのが早いと思うが？
10行目を読んだら、それ以降は読まずﾙｰﾌﾟ抜ける事できるし。
配列で全部読んでたら、ﾒﾓﾘの無駄だし。
0319nobodyさん
03/04/25 07:28ID:Ai2lxSHs0320bloom
03/04/25 08:29ID:pCM0Odok0321nobodyさん
03/04/25 09:15ID:Ai2lxSHs0322nobodyさん
03/04/25 10:38ID:CjHipUDvforeach $value (keys %in){
$in{$value};
$in{$value}について、&;`'\"|*?~<>^()[]{}$があったら、すべて全角にする
}
の３行目って、どうやって組めばいいのでしょうか？
0324322
03/04/25 10:58ID:???ってことは、
foreach $value (keys %in){
$in{$value};
&jcode::tr(\$in{$value}, '&;`'\"|*?~<>^()[]{}$', '＆；｀’￥”｜＊？￣＜＞＾（）［］｛｝＄');
}
だけでOKってことですか？
0325nobodyさん
03/04/25 11:02ID:???テストするソースぐらいすぐ書けるでしょ。
0326322
03/04/25 13:10ID:???そりゃそうですね。しつれいしますた。
で、>>324 にでやったら
foreach $value (keys %in){
$in{$value};
&jcode::tr(\$in{$value}, '&;`'\"|*?~<>^()[]{}$', '＆；｀’￥”｜＊？￣＜＞＾（）［］｛｝＄');
}
Backslash found where operator expected at /foo/index2.cgi line 48, near "'&;'\"
[index2.cgi:48:warn] (Missing operator before \?)
理由は、'・・・・・'の中に、'を入れてたからなので、
\' とエスケープして↓のようにやったら、うまくいきました。
ありがとうございます。
foreach $value (keys %in){
&jcode::tr(\$in{$value}, '&;`\'\"|*?~<>^()[]{}$', '＆；｀’￥”｜＊？￣＜＞＾（）［］｛｝＄');
}
0327nobodyさん
03/04/25 13:43ID:???0328nobodyさん
03/04/25 14:56ID:???感動した！
0330nobodyさん
03/04/25 23:15ID:???qqにしたら、逆にダメになる単語が増えないか？
0331nobodyさん
03/04/26 00:49ID:???手癖でダブルクォート打ってまうし(´ヘ｀;)
■ このスレッドは過去ログ倉庫に格納されています