TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
IDにPerlが出たら神!PHPが出たらｼﾒｼﾞ Part40
●●Perlって死滅しちゃうの？？？？●●
おいおまら誰か教えてくださいHTML・・・
【PHP】セッションについて語ろう！【PHP】
【MVW】AngularJS {{2}}【Google】
【PHP】Yii Framework Part 2
ワンストップ認証【OpenID,SAML,Live ID, BBAuth】
XOOPS 8
ソーシャルネットワーキングのシステムを作ろう！
JavaScript コメントの謎
Perlなんですが・・・
- 1 ：01/09/11 〜 最終レス ：2017/12/30
- まったくの初心者なんですけど
Perlの質問に答えてみようと思います
とりあえず my は使ったほうがいいみたいです
よろしくお願いします
- 2 ：
- ━━（ﾟДﾟ；）━━
- 3 ：
- ━━（ﾟДﾟ；）━━
- 4 ：
- >>2-3さん
そんなに驚かないでください。
- 5 ：
- ちょっとワロタよ、一緒に勉強しよー♪
でも、初心者師ねな人にはウザイからサゲでこっそりﾔﾛｰﾖ（・∀・）
- 6 ：
- ----------------ﾈﾀｽﾚ終了----------------
- 7 ：
- >>5
はい、勉強します。たまには上げさせてくださいね
>>6
一つも質問に答えてないのに終了なんてイヤです
- 8 ：
- そんなに質問に答えたいなら質問スレに投稿された質問に答えてればいいだろうが。
それでも物足りないなら他のBBSに投稿されている質問に答えてやれ。
そうすることがこの板の住民にとってもアンタにとっても困っている厨房にとっても最も幸いだ。
-完-
- 9 ：
- 逆ギレしてみます
オイこら、初心者だからってなめてんじゃねェよ
答えってやるって言ってんだ
ゴタゴタぬかす前に早く質問晒せよヴォゲ！
- 10 ：
- cryptに使われている暗号化アルゴリズムの仕組みを教えてください
- 11 ：
- hashテーブルはどう実装されてるんだよ
教えろや(´Д`)ｺﾙｧ
- 12 ：
- オブジェクト指向に付いて簡単に教えて下さい。
- 13 ：
- みんないぢわるだなぁ…
- 14 ：
- これがPerlhackerのネタでガリガリ答えてくれたら最高のネタスレなんだけどな W
- 15 ：
- 私のような初々しい人でも使える可逆暗号化ライブラリ作れ
- 16 ：
- >>15
可逆暗号の基本として排他的論理和（xor)を使うのがあるけど
- 17 ：
- XSを使ってみたいのですがよく分かりません。
教えてください。
- 18 ：
- >>10
libcryptの実装によって暗号化アルゴリズムは違うようです。
crypt(3)を呼び出してるだけのようですのでPerlとは直接関係ないです。
>>11
ソースを読んでくださいそれが実装です。
perldoc perlguts も参考になるかもしれません。
>>12
範囲が広すぎです。
Perlでオブジェクト指向を実装するには？ってことですか？
オブジェクト指向の概念ということだとスレ違いです。
>>15
すでにあるようです。
http://search.cpan.org/Catalog/Security/
ここでCrypt:: で始まるモジュールで好きなの選んでください。
使い方がわからなかったらまた聞いてください。
>>17
すみません。
Cはあまりやったこと無いのでxsについてはあまり知りません。
perl perlxs が参考になりそうです。
- 19 ：
- 初心者に対してperldocを読めとはなんて素晴らしい教え方だろう。
感動した！
------------------------------終了------------------------------
- 20 ：
- taintを(パターンマッチで)取り除いたデータを
もう一度taintし直すことはできますか？
おしえて初心者さま
- 21 ：
- >>20
$safe = 'test';
$tainted = `echo $safe`;
こんな感じでどうですか？
- 22 ：
- >>21
おお、簡単なことだったんですね。
もしかして初心者さんって本物の
Perlハカー？
- 23 ：
- taintを取り除く必要がないのなら、
use re 'taint'; も使えます。
マッチさせた値のtaintをそのまま維持するようです。
- 24 ：
- おもしろいぞ 頑張れ>初心者
- 25 ：
- >>23
今日初めて
man re
してみました。勉強になります。
ただ、今回は一旦evalする必要がある
ので、taintは除去しなきゃいけませ
ん。
いずれにせよありがとうございます
>>初心者さま
- 26 ：
- ひそやかなる怒りと悲しみを胸に。
質問してください。
- 27 ：
- perlで作ったcgiをwebで動かしたときにトランザクション制限はどの程度でしょうか？
例えばほぼ同時にperlが動いた場合などどの程度同時起動すると止まるんでしょうか
- 28 ：
- >>27
Apache の MaxClients ディレクティブの設定によって、
CGI起動のプロセス数は制限されるでしょう。
その前に色々なシステムのlimit、
たとえばメモリやファイルのオープン数、に達すれば当然止まるでしょう。
いずれにせよ、環境次第です。
- 29 ：
- すみません。28=初心者です。
- 30 ：
- >例えばほぼ同時にperlが動いた場合
Configureの途中、libperl.soのダイナミックリンクを利用する
方を選択すると、実行モジュールのサイズが小さくなるし、
複数のperlインタプリタでイメージを共有できるので、
結果として,mmap()コールで実行ファイルをメモリににマッピング
する際のオーバヘッドの減少、ディスク/スワップ領域の利用効率の向上、
物理メモリの節約等のメリットがあるね。
(....デフォルトでは実行速度向上のために利用しないようになっているけど)
- 31 ：
- ネタスレ臭かったのにがんばってるね。
- 32 ：
- >>11
Perlのハッシュは分離連鎖法(separate chaining)で、ハッシュ値が衝突した場合リンクリストで繋いでいく方式。
詳しくはhv.cを読めば分かるよ。
#ちなみに、Perl5.7.2からはハッシュ関数が変更されています。
- 33 ：
- >>28-30
ありがとうございます。詳しい初心者さんと_gunzipさん
若干調整できるものの環境次第と覚えておきます。難しいなぁ。
- 34 ：
- Win32::DDEに関するドキュメントはどこにあるのでしょうか。
できれば日本語がよいのですが。
スレ違いですが、DDEに関して教えてくれるスレ知りませんか？
- 35 ：
- 久々にアゲてみたり
- 36 ：
- いいぞ〜初心者〜〜＞(・∀・)
- 37 ：
- evalを使っているcgiへの具体的な攻撃方法を教えて下さい。
また、どうしてもevalを使う必要があるときの、
攻撃回避方法も教えて下さい。
- 38 ：
- evalがどう言うものかを先に僕に教えて下さい。
よろしくお願いします。
- 39 ：
- えばる。
- 40 ：
- Perlで電気ストーブを作るにはどういう記述が必要なのかね？
俺に教えてみたまえ。Perlという言語はそもそも電気ストーブの開発の為に
考案された言語なのだよ。つまりこの質問に答えられないようならPerlについて何も理解していないということだ。
- 41 ：
- パールについてお聞きしたいです。
メールアドレスをパラメータにしてCGIに渡したいのですが、
このメールアドレスを暗号化した状態（つまり見ても分からない）で
CGIに渡したいです。 それで渡した後、暗号を複合化して
メールアドレスを使いたいです。
CRYPT関数は複合化できないし・・・
どうしたらよいのでしょうか？
- 42 ：
- >>41 複合化できるように暗号化する
- 43 ：
-
ヤフーオークションで、幻の人気商品、発見！！！
今は無き「コピーガードキャンセラー」↓
http://page5.auctions.yahoo.co.jp/jp/auction/e5292701
ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。
- 44 ：
- <<41
あの・・具体的に教えていただけると
ありがたいのですが・・・
関数とかないのですか？
- 45 ：
- >>44
http://search.cpan.org/doc/DPARIS/Crypt-DES-2.03/DES.pm
- 46 ：
- >>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の所にメールアドレスをいれて暗号
化するのですか？
- 47 ：
- >>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の使用を恐れることはないでしょう。
- 48 ：
- >>47
おお！ありがとう初心者たん。
- 49 ：
- >>46
plaintexの方ね。
- 50 ：
- アップローダーがとても重いのですが軽くする方法はありませんか？
- 51 ：
- >>50
.htaccessにこう記載する。
<Files *.cgi>
order deny,allow
deny from all
</Files>
- 52 ：
- ﾊｧ？？
きしょっ！
- 53 ：
- 汚染チェックってなんですか？
- 54 ：
- >>50
痩せろ
- 55 ：
- >>54
アスカ様ハァハァ。
>>53
http://www.google.co.jp/search?q=Perl+%89%98%90%F5%83%60%83F%83b%83N&hl=ja
- 56 ：
- 初心者パワーをなめちゃぁいかん。
- 57 ：
- >>56
上げただけじゃない・・・ｗ
- 58 ：
- 画像連結にfly使ったんですが、Unisysに特許料払わんとだめですか？
- 59 ：
- はい。私は毎月50万円払っています。
- 60 ：
- なんで
”名無しさん＠お腹いっぱい”
なんですか？
- 61 ：
- >>60
「名無しさん」を変えてないからだよ。
- 62 ：
- >1
perlってなんですか？
- 63 ：
- >>62
Perlで書かれたスクリプトを実行するコマンドです。
- 64 ：
- my及びlocal関数での局所化の必要性について教えて下さい。
- 65 ：
- それとついでにここの１さんは少なくとも中級者以上の実力はあると思うのです。
まぎらわしいのでＨＮを中級者に変えません？
- 66 ：
- こんにちわ、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の値が１だと$Aは0で固定
$Xの値が２だと$Aは1で固定
$Xの値が３だと$Aは0で固定
$Xの値が４だと$Aは3で固定
$Xの値が５だと$Aは0で固定
$Xの値が６だと$Aは3で固定
$Xの値が７だと$Aは3で固定
$Xの値が８だと$Aは7で固定
$Xの値が９だと$Aは3で固定
私の知識が正しければ、$TMPの値を$Xで割った余りの数値が表示され
1行ごとに値が変更されると思うのですが。。。
どこか間違っているのでしょうか
識者の皆様、ご回答をお願いします
- 67 ：
- ＞識者の皆様、ご回答をお願いします
「皆様」に聞きたいなら初心者スレに書け。
ここは>>1に聞く為のスレだ。
＞1行ごとに値が変更されると思うのですが。。。
固定されないが。
- 68 ：
- >>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以降を使いましょう。
- 69 ：
- >>68 ：初心者様
ご回答ありがとうございました
確認してみたところ、確かに、バージョンが古すぎました
（5.005_03)
$TMPの値を10**10 から 10**9 に変更して実施してみたところ
正常に動作することを確認しました
ご回答、ありがとうございました
- 70 ：
- >>66
老婆心ながら
変数名を３文字に統一しないなら「ＴＭＰ」は「ＴＥＭＰ」にした方が良いね。
あと、６６のスクリプトなら「＄Ａ］と「＄Ｘ］の変数名は逆にしようよ
一番良いのは
＄ＴＥＭＰ ＝＞ ＄Ｉ（カウント変数）
＄Ａ ＝＞ ＄Ｘ（計算値変数）
＄Ｘ ＝＞ ＄Ａ（定数）
細かいけど、癖にしてたほうが後で役に立つよ
- 71 ：
- 物凄く余計なお世話だ （笑
- 72 ：
- 正直
自分の知ってる範囲で決めた命名法ほど迷惑なものは無い
# 人に押し付ける事なかれ
- 73 ：
- しかし正論だ。（笑
- 74 ：
- $iは少し同意。
暗黙の了解化してるな。
$i使うのがカッコイイとか思って使ってきたけどね。
- 75 ：
- 意外な落とし穴は$aと$b
こないだこれではまりそうになった。
- 76 ：
- >>75
と、言うと？
$1みたいに何か意味のある変数？
- 77 ：
- >>76 sort で使われるね。
- 78 ：
- >>77
勉強になります。
sortってuniqの前準備に、
@list = sort(@list);
でしか使ったこと無いから知らなかったです。
sortも独自の書式使いますね。
sort{a <=> b}こんなん。
- 79 ：
- >>75
記憶違いだったら本当にごめん
sort文で使用される$a,$bは、完全にsort文だけの中で仮想変数で
外部の変数とは別扱いではなかったでしょうか？
初心者なんで激しいはツッコミは勘弁して下さい
- 80 ：
- 初心者以前に 日本語が変
- 81 ：
- 自分ツッコミを覚えた！
- 82 ：
- >81
パパパパンパンパッパー
79はレベルがあがった！
- 83 ：
- $a ってreadonlyじゃ無いから、間違えた時気付きにくいんだと思います
use strict;
$a = 100; #エラー出ない
これでModification of read-onlyが出ないと場合によっては嵌る事に
なるのかと
Perlはstrict+wスイッチが大前提だから、そんなに神経質になる程じゃ
ないと思いますが。
- 84 ：
- 何かクッキー残りまくってる （鬱
615は無視してくだされ。。
- 85 ：
- system関数を使用せずに
特定のＬＡＮ接続端末のＩＰアドレスを指定して
そのＭＡＣアドレスを知る方法が知りたい、教えれ
これは避けたいです
system "traceroute $IP_ADDR";
@MAC_ADDR = `arp $IP_ADDR`;
- 86 ：
- 自分でarpと同じ事すれば良し
- 87 ：
- arpって何層のプロトコルでしたっけ？
データリンク？IP使うからネットワーク？
socketは使えないからポート直接操作になるんでしょうか？
- 88 ：
- >>87様
arpは、確か操作端末のスタックメモリーの内容を表示するだけの命令だったと思います
直前に、目的のマシンとTCP/IP通信をしないと情報が得られませんし・・。
- 89 ：
- なるほど、TCP/IPで通信するにはMACアドレスを知っている必要がある。ならそのとき使った情報を見ればよいってことで良いでしょうか。
親切にありがとうございました。勉強し直してきます。
- 90 ：
- @@@@@@@@@@@@@@
- 91 ：
- こんなスレもありましたね。
- 92 ：
- >>91
ｱﾌｫか。>>1がいないのに上げてどうすんだよ。
- 93 ：
- 復帰してもいいですか? 質問してください。
- 94 ：
- （＾＾）
- 95 ：
- ほとんどのperlスレは山崎渉のレスが最期で終わってるな。
- 96 ：
- （＾＾）
- 97 ：
- （＾＾）
- 98 ：
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 99 ：
- ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
- 100 ：
- ∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
- 101 ：
- 教えてください。
ActivePerl5.6.1.635とAnhttpdでプログラムを
試しているのですが<STDIN>をプログラムに入れると
固まってしまいます。Anhttpdでプログラムを試している
方はどういう風になさっているんでしょうか。
- 102 ：
-
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
- 103 ：
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 104 ：
- ∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
- 105 ：
- >>101
#! C:/perl/bin/perl
print "Content-type: text/plain\n\n";
print "HELLO!\n";
print <STDIN>;
こんなんでも動くけど。
ActivePerl5.6.1 build631とAnhttpd1.42h
- 106 ：
- (⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
- 107 ：
- >>101
まさかとはおもうが
while(<STDIN>){ }
とかやってないよな？
- 108 ：
- ('x')
- 109 ：
- >>107
おまえな〜。2ヶ月も前の投稿にレスすんじゃねーよ。
と言いつつ3年前の投稿にレスしてみる。
この板って圧縮されないのかね〜。
- 110 ：
- ちょっと疑問に思ったんだが、MovableTypeとかPerlで書かれてるソフトあるけど、あれってソース公開しなくていいのかな？
絶対GPLのライブラリとか使ってると思うんだが…
- 111 ：
- MovableTypeって、ソースで公開されてない部分あるっけ？
- 112 ：
- 無いよ。>>110は何か勘違いしてる。
- 113 ：
- MovableTypeはPerlで書かれていてソースは公開されている。
>>110
>絶対GPLのライブラリとか使ってると思う
思うのは自由ですが、どの部分なのかをソースを見て教えて
欲しい。
付き合うからさ。
で、だとしたら何なの？
- 114 ：
- >>103
ｶﾞｯ
- 115 ：
-
∧＿∧
（ ・∀・） | | ｶﾞｯ
と ） | |
Ｙ /ノ 人
/ ） < >__Λ∩
＿/し' ／／. Ｖ｀Д´）/ ←>>98
（＿フ彡 /
- 116 ：
- 解散。
- 117 ：2017/12/30
- 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
51204SY4AW
ここで一句
フリーメールの判別方法
PHP質問・雑談スレ6【初心者お断り(ROM歓迎)】
JavaScript コメントの謎
ＰＰＰＨについて考えるべさ
現在最速で最軽量のプログラムの組み合わせはなんだ
姫君スクリプト
【初心者】励ましあいながらサイト製作【PHP】
ツリー式掲示板
Amazon EC2
--------------------
【韓国】「女のトイレを盗撮する男への報復だ！」 男性嫌悪サイト「Womad」、高麗大学の男子トイレを盗撮し画像流布［5/18］
●●● 極 真 は お 笑 い 団 体
COMBAT FLIGHT SIMULATOR 2 ＜パート11＞
逆にケンモメンってどういう女なら好きなの？ [773782618]
【原大駆】パチマガ旅打ち第3弾TAKA＆ショボ連スレ【袴一平】Part.26
英語が出来るようになってから人生が楽勝になって草
なんJ対魔忍部
乙女＠金色のコルダ3 AnotherSky攻略ﾈﾀﾊﾞﾚｽﾚ その4
【どうする】30代MR【悩んでる時間はない】
低身長のチビ男にHYDE崇拝者が多い件
【フレッツADSL】住友モデム友の会【Sシリーズ】
【非常事態宣言 】米クルーズ船「グランド・プリンセス」緊急帰港へ ：21人がコロナウイルス感染の可能性 1人死亡 [03/05]
百合・百合厨アンチスレ11(ワッチョイ有)
【青い空と】 松田聖子 71 【白い雲は】
なぜゲームキューブが売れなかったのか、理由がまったく語られていない気がするんだけど
サンプラザがたまに来るスレ
✪川島葵✪東海ラジオ新番組「FINEDAYS」を語ろう
【速報】神奈川・相模原 城山ダム 午後９時半から緊急放流開始 ★2
東京都庁2019年入都組スレ part17
【 定義に】モトブログスレ#37【 こだわらない】
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
