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

【Perl】初心者コーナー Part14

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

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

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

CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【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あたりを見よう。
0067nobodyさん02/07/19 23:13ID:???
逆切れﾓﾝｷｰｷﾀ━(・∀・)━!!
0068nobodyさん02/07/19 23:17ID:???
>>66 激しく同意。コテハンほどウザイものは居ないと思う。
0069nobodyさん02/07/19 23:44ID:???
屁タレ名無しｷﾀ━(・∀・)━!!
0070nobodyさん02/07/19 23:45ID:???
>>69 必死だな(w
0071nobodyさん02/07/19 23:48ID:???
しかも粘着＆自作自演ｷﾀ━(・∀・)━!!
0072nobodyさん02/07/20 09:57ID:???
おまえらIDだそうぜ？ｗ
0073nobodyさん02/07/20 12:25ID:???
>>72
自作自演がばれるので無理ですｗ
0074nobodyさん02/07/20 14:41ID:7+IMl9AX
ここで質問していいのでしょうか？
どなたかおしえてください
http://music.2ch.net/test/read.cgi/msaloon/1011182085/25-26
0075nobodyさん02/07/20 14:57ID:???
>>74
P554 で始まるトリップが欲しいの？
0076nobodyさん02/07/20 15:02ID:NCN+JAmc
リファレンスを使うと何がいいんですか?
0077 ◆P554yc3s 02/07/20 15:04ID:???
＞７５
いやちがいます
これってトリップ解読プログラムらしいんです

でもこれって無限ループさせてＲＮＤとかつかってランダムに６桁を選んで調べているんです
だからそれをaaaaaa-zzzzzzまで順番に一通り検索したいなとおもったんです
aaaaaaのトリップがそれなんです＞ＰＰ
0078 ◆P5542316 02/07/20 15:08ID:???
一通りって、何日（何十日？）もかかるよ。
0079nobodyさん02/07/20 15:11ID:???
とりあえず落ち着け
解析ソフト使えばブルートも出来るだろ
0080７４02/07/20 15:14ID:???
>>78
半角英語２６文字だけですからそんなにかからないはずです
ためしに４文字でやってみたのですが１０分もかからかなったです
でもＲＮＤってことは重複をやっているわけで６文字aaaaaaだと解析できなかったんです
（重複の解がいくつもでてくる）

＞７９
そんなのあるんですか？＞解析ソフト
0081７４ ◆Nb6Ma0MY 02/07/20 15:20ID:???
やりたいことは
Ｑ、このトリップあててみろ（ヒントは英半角４文字
って言う解をゲットしたいんです　これだったらそのプログラムに
Nb6Ma0Mっていれると１分かからず解析できます
0082 ◆P5542316 02/07/20 15:25ID:???
たんじゅんに２６文字の８乗で208827064576種類になり、
だいたい秒速で１００００個解析できるとして20882706.4576秒かかる。
つまり、約５８００時間（２４１日）はかかるだろう。

・１００００個解析と書いたのは、わたしのマシンで最近Ｐｅｒｌスクリプトで
解析した時の速度です。
・ちなみに同じマシンにて解析ソフトをつかったところ、約半分の４５００個
解析でした。
・わたしのマシン スペック＝ ＣＰＵ：MMX Pentium233: メモリ６４Ｍ
0083７４ ◆Nb6Ma0MY 02/07/20 15:38ID:???
>>82
そんなかかりますか。。。。。（汗
計算しました。６文字までだったら８Ｈほどなので現実的です。
実際にプログラムは６文字用です。
やり方教えてもらえませんでしょうか？
0084７４ ◆Nb6Ma0MY 02/07/20 15:44ID:???
>>82
＞７９さんも書いていますが
この"解析ソフト"ってのは既にあるんですか？
0085Dream☆こそ真の上級者02/07/20 15:51ID:???
Dream★こそ真の上級者
0086 ◆P554yc3s 02/07/20 16:03ID:???
>>84
解析ソフトなら検索すればすぐにヒットするよ。
今、６文字のやつ作ってみたけど>>85が居るから見せるのに迷うな。
008774 ◆fS5h1Nbo 02/07/20 16:08ID:???
ぷぷっ
できないなら初めからそう言ってください。
だれも貴方に期待してませんから。
0088７４ ◆Nb6Ma0MY 02/07/20 16:09ID:???
なんですかドリームってのは（＝８７）ですか？
＞８６
見知らぬ国のってやつですか？＞ソフト
それならもってます
0089 ◆P554yc3s 02/07/20 16:14ID:???
>>88
それもってるのになんか不満なの？ 処理が遅いから？
>>87はコテハン嫌いのガラクタです。
0090nobodyさん02/07/20 16:14ID:???
コテハンは低スキルな馬鹿ばっか
0091７４ ◆nbuTfS9c 02/07/20 16:17ID:???
>>89
あれはパスワードをピンポイントであてることは出来ないじゃないですか？
似たようなのはさがせますが　
（もしかしてできるのですか？）
たとえばこれなんて２文字ですがとりっぱーじゃ探せないですよね？
0092７４ ◆AQeVTHLI 02/07/20 16:19ID:???
もういいです。
このスレッドのヒトは馬鹿ばっかりですね。
0093nobodyさん02/07/20 16:21ID:???
#　のあとに全角文字とかも入れられたよな。
0094nobodyさん02/07/20 16:24ID:???
>>91
理論上は可能。何日かかるかは知らんが。
0095７４ ◆nbuTfS9c 02/07/20 16:26ID:???
>>94
それはわかりますが、４文字くらいまでなら即効で分かりたいのです。
今気づきましたが>>82さんってﾄﾘｯﾌﾟ違ったんですね
0096７４ ◆nbuTfS9c 02/07/20 16:44ID:???
>>86
そろそろおねがいします
ここがだめなら例のｽﾚにかいてください
0097nobodyさん02/07/20 16:46ID:???
無理無理(w
0098nobodyさん02/07/20 16:55ID:???
ほら見ろ(ww
0099７４ ◆nbuTfS9c 02/07/20 17:24ID:???
あらしさんが消えたらＵＰってくださいお願いします
0100　 ◆uqiOV5h6 02/07/20 17:26ID:???
こういうのとかはとれるの？

#全角文字
0101nobodyさん02/07/20 20:29ID:???
http://www.xxxx.com と　http://xxx.com
の　www　がつくかつかないの法則性ってあるのでしょうか。
0102nobodyさん02/07/20 21:01ID:???
質問です
@unko=(4487,8456454,4544,945452,85,754);
@manko=sort @unko;
print "@manko[0..5]";
じゃ数字のソートにならなないです教えてください
ネタじゃないです
0103nobodyさん02/07/20 21:05ID:???
@obakana=sort{$a <=> $b}@hennsuumei;
0104７４ ◆nbuTfS9c 02/07/20 21:36ID:???
>>86さん　
いなくなってしまったのですか？　ﾜｰﾝ
おしえてくださいよー
0105nobodyさん02/07/20 21:56ID:???
トリップ解析がなぜperlなのかまず説明せよ
0106nobodyさん02/07/20 22:07ID:???
>>105
るせんだよ　CでもPascalでも良いから
さっさとコードだせや　このﾎﾞﾝｸﾗ糞厨が！！！
0107nobodyさん02/07/20 22:20ID:???
漏れがPascal知らない理由をまず説明せよ
0108nobodyさん02/07/20 23:08ID:???
>>106の削除依頼出してきました、、
っていうかじゃま。ここはPerlコンテストスレじゃないから、、
スレ立てれば？たぶんコテに荒らされるとは思うけど、、
0109nobodyさん02/07/20 23:46ID:???
procedure trip(a :String)
begin
println('解析しました');
end;
0110（笑いが止まらない）02/07/21 00:11ID:???
な、やっぱり86は逃げただろ？
所詮コテハンで書く奴なんてそんなもの。クズばっか
0111nobodyさん02/07/21 00:14ID:???
>>110
必死だなｗ
0112藁藁藁02/07/21 00:16ID:???
>>11 即レス必死だな。
0113nobodyさん02/07/21 00:17ID:???
>>112
どうでもいいが落ち着いてレスしな。
怒りで打ち震えているのはわかるが・・・。
0114nobodyさん02/07/21 00:20ID:???
歴代コテハンはクズばっか
クズばっか
ばかばっか
ばっか
0115nobodyさん02/07/21 00:21ID:???
>>114
お、壊れた壊れた♪
0116nobodyさん02/07/21 00:23ID:N7aMXnNp
2chでコテハンで書く奴は自意識過剰なDQN決定
オマケに低スキルとくるから害以外の何者でもないね
救\ﾂﾏ2耐2耐2・ 8対2鎗 !打2蔵 9体2銑<替2蔵 8繕2其>唾2耐2惰2耐3唾2俗 !詑2・4対2陀<9対2陀<8・2然ichﾏ2・ PE L ｢;・ ・ P
p bｮ `
@ ﾐ WI |
ﾈ ・ : `
0117nobodyさん02/07/21 00:23ID:???
Perl文法的にみて「このスクリプトの組み方はいい」というスクリプトの配布サイトを教えてください。
0118nobodyさん02/07/21 00:24ID:???
俺持ってるよ
0fillと左寄せで総当りする奴
CでufcCrypt使ってるから、perlの倍近く速い
0119nobodyさん02/07/21 00:45ID:???
>>117
Perlは文法的に破綻していると考えるのは俺だけか？
俺だけか・・・。
0120nobodyさん02/07/21 05:26ID:???
>>106

$i = 1;

while(1){
kill ">>106";
if(die ">>106"){last;}

$i ++;
}

print $i, "回の殺害で、>>106は氏にました";
0121nobodyさん02/07/21 07:14ID:???
ホント厨房だらけだな。
012274 ◆AQeVTHLI 02/07/21 09:42ID:???
86さんは私を裏切ったのですね。
恨みます。
0123nobodyさん02/07/21 09:56ID:v1h8+7/c
てうｓｔ
0124nobodyさん02/07/21 16:16ID:XUtCuljQ
掲示板を書いているのですが書き込んだ内容をファイルに記録すると
スクリプトのソースがファイルに記録されてしまうのですがどこが
おかしいのか教えてください。
ソースはこれです。
ttp://zor007.netfirms.com/files/159.txt
0125nobodyさん02/07/21 16:19ID:???
>>124
はじめ４行しか読んでないが。

$logの代わりに$reload開いてそれを$logに書き戻してないか？
0126７４ ◆nbuTfS9c 02/07/21 16:23ID:???
＞７４です
ガーンまだ教えてもらえないのね
0127nobodyさん02/07/21 16:27ID:???
>>74
この板の奴は口先だけ。
偉そうな口だけ一人前だから何も期待するな。
0128nobodyさん02/07/21 16:40ID:???
>>106
2chで使われているトリップのコードを元にしたやつね。

$hoge = '検索したいトリップ';
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
print "◆$trip : #$i\n" if ($trip =~ /$ARGV[0]/io);
}

数字のみしか解析できないからあとは適当に改良してな。
0129nobodyさん02/07/21 16:42ID:???
>>128
ミスった。$ARGV[0]→$hoge な
013012402/07/21 16:56ID:XUtCuljQ
ファイルに保存される内容はスクリプトの内容そのままではなくて
ＰＯＳＴした内容の後ろにソースが付くのですが、、、原因がさっぱり
です(´･ω･｀)
0131んじゃCで02/07/21 16:58ID:???
>>106
ボーランドのC++コンパイラで

#include <stdio.h>

int main(void)
{
while(1)
printf("\t\b\b");
}
をコンパイル。これCのコードね
んで.exe実行。で解析ファイルがでる。
かんばれ
0132nobodyさん02/07/21 16:59ID:???
>>131
確かNTのコンソール落ちるんだっけか？
0133コギャルとHな出会い02/07/21 17:08ID:8IhQDrIi
http://go.iclub.to/ddiooc/
　　　　　
　　　　　i/j/ez/対応です

お役立ちリンク集
必ず役立ちます

　サイト管理者お役立ち集
　　　　1日4000ＨＩＴ以上
↓
http://kado7.ug.to/wowo/
　　　　　　
　　　　　i/j/ez/対応
　　　　
　　　コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便

　　　　　　　　　↓
　　 http://kado7.ug.to/wowo/-a.htm
　　　　
　　　　　　　i/j/ez/対応
0134nobodyさん02/07/21 17:29ID:???
>>132
俺がやったときは（バッチファイルで）再起動したよ。
そのあと、動作が不安定になって、再インストール。
0135nobodyさん02/07/21 17:33ID:???
>>65
遅れましたがレスありあり。

DProfと言葉遣いを勉強してきます。
0136.02/07/21 19:03ID:uxGaIo9z
Devel-DProfがインストールできません。
PPMで

Error installing package 'Devel-DProf': Could not locate a PPD file for package
Devel-DProf

などというエラーが出ます。
助けてください。
0137 ◆JAPH9PWA 02/07/21 19:13ID:???
>>136
Perlのバージョンは？
perl5.6以上なら標準で入ってるけど、
そうでなければ自分でビルドするしかないかもね。
0138.02/07/21 19:13ID:???
>>136
自己解決しました。「Devel-Profiler」って名前だったのねん。
0139nobodyさん02/07/21 19:26ID:???
>>124
use strict 使うか -cw でチェックしたりした？

掲示板の表示
sub Output{
my $message,$titel,$name,$mail,$reload,$color,$log,$check;
　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　ちょっとしか読んでないけどtypoﾊｹﾝ
014012402/07/21 19:27ID:XUtCuljQ
いろいろ考えてみたんですがどうやらこの中がおかしいみたいなんですが
どこかおかしいところあるでしょうか？
sub File_write_read{
my $log,$addlog,$check_string;
my @logs;

$log = $_[0];
$check_string = $_[1];
$addlog = $_[2];

if(!open(ADD,"+<$log")){
return 0;
}
else{
flock(ADD,2);

if($check_string == 1){
@logs = <ADD>;
}
elsif($check_string == 2){
print ADD "$addlog";
@logs = <ADD>;
}
flock(ADD,8);
close(ADD);
return @logs;
}
}
0141nobodyさん02/07/21 20:14ID:???
exit(0);とexit(1);の違いを教えてください
0142nobodyさん02/07/21 20:53ID:???
>>141
0を返すか1を返すか。
0143nobodyさん02/07/21 20:54ID:???
返す値が違うと何が変わるんですか？
0144nobodyさん02/07/21 21:26ID:smidQHj9
>>128
これって半角英語入れられないですよね？

$hoge = '検索したいトリップ';
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
print "◆$trip : #$i\n" if ($trip =~ /$hoge/io);
}

forのところaからzっていれても駄目だし
どうすればいいんだろう
014512402/07/21 21:28ID:XUtCuljQ
>139
ありがとうございます
一応解決しましたが、、、
いろいろ試してみた結果windows上のapache2の上ではソースが
保存用ファイルにソースまで書き込まれてしまいおかしいなと思って
ＬＩＮＵＸ上のapache2で試してみたらちゃんと書き込みできましたこれってapacheのバグ！？
0146nobodyさん02/07/21 21:28ID:???
>>144
ほんとにPerl書けるんですか？
0147１２４02/07/21 21:33ID:XUtCuljQ
＞１４６
つい最近書き始めたばっかり
でもこのソースでLINUX上ではちゃんと動いた、、、
0148１２４02/07/21 21:34ID:XUtCuljQ
↑
俺へのレスじゃなかったのか間違えた鬱だ死のう
0149nobodyさん02/07/21 21:40ID:???
>>148
二度とくるな、
お前の頭がバグってる。
初級ネットにPerlスレあるからいってらっしゃい。
0150nobodyさん02/07/21 21:44ID:???
ｒｇｋｌｔぐｖｂｙｄｆｊぎｒんちｙｔｂｇｒふえいｈげｒ７８おｔｇ６７れｔｇ６７ｔれ７８ｇへれるｇれｈｒｈｔ
コテハンは糞
0151nobodyさん02/07/21 21:47ID:???
>>150
お前の挙げた条件はすべて満たしているが？
絶対にないとかほざくからそう言う恥ずかしいことになる。
0152nobodyさん02/07/21 21:49ID:???
151には何か別のものが見えるらしい。こわっ
0153nobodyさん02/07/21 21:56ID:smidQHj9
>>146
かけません。だから聞いているんです
お願いします
0154nobodyさん02/07/21 22:00ID:???
>>153
それよりさ
http://music.2ch.net/test/read.cgi/msaloon/1011182085/
なんでここからあなたがとんでくるわけ？
煽ってんじゃなくて理由がしりたい。
なんでいきなりPerlコードが書かれるのよ。
Ｄｒｅａｍが何者？とかいうよりあなたが何者？
0155そこの住人だから02/07/21 22:05ID:???
>>154
たまたま見つけたから。
知りたいんです。
0156nobodyさん02/07/21 22:13ID:???
>>149
お前も来るな！
何エラぶってのよ！
ｳﾞｧｰｰｰｶ
0157nobodyさん02/07/21 22:13ID:???
>>156が頭にエラーがある何よりの証拠だな。
0158nobodyさん02/07/21 22:21ID:???
>>157
頭にエラーって何でしょう？
脳の事いっているの？
プログラムより日本語勉強したら？
0159な〜つはス〜ぎ〜雨上が〜り02/07/21 23:11ID:???
┌─────────┐
│ 　 　 　 　 　 　 　 　　 ｜
│ . キ違い警報発令 !　│
│ 　 　 　 　 　 　 　 　　 ｜
└―――──――――┘
　　　　ヽ(´ー｀)ﾉ
　　 　 　 (　 へ)
　 　 　 　 く
0160nobodyさん02/07/21 23:52ID:???
foreach (@file){
@link=split/<>/;
if($link[0] eq "hoge"){
$hoge="$link[2]";
}
foreach($hoge){
@next=split/\t/;
print "$next[0]";
.....
}
と処理したいんですが、
どうも
foreach($hoge){
だと処理ができません。
こうしたい場合はいったいどうすれば宜しいのでしょうか？
0161nobodyさん02/07/22 00:02ID:???
@next= split(/\t/, $hoge);
0162nobodyさん02/07/22 00:04ID:WiTDQmMb
>>160
[書式]
foreach 変数(配列){
 処理
}
016316002/07/22 00:45ID:???
すみません。間に合わせで解決しました。
0164nobodyさん02/07/22 01:17ID:???
>>163　もう二度と来るなよ
0165nobodyさん02/07/22 01:22ID:???
>>164
良かったね。と言ってやるのが大人の対応です。
0166ひろゆ子＆diams;HRUNYAXA02/07/22 02:06ID:???
jjjjjjjjjj
■ このスレッドは過去ログ倉庫に格納されています