【Perl】初心者コーナー Part14

**nobodyさん** · 02/07/18 16:34

いらっしゃーい、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あたりを見よう。

**nobodyさん** · 02/07/18 16:34

[過去ログ]
Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10　http://pc.2ch.net/php/kako/1014/10145/1014556702.html
Part11　http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12　http://pc.2ch.net/test/read.cgi/php/1019917048/
Part13　http://pc.2ch.net/test/read.cgi/php/1022731565/

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

**nobodyさん** · 02/07/18 16:34

[総合]
　・Perl Com: http://www.perl.com/pub/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/

**nobodyさん** · 02/07/18 16:35

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module_/
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm

[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.html
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txt

[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/

**nobodyさん** · 02/07/18 16:35

【Perl】
http://pc.2ch.net/test/read.cgi/php/1026968140/l50

**nobodyさん** · 02/07/18 16:37

6get

**nobodyさん** · 02/07/18 16:44

もういいのかな？
とりあえず乙彼

**nobodyさん** · 02/07/18 16:45

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module_/
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm

[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.html
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txt

[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/

◆JAPH9PWA · 02/07/18 16:57

あー、そっか。終わったらそう書くべきだったね、ゴメン。

**nobodyさん** · 02/07/18 17:02

削除依頼提出済み

==終了==

**nobodyさん** · 02/07/18 17:24

foreachがわからなくて卒業できませんでした。
はぁ～。/Д`)

**nobodyさん** · 02/07/18 18:01

記念カキコ

**nobodyさん** · 02/07/18 18:34

パターンマッチがうまくいってないです。
同じ文法でデータベースを変えるとちゃんと走りやがります。
つらいです。

**nobodyさん** · 02/07/18 20:51

質問

フレーム形式のホームページで
２個のフレームのうちの一つに画像型CGIを埋め込む。
正しいreferereを取りたいんだがどうしたらいいですか？

envだとフレームのURLを、javascriptの手法を使用しても
フレームの呼び出し元のindexのURLをもってきてしまう。
indexにはjavascriptが使えないみたい。

**nobodyさん** · 02/07/18 21:10

document.referrer
の代わりに
parent.document.referrer
を使う。

jsね。

**nobodyさん** · 02/07/18 21:46

超初歩的な質問ですが、
Perlでコメントを書く場合に

# 【注意】******

の様にコメント行に【】や　●▲　などの記号類を使っても問題無いでしょうか？
記号を使う目的は、後から自分が見て見やすくするというだけの理由ですが・・・。

**nobodyさん** · 02/07/18 21:48

#　以降その行はコメントです。たとえバイナリデータが含まれていようと、

**nobodyさん** · 02/07/18 21:51

>>17

じゃあ使っていいわけですね。勉強になりました。

**nobodyさん** · 02/07/18 22:22

15>
ありがと

**nobodyさん** · 02/07/18 23:44

>>17
試せばわかることまで教えない。
初心者つぶしですか？

**nobodyさん** · 02/07/18 23:50

>>20
わりぃ。
今度から気をつけるよ。

**nobodyさん** · 02/07/19 02:59

変数に入れる内容を "" でくくる場合と、'' でくくる場合はどういう違いが有りますか？

例えば、
$hoge = '<img src="hoge.jpg">';
$hoge = "<img src=\"hoge.jpg\">";
に違いはあるんでしょうか？

**nobodyさん** · 02/07/19 03:02

全く無い！
気分で使い分けるのがツウ

**nobodyさん** · 02/07/19 03:11

>>23
さんきゅ

あと聞き忘れましたが、変数に数字を入れる場合、
""で囲む場合と、何も囲まずにダイレクトに入れている場合が有りますが
その違いはありますか？

例えば
$hoge = "10";
$hoge = 10; の様に

**うひ！** · 02/07/19 03:21

>>24　　礼は良いからPERLDOC読めよん
気分っつーか　" は変数展開される
print 'このビールは$5です';
print "このビールは$5です";
下はあなたの思った動作をしないはず

$hoge = 10はどっちでも良い
"10"なら文字列として10なら整数型として
その時々に都合良く解釈してくれる

**nobodyさん** · 02/07/19 03:29

>>25
そうだ、変数展開だった。
何かが違うと聞いてた覚えがあったんですけど思い出せなかった。

PERLDOC？

**nobodyさん** · 02/07/19 03:36

こう言う奴な
http://www.kt.rim.or.jp/~kbk/perl5.005/perlfaq7.html#Do_I_always_never_have_to_quote_

漏れのBMだから随分古いけどな　（ｳﾋ!

**パイの魅学園** · 02/07/19 03:41

,～（（((((((～～､
　(　＿（（（((((((＿　)
　|/　~^^＼)／^^~ ヽ|
　 |　　＿　《　＿　 |
　(|-(_//_)-(_//_)-|）
　　|　　　厶､　　　|　　　　／￣￣￣￣￣￣￣￣￣
　　＼　||||||||||||　／　　＜　サンプルを覗くのも・・・。
　　　＼_~~~~_／　　　　　＼＿＿＿＿＿＿＿＿＿
http://www.traffimagic.com/WIPE7MMLZCA/comein/FSJPN
無料で今日も”どっぴゅ～”　だっふんだぁ～

**nobodyさん** · 02/07/19 03:42

>>27
どうも。それ読んでみます。

**sleepy jaguar** · 02/07/19 05:34

超おすすめ無料メールマガジン（　´,_ゝ｀）
http://www.msleep.com/sleepy_jaguar/

Msleep
http://www.msleep.com/
（　´,_ゝ｀）（　´,_ゝ｀）（　´,_ゝ｀）（　´,_ゝ｀）

**nobodyさん** · 02/07/19 07:24

こんな風にしてもフォームからPOSTで送られたデータの取得はできるの？

%hash = &form;

sub form{
read STDIN, $form, $ENV{CONTENT_LENGTH};
@datas = split /[&;=]/, $form;
return(@datas);
}

**nobodyさん** · 02/07/19 07:27

>>31
試せよ。

**nobodyさん** · 02/07/19 07:31

わーいsleepy jaguarさんだ！
数字のソートはsort関数でできるんですか？

◆JAPH9PWA · 02/07/19 08:36

>>33
数字だろうが数値だろうがオブジェクトだろうがソートできるよ。

**nobodyさん** · 02/07/19 10:02

Perl5.8.0ｷﾀ━━━━━━━━━(・∀・)━━━━━━━━━!?

**nobodyさん** · 02/07/19 12:20

「あわわ◆JAPH9PWAたん３４ＧＥＴおめでたですゥ～＼(^o^)／（核爆）」

(・∀・)ｳｾﾛ!!

**nobodyさん** · 02/07/19 13:15

>31
なんでCGI.pmを使わないのかと小一時間問いつめたいのですが、
よろしいでしょうか。

**nobodyさん** · 02/07/19 13:24

>>37
なにを使う使わないというのは個人の自由だからオマエ程度が問い詰めることでもないだろ。

**nobodyさん** · 02/07/19 13:34

初歩的なこと教えて欲しいのですが

　　　if(条件式){　test1.cgi実行　}
　　　　　　else{　test2.cgi実行　}

上のように、条件分岐してcgiを実行したいのですが、どうすればよいのでしょうか？

<form>タグでaction=****.cgiとして、submitで実行しか思いつかないのですが・・・
厨房ですいません。

**nobodyさん** · 02/07/19 13:38

Locationで検索しれ

39 · 02/07/19 13:42

>>40
早速レスありがとうございます。検索してきました。

print "Location : ***.cgi \n\n";

こんな感じで、いいのですね
ありがとう！

**nobodyさん** · 02/07/19 13:47

掲示板の表示される名前の部分だけ色をかえたいのですが、どうずればよいのですか?

**nobodyさん** · 02/07/19 13:52

それはHTML関係だろ。
板、いや、スレ違い。

**42です** · 02/07/19 13:57

今、CGIで掲示板を作っているのですが。
表示される名前の部分の色を変えるにはCGIのなかを書き換えないといけないといわれたので・・・。

**nobodyさん** · 02/07/19 14:03

いくらPerlで掲示板作ってるからと言って、表示する部分はHTMLだろうが。

スクリプト改造工房 Part4
http://pc.2ch.net/test/read.cgi/php/1012839651/l50

**nobodyさん** · 02/07/19 15:35

つーかHTMLがわからなくてどうして掲示板作れるんだか

**42です** · 02/07/19 15:48

すいません、ご丁寧にありがとうございました。
逝ってきます。

39 · 02/07/19 16:19

すいません、また質問させてください。

フレーム使っていて、右のフレームでCGIを表示したい場合、

print "<form target=right>";
print "Location : ***.cgi \n\n";
print "</form>";

みたいにするしか、無いのでしょうか？
いろいろ調べたのですが分からなくて

**nobodyさん** · 02/07/19 16:27

>>48
色々と何を調べたのか問いたい
フレーム云々自体、ｽﾚ/板違い
それにLocationすら理解していないしw

39 · 02/07/19 16:38

>>49
レスありがとうございました。

自力で調べてみます。レス違いでしたねすいませんでした。

**nobodyさん** · 02/07/19 17:31

右のフレームでcgiを表示って、HTMLの問題では？
そういうことやってるサイトは無数にあるから、そこのソースコピーしろ。

**nobodyさん** · 02/07/19 17:55

$hoge = 'hoge'or'fuga'or'foo'or'bar'みたいな時
if $hoge eq 'hoge' or $hoge eq 'fuga' or $hoge eq 'foo' or $hoge eq 'bar'
とするのと
if $hoge =~ /^[hfb]/
とはどちらがいいのですか？

52 · 02/07/19 17:58

訂正
if $hoge =~ /(hoge|fuga|foo|bar)/
にしてくらさい

**nobodyさん** · 02/07/19 17:59

>>52
値によっては処理がかわるから適切に使い分ければ？

**nobodyさん** · 02/07/19 18:00

>>53
値によっては処理がかわるから適切に使い分ければ？

52 · 02/07/19 18:02

あい、値によって適切に使い分けたいと思います
で、こういう値だったらこっちとかいう具体例ってありますか？

**nobodyさん** · 02/07/19 18:04

>>56
$hoge= 'aaahogeaaa';
これにマッチさせたくなければ上の eq を使えば？

**nobodyさん** · 02/07/19 18:08

>>57
なるほろ、そうします。
絶対に上の例以外の変数が入ることはなかったとしたら
どっちのほうが早い、負荷が低いんでしょう。

**nobodyさん** · 02/07/19 18:10

そりゃ、eq のほうが速いだろ。
ただ、正規表現のほうをうまく書き直せばベンチマークをやらないとなんとも
言えない。

**nobodyさん** · 02/07/19 18:13

そうなのれすか。
正規表現の出来具合によってはあまり変わらないと。
ご助言ｱﾘｶﾞﾄﾝ。これから試してみるのれす

**nobodyさん** · 02/07/19 19:09

>>53
if $hoge =~ /^hoge|fuga|foo|bar$/
()もいらない。

スピードは$hogeによる。$hogeがとる値の確率の高い順に
orは連結するように。
単一のワードなら、eqのほうが、正規表現より3,4倍早い。
まあ、無視できる程度だけど何千回もまわすようなループの中だと
でかい差になるね。

**nobodyさん** · 02/07/19 19:36

誰か良いプロファイリングのしかた知らないっすか。
どこのコードが何回実行されるかを調べる奴です。

DBugモードは無しで…

◆JAPH9PWA · 02/07/19 20:05

>>62
Devel::Dprofというプロファイラがあるよ。

$ perl -d:Dprof script.pl
$ dprofpp

**nobodyさん** · 02/07/19 20:47

>>63
Httpd上で動かしながらプロファイルをとりたいんどす

◆JAPH9PWA · 02/07/19 21:11

>>64
httpd上でも同じこと。
ただしプロファイル中はパフォーマンスが劇的に下がるので
実際に動かしながら、というのはお勧めできないけど。

関係ないけど、
そんな「やれやれ、的外れなレスが来たな」とでもいいたげなレスはやめた方が言いかと。

**nobodyさん** · 02/07/19 23:04

また一人糞コテハンが。。。
コテハンうざい
消えろ

**nobodyさん** · 02/07/19 23:13

逆切れﾓﾝｷｰｷﾀ━(・∀・)━!!

**nobodyさん** · 02/07/19 23:17

>>66 激しく同意。コテハンほどウザイものは居ないと思う。

**nobodyさん** · 02/07/19 23:44

屁タレ名無しｷﾀ━(・∀・)━!!

**nobodyさん** · 02/07/19 23:45

>>69 必死だな(w

**nobodyさん** · 02/07/19 23:48

しかも粘着＆自作自演ｷﾀ━(・∀・)━!!

**nobodyさん** · 02/07/20 09:57

おまえらIDだそうぜ？ｗ

**nobodyさん** · 02/07/20 12:25

>>72
自作自演がばれるので無理ですｗ

**nobodyさん** · 02/07/20 14:41

ここで質問していいのでしょうか？
どなたかおしえてください
http://music.2ch.net/test/read.cgi/msaloon/1011182085/25-26

**nobodyさん** · 02/07/20 14:57

>>74
P554 で始まるトリップが欲しいの？

**nobodyさん** · 02/07/20 15:02

リファレンスを使うと何がいいんですか?

◆P554yc3s · 02/07/20 15:04

＞７５
いやちがいます
これってトリップ解読プログラムらしいんです

でもこれって無限ループさせてＲＮＤとかつかってランダムに６桁を選んで調べているんです
だからそれをaaaaaa-zzzzzzまで順番に一通り検索したいなとおもったんです
aaaaaaのトリップがそれなんです＞ＰＰ

◆P5542316 · 02/07/20 15:08

一通りって、何日（何十日？）もかかるよ。

**nobodyさん** · 02/07/20 15:11

とりあえず落ち着け
解析ソフト使えばブルートも出来るだろ

７４ · 02/07/20 15:14

>>78
半角英語２６文字だけですからそんなにかからないはずです
ためしに４文字でやってみたのですが１０分もかからかなったです
でもＲＮＤってことは重複をやっているわけで６文字aaaaaaだと解析できなかったんです
（重複の解がいくつもでてくる）

＞７９
そんなのあるんですか？＞解析ソフト

７４ ◆Nb6Ma0MY · 02/07/20 15:20

やりたいことは
Ｑ、このトリップあててみろ（ヒントは英半角４文字
って言う解をゲットしたいんです　これだったらそのプログラムに
Nb6Ma0Mっていれると１分かからず解析できます

◆P5542316 · 02/07/20 15:25

たんじゅんに２６文字の８乗で208827064576種類になり、
だいたい秒速で１００００個解析できるとして20882706.4576秒かかる。
つまり、約５８００時間（２４１日）はかかるだろう。

・１００００個解析と書いたのは、わたしのマシンで最近Ｐｅｒｌスクリプトで
解析した時の速度です。
・ちなみに同じマシンにて解析ソフトをつかったところ、約半分の４５００個
解析でした。
・わたしのマシンスペック＝ＣＰＵ：MMX Pentium233: メモリ６４Ｍ

７４ ◆Nb6Ma0MY · 02/07/20 15:38

>>82
そんなかかりますか。。。。。（汗
計算しました。６文字までだったら８Ｈほどなので現実的です。
実際にプログラムは６文字用です。
やり方教えてもらえませんでしょうか？

７４ ◆Nb6Ma0MY · 02/07/20 15:44

>>82
＞７９さんも書いていますが
この"解析ソフト"ってのは既にあるんですか？

**Dream☆こそ真の上級者** · 02/07/20 15:51

Dream★こそ真の上級者

◆P554yc3s · 02/07/20 16:03

>>84
解析ソフトなら検索すればすぐにヒットするよ。
今、６文字のやつ作ってみたけど>>85が居るから見せるのに迷うな。

74 ◆fS5h1Nbo · 02/07/20 16:08

ぷぷっ
できないなら初めからそう言ってください。
だれも貴方に期待してませんから。

７４ ◆Nb6Ma0MY · 02/07/20 16:09

なんですかドリームってのは（＝８７）ですか？
＞８６
見知らぬ国のってやつですか？＞ソフト
それならもってます

◆P554yc3s · 02/07/20 16:14

>>88
それもってるのになんか不満なの？処理が遅いから？
>>87はコテハン嫌いのガラクタです。

**nobodyさん** · 02/07/20 16:14

コテハンは低スキルな馬鹿ばっか

７４ ◆nbuTfS9c · 02/07/20 16:17

>>89
あれはパスワードをピンポイントであてることは出来ないじゃないですか？
似たようなのはさがせますが　
（もしかしてできるのですか？）
たとえばこれなんて２文字ですがとりっぱーじゃ探せないですよね？

７４ ◆AQeVTHLI · 02/07/20 16:19

もういいです。
このスレッドのヒトは馬鹿ばっかりですね。

**nobodyさん** · 02/07/20 16:21

#　のあとに全角文字とかも入れられたよな。

**nobodyさん** · 02/07/20 16:24

>>91
理論上は可能。何日かかるかは知らんが。

７４ ◆nbuTfS9c · 02/07/20 16:26

>>94
それはわかりますが、４文字くらいまでなら即効で分かりたいのです。
今気づきましたが>>82さんってﾄﾘｯﾌﾟ違ったんですね

７４ ◆nbuTfS9c · 02/07/20 16:44

>>86
そろそろおねがいします
ここがだめなら例のｽﾚにかいてください

**nobodyさん** · 02/07/20 16:46

無理無理(w

**nobodyさん** · 02/07/20 16:55

ほら見ろ(ww

７４ ◆nbuTfS9c · 02/07/20 17:24

あらしさんが消えたらＵＰってくださいお願いします

◆uqiOV5h6 · 02/07/20 17:26

こういうのとかはとれるの？

#全角文字

**nobodyさん** · 02/07/20 20:29

http://www.xxxx.com と　http://xxx.com
の　www　がつくかつかないの法則性ってあるのでしょうか。

**nobodyさん** · 02/07/20 21:01

質問です
@unko=(4487,8456454,4544,945452,85,754);
@manko=sort @unko;
print "@manko[0..5]";
じゃ数字のソートにならなないです教えてください
ネタじゃないです

**nobodyさん** · 02/07/20 21:05

@obakana=sort{$a <=> $b}@hennsuumei;

７４ ◆nbuTfS9c · 02/07/20 21:36

>>86さん　
いなくなってしまったのですか？　ﾜｰﾝ
おしえてくださいよー

**nobodyさん** · 02/07/20 21:56

トリップ解析がなぜperlなのかまず説明せよ

**nobodyさん** · 02/07/20 22:07

>>105
るせんだよ　CでもPascalでも良いから
さっさとコードだせや　このﾎﾞﾝｸﾗ糞厨が！！！

**nobodyさん** · 02/07/20 22:20

漏れがPascal知らない理由をまず説明せよ

**nobodyさん** · 02/07/20 23:08

>>106の削除依頼出してきました、、
っていうかじゃま。ここはPerlコンテストスレじゃないから、、
スレ立てれば？たぶんコテに荒らされるとは思うけど、、

**nobodyさん** · 02/07/20 23:46

procedure trip(a :String)
begin
println('解析しました');
end;

**（笑いが止まらない）** · 02/07/21 00:11

な、やっぱり86は逃げただろ？
所詮コテハンで書く奴なんてそんなもの。クズばっか

**nobodyさん** · 02/07/21 00:14

>>110
必死だなｗ

**藁藁藁** · 02/07/21 00:16

>>11 即レス必死だな。

**nobodyさん** · 02/07/21 00:17

>>112
どうでもいいが落ち着いてレスしな。
怒りで打ち震えているのはわかるが・・・。

**nobodyさん** · 02/07/21 00:20

歴代コテハンはクズばっか
クズばっか
ばかばっか
ばっか

**nobodyさん** · 02/07/21 00:21

>>114
お、壊れた壊れた♪

**nobodyさん** · 02/07/21 00:23

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 |
ﾈ・ : `

**nobodyさん** · 02/07/21 00:23

Perl文法的にみて「このスクリプトの組み方はいい」というスクリプトの配布サイトを教えてください。

**nobodyさん** · 02/07/21 00:24

俺持ってるよ
0fillと左寄せで総当りする奴
CでufcCrypt使ってるから、perlの倍近く速い

**nobodyさん** · 02/07/21 00:45

>>117
Perlは文法的に破綻していると考えるのは俺だけか？
俺だけか・・・。

**nobodyさん** · 02/07/21 05:26

>>106

$i = 1;

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

$i ++;
}

print $i, "回の殺害で、>>106は氏にました";

**nobodyさん** · 02/07/21 07:14

ホント厨房だらけだな。

74 ◆AQeVTHLI · 02/07/21 09:42

86さんは私を裏切ったのですね。
恨みます。

**nobodyさん** · 02/07/21 09:56

てうｓｔ

**nobodyさん** · 02/07/21 16:16

掲示板を書いているのですが書き込んだ内容をファイルに記録すると
スクリプトのソースがファイルに記録されてしまうのですがどこが
おかしいのか教えてください。
ソースはこれです。
ttp://zor007.netfirms.com/files/159.txt

**nobodyさん** · 02/07/21 16:19

>>124
はじめ４行しか読んでないが。

$logの代わりに$reload開いてそれを$logに書き戻してないか？

７４ ◆nbuTfS9c · 02/07/21 16:23

＞７４です
ガーンまだ教えてもらえないのね

**nobodyさん** · 02/07/21 16:27

>>74
この板の奴は口先だけ。
偉そうな口だけ一人前だから何も期待するな。

**nobodyさん** · 02/07/21 16:40

>>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);
}

数字のみしか解析できないからあとは適当に改良してな。

**nobodyさん** · 02/07/21 16:42

>>128
ミスった。$ARGV[0]→$hoge な

**124** · 02/07/21 16:56

ファイルに保存される内容はスクリプトの内容そのままではなくて
ＰＯＳＴした内容の後ろにソースが付くのですが、、、原因がさっぱり
です(´･ω･｀)

**んじゃCで** · 02/07/21 16:58

>>106
ボーランドのC++コンパイラで

#include <stdio.h>

int main(void)
{
while(1)
printf("\t\b\b");
}
をコンパイル。これCのコードね
んで.exe実行。で解析ファイルがでる。
かんばれ

**nobodyさん** · 02/07/21 16:59

>>131
確かNTのコンソール落ちるんだっけか？

**コギャルとHな出会い** · 02/07/21 17:08

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/対応

**nobodyさん** · 02/07/21 17:29

>>132
俺がやったときは（バッチファイルで）再起動したよ。
そのあと、動作が不安定になって、再インストール。

**nobodyさん** · 02/07/21 17:33

>>65
遅れましたがレスありあり。

DProfと言葉遣いを勉強してきます。

. · 02/07/21 19:03

Devel-DProfがインストールできません。
PPMで

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

などというエラーが出ます。
助けてください。

◆JAPH9PWA · 02/07/21 19:13

>>136
Perlのバージョンは？
perl5.6以上なら標準で入ってるけど、
そうでなければ自分でビルドするしかないかもね。

. · 02/07/21 19:13

>>136
自己解決しました。「Devel-Profiler」って名前だったのねん。

**nobodyさん** · 02/07/21 19:26

>>124
use strict 使うか -cw でチェックしたりした？

掲示板の表示
sub Output{
my $message,$titel,$name,$mail,$reload,$color,$log,$check;
　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　ちょっとしか読んでないけどtypoﾊｹﾝ

**124** · 02/07/21 19:27

いろいろ考えてみたんですがどうやらこの中がおかしいみたいなんですが
どこかおかしいところあるでしょうか？
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;
}
}

**nobodyさん** · 02/07/21 20:14

exit(0);とexit(1);の違いを教えてください

**nobodyさん** · 02/07/21 20:53

>>141
0を返すか1を返すか。

**nobodyさん** · 02/07/21 20:54

返す値が違うと何が変わるんですか？

**nobodyさん** · 02/07/21 21:26

>>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っていれても駄目だし
どうすればいいんだろう

**124** · 02/07/21 21:28

>139
ありがとうございます
一応解決しましたが、、、
いろいろ試してみた結果windows上のapache2の上ではソースが
保存用ファイルにソースまで書き込まれてしまいおかしいなと思って
ＬＩＮＵＸ上のapache2で試してみたらちゃんと書き込みできましたこれってapacheのバグ！？

**nobodyさん** · 02/07/21 21:28

>>144
ほんとにPerl書けるんですか？

**１２４** · 02/07/21 21:33

＞１４６
つい最近書き始めたばっかり
でもこのソースでLINUX上ではちゃんと動いた、、、

**１２４** · 02/07/21 21:34

↑
俺へのレスじゃなかったのか間違えた鬱だ死のう

**nobodyさん** · 02/07/21 21:40

>>148
二度とくるな、
お前の頭がバグってる。
初級ネットにPerlスレあるからいってらっしゃい。

**nobodyさん** · 02/07/21 21:44

ｒｇｋｌｔぐｖｂｙｄｆｊぎｒんちｙｔｂｇｒふえいｈげｒ７８おｔｇ６７れｔｇ６７ｔれ７８ｇへれるｇれｈｒｈｔ
コテハンは糞

**nobodyさん** · 02/07/21 21:47

>>150
お前の挙げた条件はすべて満たしているが？
絶対にないとかほざくからそう言う恥ずかしいことになる。

**nobodyさん** · 02/07/21 21:49

151には何か別のものが見えるらしい。こわっ

**nobodyさん** · 02/07/21 21:56

>>146
かけません。だから聞いているんです
お願いします

**nobodyさん** · 02/07/21 22:00

>>153
それよりさ
http://music.2ch.net/test/read.cgi/msaloon/1011182085/
なんでここからあなたがとんでくるわけ？
煽ってんじゃなくて理由がしりたい。
なんでいきなりPerlコードが書かれるのよ。
Ｄｒｅａｍが何者？とかいうよりあなたが何者？

**そこの住人だから** · 02/07/21 22:05

>>154
たまたま見つけたから。
知りたいんです。

**nobodyさん** · 02/07/21 22:13

>>149
お前も来るな！
何エラぶってのよ！
ｳﾞｧｰｰｰｶ

**nobodyさん** · 02/07/21 22:13

>>156が頭にエラーがある何よりの証拠だな。

**nobodyさん** · 02/07/21 22:21

>>157
頭にエラーって何でしょう？
脳の事いっているの？
プログラムより日本語勉強したら？

**な～つはス～ぎ～雨上が～り** · 02/07/21 23:11

┌─────────┐
│ 　　　　　　　　　｜
│ . キ違い警報発令 !　│
│ 　　　　　　　　　｜
└―――──――――┘
　　　　ヽ(´ー｀)ﾉ
　　　　 (　へ)
　　　　く

**nobodyさん** · 02/07/21 23:52

foreach (@file){
@link=split/<>/;
if($link[0] eq "hoge"){
$hoge="$link[2]";
}
foreach($hoge){
@next=split/\t/;
print "$next[0]";
.....
}
と処理したいんですが、
どうも
foreach($hoge){
だと処理ができません。
こうしたい場合はいったいどうすれば宜しいのでしょうか？

**nobodyさん** · 02/07/22 00:02

@next= split(/\t/, $hoge);

**nobodyさん** · 02/07/22 00:04

>>160
[書式]
foreach 変数(配列){
処理
}

**160** · 02/07/22 00:45

すみません。間に合わせで解決しました。

**nobodyさん** · 02/07/22 01:17

>>163　もう二度と来るなよ

**nobodyさん** · 02/07/22 01:22

>>164
良かったね。と言ってやるのが大人の対応です。

**ひろゆ子＆diams;HRUNYAXA** · 02/07/22 02:06

jjjjjjjjjj

**bigpapa** · 02/07/22 02:21

■　全国の愛すべき諸君へ　沖縄より愛を込めてbigpapaより

★　2ちゃんねるの管理人に賠償と書き込みの削除を命令　東京地裁　
------------------------------------------------------------　
　インターネット上の人気サイト「２ちゃんねる」の掲示板をめぐり、
東京都内の動物病院が「書き込みで中傷された」として東京地裁は２６日、
４００万円の支払いと書き込みの削除を命じた。

管理人は「不当な判決だ。賠償額についても不満があり、控訴する予定」
と話している。［毎日新聞６月２６日
　

■ 東京地裁の判決の詳しい結果は下記のURLをご覧ください。
■ http://www1.ryucom.ne.jp/papa/newpage2chsaiban.htm

■　アスキーアート(AA)の定義JISアートの定義は下記URLへ
■ http://www1.ryucom.ne.jp/papa/asciiart.htm

**nobodyさん** · 02/07/22 03:48

perlでintergerなど、変数の型を指定する事は可能ですか？

**nobodyさん** · 02/07/22 05:04

あい

**168** · 02/07/22 07:13

どうすれば良いんですか？

**nobodyさん** · 02/07/22 11:09

>>170
intな値を代入する。
$int　=　100 ;

**&diams** · 02/07/22 12:41

aaa

♦# · 02/07/22 14:50

変数の型で interger って初めて聞いたＹＯ！

**Piano** ◆QGZrdAAA · 02/07/22 15:27

googleのI'm feeling Luckyを組み込んだ
メタ検索CGI作ってるんですが、

print "Location: http://www.google.co.jp/search?q=".$in{'word'}."&ie=UTF-8&oe=UTF-8&hl=ja&btnI=I%27m+Feeling+Lucky&lr=lang_ja\n\n";

とした場合、平仮名やカタカナは問題なく即リンクできるんですけど
漢字で検索をかけた場合、見当違いなホームページに飛んでしまいます。

$in{'word'}に入ってる値のエンコードが問題かと思いましたが
普通のgoogle検索だと問題なくこのメタＣＧＩで検索できたので
エンコードの問題では無いと思うんですが、、、。
誰か教えて下さい、お願いします。

**hage** · 02/07/22 15:31

gooでやってるみたいなHPのスクリーンショットをサムネイル化したリンク集できる？
Perlで。もしくはPHPで。

**nobodyさん** · 02/07/22 15:52

geocitiesはＣＧＩつかえないの？

**nobodyさん** · 02/07/22 16:04

使えないよ。

**nobodyさん** · 02/07/22 17:00

for(my $i = "0001";$i < "0011";$i++){
　　　print "$i\n";
}

結果
0001
0002
・
・
・
0010

初めて知ったyo

**nobodyさん** · 02/07/22 17:22

どっかの本に

$prog = <<"PERL";
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
}
PROG

eval $prog;

こうすると、似たような処理を繰り返すとき早いとか書いてあったけど実際はどうなの？（記憶が曖昧でｽﾏｿ）

**nobodyさん** · 02/07/22 17:24

なんか、サブルーチンに似てるな。

**nobodyさん** · 02/07/22 18:42

open(IN,"$log");
eval { flock IN, 2; };
@line=<IN>;
eval { flock IN, 8; };
close(IN);
すみません質問です。
このロック処理の方法はミスがありますでしょうか？
私は意味が無いような気がするんですが、
どうもこれだという理由がなくて困ってます。

**nobodyさん** · 02/07/22 18:50

>>181
あっちこっち書くなよ、糞虫が
2chで外国人以下の敬語モドキ使ってる暇有ったら
検索でもしろよこの中卒塗装工が

**181** · 02/07/22 18:53

>>182
すみませんでした。
で、答えの方はー？ﾌﾟｩ＿＿＿。

**nobodyさん** · 02/07/22 19:06

>>181
open(IN,"<$log");
eval { flock(IN, 2); };
@line=<IN>;
close(IN);

これのほうが良いかな～?

**181** · 02/07/22 19:14

>>184
そうですか～。
わっかりました。
ほんとにですか？

**nobodyさん** · 02/07/22 19:16

冗談に決まってるじゃん

**181** · 02/07/22 19:19

>>186
失礼ですが答えを知っておれますか？

**nobodyさん** · 02/07/22 19:25

>>186 = 嘘つき

**nobodyさん** · 02/07/22 19:25

ﾊ-ｹﾞｼｸﾜ-ﾗﾀ

**181** · 02/07/22 19:50

>>181
flock(XX, 1) 読込中なので書込をロック、あとから来たら待つ。（ブロック）
flock(XX, 2) 書込中だから書込読込ロック、あとから来たら待つ。（ブロック）
flock(XX, 5) 読込中なので書込をロック、あとから来たら0を返す。
flock(XX, 6) 書込中だから書込読込ロック、あとから来たら0を返す。
flock(XX, 8) ロック解除（close(XX)すれば解除なのであまり使わない）。

**181** · 02/07/22 19:51

残りは俺の肛門。

**Piano** ◆QGZrdAAA · 02/07/22 20:57

どなたか>>174の質問がわかる方いらっしゃいませんか？

**nobodyさん** · 02/07/22 21:03

>>192
googleAPIについて勉強するのが吉。

**181** · 02/07/22 21:06

>>174
POST限定じゃないの？

**181** · 02/07/22 21:07

http://www.google.co.jp/search?q=in{'$word'}&btnI=I'm+Feeling+Lucky
これならいける？

**181** · 02/07/22 21:10

&ieとか書くと駄目だね。
わかったか厨房？ﾌﾟｩ＿＿＿。

**181** · 02/07/22 21:17

>>Piano ◆QGZrdAAA
195の方法で出来たんだろ？
無視かよ！

**nobodyさん** · 02/07/22 21:19

るせｳﾞｧｶ

**181** · 02/07/22 21:20

>>198
はぁ。はいはい。

**nobodyさん** · 02/07/22 21:34

>>199　煎って葦!