Perlなんですが・・・

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

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

>>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の所にメールアドレスをいれて暗号
化するのですか？

>>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
おお！ありがとう初心者たん。

>>46
plaintexの方ね。

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

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

ﾊｧ？？
きしょっ！

汚染チェックってなんですか？

>>50
痩せろ

>>54
アスカ様ハァハァ。

>>53
http://www.google.co.jp/search?q=Perl+%89%98%90%F5%83%60%83F%83b%83N&hl=ja

初心者パワーをなめちゃぁいかん。

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

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

はい。私は毎月50万円払っています。

なんで
”名無しさん＠お腹いっぱい”
なんですか？

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

>1
perlってなんですか？

>>62
Perlで書かれたスクリプトを実行するコマンドです。

my及びlocal関数での局所化の必要性について教えて下さい。

それとついでにここの１さんは少なくとも中級者以上の実力はあると思うのです。
まぎらわしいのでＨＮを中級者に変えません？

こんにちわ、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行ごとに値が変更されると思うのですが。。。

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

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

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

>>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以降を使いましょう。

>>68 ：初心者様
ご回答ありがとうございました
確認してみたところ、確かに、バージョンが古すぎました
（5.005_03)

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

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

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

しかし正論だ。（笑

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

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

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

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

>>76 sort で使われるね。

>>77
勉強になります。

sortってuniqの前準備に、

@list = sort(@list);

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

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

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

>>75
記憶違いだったら本当にごめん
sort文で使用される$a,$bは、完全にsort文だけの中で仮想変数で
外部の変数とは別扱いではなかったでしょうか？

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

初心者以前に 日本語が変

自分ツッコミを覚えた！

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

$a ってreadonlyじゃ無いから、間違えた時気付きにくいんだと思います

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

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

system関数を使用せずに
特定のＬＡＮ接続端末のＩＰアドレスを指定して
そのＭＡＣアドレスを知る方法が知りたい、教えれ

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

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

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

>>87様

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

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

@@@@@@@@@@@@@@

こんなスレもありましたね。

>>91
ｱﾌｫか。>>1がいないのに上げてどうすんだよ。

復帰してもいいですか? 質問してください。

（＾＾）

ほとんどのperlスレは山崎渉のレスが最期で終わってるな。

（＾＾）

（＾＾）

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

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

>>101
#! C:/perl/bin/perl

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

print <STDIN>;

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

>>101
まさかとはおもうが
while(<STDIN>){ }
とかやってないよな？

('x')

>>107
おまえな〜。2ヶ月も前の投稿にレスすんじゃねーよ。
と言いつつ3年前の投稿にレスしてみる。

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

ちょっと疑問に思ったんだが、MovableTypeとかPerlで書かれてるソフトあるけど、あれってソース公開しなくていいのかな？
絶対GPLのライブラリとか使ってると思うんだが…

MovableTypeって、ソースで公開されてない部分あるっけ？

無いよ。>>110は何か勘違いしてる。

MovableTypeはPerlで書かれていてソースは公開されている。

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

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

付き合うからさ。

で、だとしたら何なの？

>>103
ｶﾞｯ

解散。

★2ch勢いランキングサイトリスト★

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

※ 要サイト名検索

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』 というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

51204SY4AW

津地方裁判所で２０日、２０２２年５月に三重県伊賀市で指定暴力団・絆會系「由仁総業」の谷奥由浩組長を拳銃で撃ち、殺害しようとしたとして殺人未遂などの罪に問われた、事件当時・特定抗争指定暴力団・六代目山口組系三代目一心会傘下「芦川会」組員・清水勇介被告（２７）＝茨城県水戸市＝の判決公判が開かれ、清水被告に懲役１５年（求刑・懲役１８年）の判決を言い渡した。

判決で津地裁は、「拳銃を至近距離から複数回発砲しており非常に危険な犯行であり、日中の病院駐車場での敢行は市民を巻き込みかねず、地域に大きな不安と恐怖を与えた」と述べ、弁護側の「命中していない４発目の弾丸は、被害者に向けて撃っていない」との主張に対しては、「被害者に対する未必的な殺意にとどまるにしても、結果は重大」として、清水被告に懲役１５年を言い渡した。

　事件当時、芦川会組員だった清水被告は２０２２年５月１０日午前１１時半ごろ、伊賀市内の病院の駐車場で谷奥組長の足などを拳銃で撃ち、殺害しようとしたとされている。清水被告は、事件の４日後の１４日午後に千葉県内の警察署に出頭した。