Perlなんですが・・・

0001初心者01/09/11 15:56 ID:9.SKwdns
まったくの初心者なんですけど
Perlの質問に答えてみようと思います

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

━━(゚Д゚;)━━

━━(゚Д゚;)━━

0004初心者01/09/11 16:11 ID:9.SKwdns
>>2-3さん
そんなに驚かないでください。

ちょっとワロタよ、一緒に勉強しよー♪
でも、初心者師ねな人にはウザイからサゲでこっそりヤローヨ(・∀・)

----------------ネタスレ終了----------------

0007初心者01/09/11 17:02 ID:???
>>5
はい、勉強します。たまには上げさせてくださいね
>>6
一つも質問に答えてないのに終了なんてイヤです

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

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

-完-

0009初心者01/09/11 18:12 ID:???
逆ギレしてみます

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

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

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

0012  01/09/11 18:30 ID:???
オブジェクト指向に付いて簡単に教えて下さい。

0013名無しさん@お腹いっぱい。01/09/11 18:32 ID:liJMw8bE
みんないぢわるだなぁ…

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

0015初々しい人01/09/11 18:41 ID:???
私のような初々しい人でも使える可逆暗号化ライブラリ作れ

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

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

0018初心者01/09/11 19:42 ID: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 が参考になりそうです。

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

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

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

おしえて初心者さま

0021初心者01/09/11 20:07 ID:???
>>20
$safe = 'test';
$tainted = `echo $safe`;
こんな感じでどうですか?

00222001/09/11 20:16 ID:???
>>21
おお、簡単なことだったんですね。
もしかして初心者さんって本物の
Perlハカー?

0023初心者01/09/11 20:21 ID:???
taintを取り除く必要がないのなら、
use re 'taint'; も使えます。
マッチさせた値のtaintをそのまま維持するようです。

0024名無しさん@お腹いっぱい01/09/11 20:27 ID:???
おもしろいぞ 頑張れ>初心者

00252001/09/11 20:41 ID:???
>>23
今日初めて
man re
してみました。勉強になります。

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

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

0026初心者01/09/12 19:06 ID:y/zpkkrk
ひそやかなる怒りと悲しみを胸に。

質問してください。

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

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

0029初心者01/09/13 02:33 ID:skA46.9M
すみません。28=初心者です。

0030_gunzip01/09/13 06:51 ID:???
>例えばほぼ同時にperlが動いた場合

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

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

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

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

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

0034名無しさん@お腹いっぱい。01/11/07 02:11 ID:szSo57Rp
Win32::DDEに関するドキュメントはどこにあるのでしょうか。
できれば日本語がよいのですが。
スレ違いですが、DDEに関して教えてくれるスレ知りませんか?

0035初心者02/01/07 23:41 ID:uQai8xGp
久々にアゲてみたり

いいぞ〜初心者〜〜>(・∀・)

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

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

えばる。

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

0041名無しさん@お腹いっぱい。02/01/09 18:58 ID:bJedpWRu
パールについてお聞きしたいです。
メールアドレスをパラメータにしてCGIに渡したいのですが、
このメールアドレスを暗号化した状態(つまり見ても分からない)で
CGIに渡したいです。 それで渡した後、暗号を複合化して
メールアドレスを使いたいです。
CRYPT関数は複合化できないし・・・
どうしたらよいのでしょうか?

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

0043親切な人02/01/09 19:07 ID:???

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

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

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

0044名無しさん@お腹いっぱい。02/01/09 19:07 ID:bJedpWRu
<<41
あの・・具体的に教えていただけると
ありがたいのですが・・・
関数とかないのですか? 


0046名無しさん@お腹いっぱい。02/01/09 19:31 ID: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:45 ID: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の使用を恐れることはないでしょう。

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

0049名無しさん@お腹いっぱい。02/01/10 18:51 ID:iKOVjCBf
>>46
plaintexの方ね。

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

>>50
.htaccessにこう記載する。
<Files *.cgi>
order deny,allow
deny from all
</Files>

ハァ??
きしょっ!

0053眼鏡オタですが何か?プ)02/01/10 23:42 ID:???
汚染チェックってなんですか?

0054 ◆AskaRoYg 02/01/11 00:00 ID:???
>>50
痩せろ

0055名無しさん@NEmacs02/01/11 01:49 ID:fZtnJrfW

0056初心者02/02/01 23:49 ID:GSMdD5I4
初心者パワーをなめちゃぁいかん。

>>56
上げただけじゃない・・・w

画像連結にfly使ったんですが、Unisysに特許料払わんとだめですか?

0059名無しさん@お腹いっぱい。02/02/03 11:53 ID:6O2qk++F
はい。私は毎月50万円払っています。

なんで
”名無しさん@お腹いっぱい”
なんですか?

>>60
「名無しさん」を変えてないからだよ。

0062名無しさん@お腹いっぱい。02/02/04 03:23 ID:sAx7lHcm
>1
perlってなんですか?

0063初心者02/02/04 04:03 ID:g/ay00Kk
>>62
Perlで書かれたスクリプトを実行するコマンドです。

0064名無しさん@お腹いっぱい。02/02/04 09:42 ID:t9Gb2AU1
my及びlocal関数での局所化の必要性について教えて下さい。

0065名無しさん@お腹いっぱい。02/02/04 09:52 ID:t9Gb2AU1
それとついでにここの1さんは少なくとも中級者以上の実力はあると思うのです。
まぎらわしいのでHNを中級者に変えません?

0066名無しさん@お腹いっぱい。02/02/04 11:49 ID:fnAmBNHz
こんにちわ、perlの事で質問させてください。
以下のスクリプトですが

 #! /usr/bin/perl  # お約束
 # 私のスクリプトそのままです(編集はしてません)
 $TMP = 10 ** 10;  # $TMP に10の10乗を代入
 $X = 10;  # $X に10を代入
 while ($TMP)  # $TMPが0になるまで繰り返し処理
  {$A = --$TMP % $X;  # $TMPの値を-1し、$Xの剰余を$Aに代入
  print "$A $TMP \n";}# 処置した値を画面に表示


上記のスクリプトですが、表示される$Aの値が変化しません
5 999999999
5 999999998
5 999999997 ......

$Xの値が1だと$Aは0で固定
$Xの値が2だと$Aは1で固定
$Xの値が3だと$Aは0で固定
$Xの値が4だと$Aは3で固定
$Xの値が5だと$Aは0で固定
$Xの値が6だと$Aは3で固定
$Xの値が7だと$Aは3で固定
$Xの値が8だと$Aは7で固定
$Xの値が9だと$Aは3で固定

私の知識が正しければ、$TMPの値を$Xで割った余りの数値が表示され
1行ごとに値が変更されると思うのですが。。。

どこか間違っているのでしょうか
識者の皆様、ご回答をお願いします

>識者の皆様、ご回答をお願いします
「皆様」に聞きたいなら初心者スレに書け。
ここは>>1に聞く為のスレだ。

>1行ごとに値が変更されると思うのですが。。。
固定されないが。

0068初心者02/02/04 13:31 ID:g/ay00Kk
>>64
必要性と言われても・・というのが正直なところです。
何らかの必要性があるからmyやlocalが存在するのでしょう。

一般的にグローバル変数は少ない方がいいとされています。
ソースを他人に見せるときや、昔書いたソースを見直すとき、
グローバル変数が無い方が理解しやすいです。

>>65 初心忘るべからず。

>>66
Perlのバージョンはいくつでしょう?
http://www.perldoc.com/perl5.6.1/pod/perldelta.html#Core-bug-fixes
の3項目、
Integer modulus on large unsigned integers
sometimes returned incorrect values.
と言うわけで、Perl5.6.0以降を使いましょう。

00696602/02/04 13:53 ID:???
>>68 :初心者様
ご回答ありがとうございました
確認してみたところ、確かに、バージョンが古すぎました
(5.005_03)

$TMPの値を10**10 から 10**9 に変更して実施してみたところ
正常に動作することを確認しました
ご回答、ありがとうございました

0070名無しさん@お腹いっぱい。02/02/04 20:08 ID:+YaLpde/
>>66
老婆心ながら
変数名を3文字に統一しないなら「TMP」は「TEMP」にした方が良いね。
あと、66のスクリプトなら「$A]と「$X]の変数名は逆にしようよ

一番良いのは
$TEMP => $I(カウント変数)
$A    => $X(計算値変数)
$X    => $A(定数)

細かいけど、癖にしてたほうが後で役に立つよ

物凄く余計なお世話だ  (笑

正直
自分の知ってる範囲で決めた命名法ほど迷惑なものは無い

# 人に押し付ける事なかれ

0073名無しさん@お腹いっぱい。02/02/04 20:40 ID:nACYCDdm
しかし正論だ。(笑

$iは少し同意。
暗黙の了解化してるな。

$i使うのがカッコイイとか思って使ってきたけどね。

意外な落とし穴は$aと$b
こないだこれではまりそうになった。

>>75
と、言うと?
$1みたいに何か意味のある変数?

>>76 sort で使われるね。

>>77
勉強になります。

sortってuniqの前準備に、

@list = sort(@list);

でしか使ったこと無いから知らなかったです。

sortも独自の書式使いますね。

sort{a <=> b}こんなん。

0079名無しさん@お腹いっぱい。02/02/05 01:29 ID:ucr4R94I
>>75
記憶違いだったら本当にごめん
sort文で使用される$a,$bは、完全にsort文だけの中で仮想変数で
外部の変数とは別扱いではなかったでしょうか?

初心者なんで激しいはツッコミは勘弁して下さい

00807902/02/05 01:30 ID:???
初心者以前に 日本語が変

自分ツッコミを覚えた!

>81
パパパパンパンパッパー
79はレベルがあがった!

008361502/02/05 02:55 ID:???
$a ってreadonlyじゃ無いから、間違えた時気付きにくいんだと思います

use strict;
$a = 100; #エラー出ない

これでModification of read-onlyが出ないと場合によっては嵌る事に
なるのかと
Perlはstrict+wスイッチが大前提だから、そんなに神経質になる程じゃ
ないと思いますが。

何かクッキー残りまくってる  (鬱
615は無視してくだされ。。

0085617 (←違う)02/02/06 18:40 ID:hdNADrgP
system関数を使用せずに
特定のLAN接続端末のIPアドレスを指定して
そのMACアドレスを知る方法が知りたい、教えれ

これは避けたいです
 system "traceroute $IP_ADDR";
 @MAC_ADDR = `arp $IP_ADDR`;

自分でarpと同じ事すれば良し

arpって何層のプロトコルでしたっけ?
データリンク?IP使うからネットワーク?
socketは使えないからポート直接操作になるんでしょうか?

00888502/02/06 22:24 ID:hksal3H7
>>87

arpは、確か操作端末のスタックメモリーの内容を表示するだけの命令だったと思います
直前に、目的のマシンとTCP/IP通信をしないと情報が得られませんし・・。

なるほど、TCP/IPで通信するにはMACアドレスを知っている必要がある。ならそのとき使った情報を見ればよいってことで良いでしょうか。
親切にありがとうございました。勉強し直してきます。

0090@@@@@@@02/04/21 09:12 ID:???
@@@@@@@@@@@@@@

0091nobodyさん02/11/28 08:20 ID:ArDOlCQW
こんなスレもありましたね。

0092nobodyさん02/11/28 08:27 ID:???
>>91
アフォか。>>1がいないのに上げてどうすんだよ。

0093初心者02/12/09 01:21 ID:vZ/rPhuU
復帰してもいいですか? 質問してください。

0094山崎渉03/01/15 13:42 ID:???
(^^)

0095Name_Not_Found03/02/17 18:28 ID:Kv+xH8ZL
ほとんどのperlスレは山崎渉のレスが最期で終わってるな。

0096山崎渉03/03/13 17:14 ID:???
(^^)

0097山崎渉03/04/17 12:24 ID:???
(^^)

0098山崎渉03/04/20 06:09 ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

0099山崎渉03/05/22 02:12 ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―

0100山崎渉03/05/28 17:15 ID:???
     ∧_∧
ピュ.ー (  ^^ ) <これからも僕を応援して下さいね(^^)。
  =〔~∪ ̄ ̄〕
  = ◎――◎                      山崎渉

0101nobodyさん03/07/09 05:25 ID:???
 教えてください。
 
 ActivePerl5.6.1.635とAnhttpdでプログラムを
試しているのですが<STDIN>をプログラムに入れると
固まってしまいます。Anhttpdでプログラムを試している
方はどういう風になさっているんでしょうか。

0102山崎 渉03/07/15 11:19 ID:???

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄

0103山崎 渉03/08/02 02:33 ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

0104ぼるじょあ ◆ySd1dMH5Gk 03/08/02 05:10 ID:???
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ

0105nobodyさん03/08/03 21:44 ID:???
>>101
#! C:/perl/bin/perl

print "Content-type: text/plain\n\n";
print "HELLO!\n";

print <STDIN>;

こんなんでも動くけど。
ActivePerl5.6.1 build631とAnhttpd1.42h

0106山崎 渉03/08/15 23:11 ID:???
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン

0107nobodyさん03/09/17 10:16 ID:???
>>101
まさかとはおもうが
while(<STDIN>){ }
とかやってないよな?

0108('x')04/05/07 23:03 ID:???
('x')

0109nobodyさん2006/06/26(月) 23:02:43 ID:???
>>107
おまえな〜。2ヶ月も前の投稿にレスすんじゃねーよ。
と言いつつ3年前の投稿にレスしてみる。

この板って圧縮されないのかね〜。

0110nobodyさん2006/10/25(水) 21:59:11 ID:thTrAQ7o
ちょっと疑問に思ったんだが、MovableTypeとかPerlで書かれてるソフトあるけど、あれってソース公開しなくていいのかな?
絶対GPLのライブラリとか使ってると思うんだが…

0111nobodyさん2006/10/26(木) 22:44:05 ID:???
MovableTypeって、ソースで公開されてない部分あるっけ?

0112nobodyさん2006/10/29(日) 21:26:37 ID:???
無いよ。>>110は何か勘違いしてる。

0113nobodyさん2010/04/24(土) 14:20:54 ID:???
MovableTypeはPerlで書かれていてソースは公開されている。

>>110
>絶対GPLのライブラリとか使ってると思う

思うのは自由ですが、どの部分なのかをソースを見て教えて
欲しい。

付き合うからさ。

で、だとしたら何なの?

0114nobodyさん2011/09/02(金) 13:00:58.84 ID:???
>>103
ガッ

0115 【44.8m】 電脳プリオン ◆GDSZsj1GHk 2012/03/10(土) 21:29:55.90 ID:????PLT(12078)

  ∧_∧
  ( ・∀・)   | | ガッ
 と    )    | |
   Y /ノ    人
    / )    <  >__Λ∩
  _/し' //. V`Д´)/ ←>>98
 (_フ彡        /

0116nobodyさん2013/10/29(火) 22:01:21.71 ID:z4zTbkHZ
解散。

0117nobodyさん2014/07/30(水) 08:39:37.16 ID:pqeNITpP
★2ch勢いランキングサイトリスト★

◎ +ニュース
・ 2NN
・ 2chTimes
◎ +ニュース新着
・ 2NN新着
・ Headline BBY
◎ +ニュース他
・ Desktop2ch
・ 記者別一覧
◎ 全板
・ 全板縦断勢いランキング
・ スレッドランキング総合ランキング
◎ 実況込み
・ 2勢
・ READ2CH
・ i-ikioi

※ 要サイト名検索

新着レスの表示
レスを投稿する