116コメント31KB

Perlなんですが・・・

■ このスレッドは過去ログ倉庫に格納されています

0001初心者

01/09/11 15:56ID:9.SKwdns

まったくの初心者なんですけど
Perlの質問に答えてみようと思います

とりあえず my は使ったほうがいいみたいです
よろしくお願いします

0002名無しさん＠お腹いっぱい。

01/09/11 15:59ID:???

━━（ﾟДﾟ；）━━

0003名無しさん＠お腹いっぱい。

01/09/11 16:09ID:???

━━（ﾟДﾟ；）━━

0004初心者

01/09/11 16:11ID:9.SKwdns

>>2-3さん
そんなに驚かないでください。

0005名無しさん＠お腹いっぱい。

01/09/11 16:26ID:???

ちょっとワロタよ、一緒に勉強しよー♪
でも、初心者師ねな人にはウザイからサゲでこっそりﾔﾛｰﾖ（・∀・）

0006名無しさん＠お腹いっぱい。

01/09/11 16:39ID:???

----------------ﾈﾀｽﾚ終了----------------

0007初心者

01/09/11 17:02ID:???

>>5
はい、勉強します。たまには上げさせてくださいね
>>6
一つも質問に答えてないのに終了なんてイヤです

0008名無しさん＠お腹いっぱい。

01/09/11 17:21ID:???

そんなに質問に答えたいなら質問スレに投稿された質問に答えてればいいだろうが。
それでも物足りないなら他のBBSに投稿されている質問に答えてやれ。

そうすることがこの板の住民にとってもアンタにとっても困っている厨房にとっても最も幸いだ。

-完-

0009初心者

01/09/11 18:12ID:???

逆ギレしてみます

オイこら、初心者だからってなめてんじゃねェよ
答えってやるって言ってんだ
ゴタゴタぬかす前に早く質問晒せよヴォゲ！

0010名無しさん＠お腹いっぱい。

01/09/11 18:14ID:???

cryptに使われている暗号化アルゴリズムの仕組みを教えてください

0011名無しさん＠お腹いっぱい。

01/09/11 18:18ID:???

hashテーブルはどう実装されてるんだよ
教えろや(´Д`)ｺﾙｧ

0012　　

01/09/11 18:30ID:???

オブジェクト指向に付いて簡単に教えて下さい。

0013名無しさん＠お腹いっぱい。

01/09/11 18:32ID:liJMw8bE

みんないぢわるだなぁ…

0014名無しさん＠お腹いっぱい。

01/09/11 18:38ID:???

これがPerlhackerのネタでガリガリ答えてくれたら最高のネタスレなんだけどな　W

0015初々しい人

01/09/11 18:41ID:???

私のような初々しい人でも使える可逆暗号化ライブラリ作れ

0016名無しさん＠お腹いっぱい。

01/09/11 18:46ID:???

>>15
可逆暗号の基本として排他的論理和（xor)を使うのがあるけど

0017名無しさん＠お腹いっぱい。

01/09/11 19:11ID:???

XSを使ってみたいのですがよく分かりません。
教えてください。

0018初心者

01/09/11 19:42ID:9.SKwdns

>>10
libcryptの実装によって暗号化アルゴリズムは違うようです。
crypt(3)を呼び出してるだけのようですのでPerlとは直接関係ないです。

>>11
ソースを読んでくださいそれが実装です。
perldoc perlguts も参考になるかもしれません。

>>12
範囲が広すぎです。
Perlでオブジェクト指向を実装するには？ってことですか？
オブジェクト指向の概念ということだとスレ違いです。

>>15
すでにあるようです。
http://search.cpan.org/Catalog/Security/
ここでCrypt:: で始まるモジュールで好きなの選んでください。
使い方がわからなかったらまた聞いてください。

>>17
すみません。
Cはあまりやったこと無いのでxsについてはあまり知りません。
perl perlxs が参考になりそうです。

0019名無しさん＠お腹いっぱい。

01/09/11 19:47ID:???

初心者に対してperldocを読めとはなんて素晴らしい教え方だろう。
感動した！

------------------------------終了------------------------------

0020名無しさん＠お腹いっぱい。

01/09/11 19:54ID:???

taintを(パターンマッチで)取り除いたデータを
もう一度taintし直すことはできますか？

おしえて初心者さま

0021初心者

01/09/11 20:07ID:???

>>20
$safe = 'test';
$tainted = `echo $safe`;
こんな感じでどうですか？

002220

01/09/11 20:16ID:???

>>21
おお、簡単なことだったんですね。
もしかして初心者さんって本物の
Perlハカー？

0023初心者

01/09/11 20:21ID:???

taintを取り除く必要がないのなら、
use re 'taint'; も使えます。
マッチさせた値のtaintをそのまま維持するようです。

0024名無しさん＠お腹いっぱい

01/09/11 20:27ID:???

おもしろいぞ　頑張れ>初心者

002520

01/09/11 20:41ID:???

>>23
今日初めて
man re
してみました。勉強になります。

ただ、今回は一旦evalする必要がある
ので、taintは除去しなきゃいけませ
ん。

いずれにせよありがとうございます
>>初心者さま

0026初心者

01/09/12 19:06ID:y/zpkkrk

ひそやかなる怒りと悲しみを胸に。

質問してください。

0027お願いします

01/09/13 01:01ID:???

perlで作ったcgiをwebで動かしたときにトランザクション制限はどの程度でしょうか？
例えばほぼ同時にperlが動いた場合などどの程度同時起動すると止まるんでしょうか

0028名無しさん＠お腹いっぱい。

01/09/13 02:32ID:???

>>27
Apache の MaxClients ディレクティブの設定によって、
CGI起動のプロセス数は制限されるでしょう。
その前に色々なシステムのlimit、
たとえばメモリやファイルのオープン数、に達すれば当然止まるでしょう。
いずれにせよ、環境次第です。

0029初心者

01/09/13 02:33ID:skA46.9M

すみません。28=初心者です。

0030_gunzip

01/09/13 06:51ID:???

>例えばほぼ同時にperlが動いた場合

Configureの途中、libperl.soのダイナミックリンクを利用する
方を選択すると、実行モジュールのサイズが小さくなるし、
複数のperlインタプリタでイメージを共有できるので、
結果として,mmap()コールで実行ファイルをメモリににマッピング
する際のオーバヘッドの減少、ディスク/スワップ領域の利用効率の向上、
物理メモリの節約等のメリットがあるね。
(....デフォルトでは実行速度向上のために利用しないようになっているけど)

0031名無しさん＠お腹いっぱい。

01/09/13 09:22ID:???

ネタスレ臭かったのにがんばってるね。

0032_gunzip

01/09/13 15:51ID:???

>>11
Perlのハッシュは分離連鎖法(separate chaining)で、ハッシュ値が衝突した場合リンクリストで繋いでいく方式。
詳しくはhv.cを読めば分かるよ。

#ちなみに、Perl5.7.2からはハッシュ関数が変更されています。

003327

01/09/13 17:12ID:???

>>28-30
ありがとうございます。詳しい初心者さんと_gunzipさん
若干調整できるものの環境次第と覚えておきます。難しいなぁ。

0034名無しさん＠お腹いっぱい。

01/11/07 02:11ID:szSo57Rp

Win32::DDEに関するドキュメントはどこにあるのでしょうか。
できれば日本語がよいのですが。
スレ違いですが、DDEに関して教えてくれるスレ知りませんか？

0035初心者

02/01/07 23:41ID:uQai8xGp

久々にアゲてみたり

0036名無しさん＠お腹いっぱい。

02/01/08 22:29ID:???

いいぞ～初心者～～＞(・∀・)

0037名無しさん＠お腹いっぱい。

02/01/09 17:51ID:???

evalを使っているcgiへの具体的な攻撃方法を教えて下さい。
また、どうしてもevalを使う必要があるときの、
攻撃回避方法も教えて下さい。

0038名無しさん＠お腹いっぱい。

02/01/09 18:00ID:???

evalがどう言うものかを先に僕に教えて下さい。
よろしくお願いします。

0039名無しさん＠お腹いっぱい。

02/01/09 18:04ID:???

えばる。

0040名無しさん＠お腹いっぱい。

02/01/09 18:57ID:???

Perlで電気ストーブを作るにはどういう記述が必要なのかね？
俺に教えてみたまえ。Perlという言語はそもそも電気ストーブの開発の為に
考案された言語なのだよ。つまりこの質問に答えられないようならPerlについて何も理解していないということだ。

0041名無しさん＠お腹いっぱい。

02/01/09 18:58ID:bJedpWRu

パールについてお聞きしたいです。
メールアドレスをパラメータにしてCGIに渡したいのですが、
このメールアドレスを暗号化した状態（つまり見ても分からない）で
CGIに渡したいです。　それで渡した後、暗号を複合化して
メールアドレスを使いたいです。
CRYPT関数は複合化できないし・・・
どうしたらよいのでしょうか？

0042名無しさん＠お腹いっぱい。

02/01/09 19:02ID:???

>>41 複合化できるように暗号化する

0043親切な人

02/01/09 19:07ID:???

ヤフーオークションで、幻の人気商品、発見！！！

今は無き「コピーガードキャンセラー」↓
http://page5.auctions.yahoo.co.jp/jp/auction/e5292701

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。

0044名無しさん＠お腹いっぱい。

02/01/09 19:07ID:bJedpWRu

<<41
あの・・具体的に教えていただけると
ありがたいのですが・・・
関数とかないのですか？　

0045名無しさん＠お腹いっぱい。

02/01/09 19:18ID:???

>>44
http://search.cpan.org/doc/DPARIS/Crypt-DES-2.03/DES.pm

0046名無しさん＠お腹いっぱい。

02/01/09 19:31ID:bJedpWRu

>>45
ありがとうございます
my $key = pack("H16", "0123456789ABCDEF");
my $cipher = new Crypt::DES $key;
my $ciphertext = $cipher->encrypt("plaintex"); # NB - 8 bytes
print unpack("H16", $ciphertext), "\n";

exampleにあったこれでしょうか？
これで0123456789ABCDEFの所にメールアドレスをいれて暗号
化するのですか？

0047初心者

02/01/10 14:45ID:h2cHbHUk

>>38
evalは引数をコードとして実行する関数です。
例えば、
$code = q{ $foo = 'bar'; };
eval $code;
だと$foo に'bar'が代入されます。
実行するコードを実行時に変化させたい場合によく使います。
ブロックを引数にするevalもあって
eval { $foo = 'bar'; }
はさっきのコードと同じことをしますが、実行するコードは変えられません。
何に使うのかと言うと、evalで実行時エラーをトラップできるので
例外処理によく使われます。
>>37
単純な例で例えば、CGIのクエリーをそのままevalに渡してしまう例、
use CGI;
$q = CGI->new();
eval $q->query('code');
とすると、攻撃者は任意のコードを実行できてしまいます。
回避方法としては汚染チェックをきちんとすることです。
それさえやっていれば、別にevalの使用を恐れることはないでしょう。

0048名無しさん＠お腹いっぱい。

02/01/10 14:48ID:???

>>47
おお！ありがとう初心者たん。

0049名無しさん＠お腹いっぱい。

02/01/10 18:51ID:iKOVjCBf

>>46
plaintexの方ね。

0050名無しさん＠お腹いっぱい。

02/01/10 20:48ID:???

アップローダーがとても重いのですが軽くする方法はありませんか？

■ このスレッドは過去ログ倉庫に格納されています