Perlなんですが・・・
まったくの初心者なんですけど
Perlの質問に答えてみようと思います
とりあえず my は使ったほうがいいみたいです
よろしくお願いします >>50
.htaccessにこう記載する。
<Files *.cgi>
order deny,allow
deny from all
</Files> 画像連結にfly使ったんですが、Unisysに特許料払わんとだめですか? なんで
”名無しさん@お腹いっぱい”
なんですか? >>62
Perlで書かれたスクリプトを実行するコマンドです。 my及びlocal関数での局所化の必要性について教えて下さい。 それとついでにここの1さんは少なくとも中級者以上の実力はあると思うのです。
まぎらわしいのでHNを中級者に変えません? こんにちわ、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行ごとに値が変更されると思うのですが。。。
固定されないが。 >>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 に変更して実施してみたところ
正常に動作することを確認しました
ご回答、ありがとうございました >>66
老婆心ながら
変数名を3文字に統一しないなら「TMP」は「TEMP」にした方が良いね。
あと、66のスクリプトなら「$A]と「$X]の変数名は逆にしようよ
一番良いのは
$TEMP => $I(カウント変数)
$A => $X(計算値変数)
$X => $A(定数)
細かいけど、癖にしてたほうが後で役に立つよ 正直
自分の知ってる範囲で決めた命名法ほど迷惑なものは無い
# 人に押し付ける事なかれ $iは少し同意。
暗黙の了解化してるな。
$i使うのがカッコイイとか思って使ってきたけどね。 意外な落とし穴は$aと$b
こないだこれではまりそうになった。 >>75
と、言うと?
$1みたいに何か意味のある変数? >>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スイッチが大前提だから、そんなに神経質になる程じゃ
ないと思いますが。 何かクッキー残りまくってる (鬱
615は無視してくだされ。。 system関数を使用せずに
特定のLAN接続端末のIPアドレスを指定して
そのMACアドレスを知る方法が知りたい、教えれ
これは避けたいです
system "traceroute $IP_ADDR";
@MAC_ADDR = `arp $IP_ADDR`; arpって何層のプロトコルでしたっけ?
データリンク?IP使うからネットワーク?
socketは使えないからポート直接操作になるんでしょうか? >>87様
arpは、確か操作端末のスタックメモリーの内容を表示するだけの命令だったと思います
直前に、目的のマシンとTCP/IP通信をしないと情報が得られませんし・・。
なるほど、TCP/IPで通信するにはMACアドレスを知っている必要がある。ならそのとき使った情報を見ればよいってことで良いでしょうか。
親切にありがとうございました。勉強し直してきます。 >>91
アフォか。>>1がいないのに上げてどうすんだよ。 ほとんどのperlスレは山崎渉のレスが最期で終わってるな。
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━― ∧_∧
ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。
=〔~∪ ̄ ̄〕
= ◎――◎ 山崎渉 教えてください。
ActivePerl5.6.1.635とAnhttpdでプログラムを
試しているのですが<STDIN>をプログラムに入れると
固まってしまいます。Anhttpdでプログラムを試している
方はどういう風になさっているんでしょうか。
__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄ ∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ >>101
#! C:/perl/bin/perl
print "Content-type: text/plain\n\n";
print "HELLO!\n";
print <STDIN>;
こんなんでも動くけど。
ActivePerl5.6.1 build631とAnhttpd1.42h
(⌒V⌒)
│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン >>101
まさかとはおもうが
while(<STDIN>){ }
とかやってないよな?
>>107
おまえな〜。2ヶ月も前の投稿にレスすんじゃねーよ。
と言いつつ3年前の投稿にレスしてみる。
この板って圧縮されないのかね〜。 ちょっと疑問に思ったんだが、MovableTypeとかPerlで書かれてるソフトあるけど、あれってソース公開しなくていいのかな?
絶対GPLのライブラリとか使ってると思うんだが… MovableTypeって、ソースで公開されてない部分あるっけ? MovableTypeはPerlで書かれていてソースは公開されている。
>>110
>絶対GPLのライブラリとか使ってると思う
思うのは自由ですが、どの部分なのかをソースを見て教えて
欲しい。
付き合うからさ。
で、だとしたら何なの?
∧_∧
( ・∀・) | | ガッ
と ) | |
Y /ノ 人
/ ) < >__Λ∩
_/し' //. V`Д´)/ ←>>98
(_フ彡 / ★2ch勢いランキングサイトリスト★
◎ +ニュース
・ 2NN
・ 2chTimes
◎ +ニュース新着
・ 2NN新着
・ Headline BBY
◎ +ニュース他
・ Desktop2ch
・ 記者別一覧
◎ 全板
・ 全板縦断勢いランキング
・ スレッドランキング総合ランキング
◎ 実況込み
・ 2勢
・ READ2CH
・ i-ikioi
※ 要サイト名検索 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
51204SY4AW 津地方裁判所で20日、2022年5月に三重県伊賀市で指定暴力団・絆會系「由仁総業」の谷奥由浩組長を拳銃で撃ち、殺害しようとしたとして殺人未遂などの罪に問われた、事件当時・特定抗争指定暴力団・六代目山口組系三代目一心会傘下「芦川会」組員・清水勇介被告(27)=茨城県水戸市=の判決公判が開かれ、清水被告に懲役15年(求刑・懲役18年)の判決を言い渡した。
判決で津地裁は、「拳銃を至近距離から複数回発砲しており非常に危険な犯行であり、日中の病院駐車場での敢行は市民を巻き込みかねず、地域に大きな不安と恐怖を与えた」と述べ、弁護側の「命中していない4発目の弾丸は、被害者に向けて撃っていない」との主張に対しては、「被害者に対する未必的な殺意にとどまるにしても、結果は重大」として、清水被告に懲役15年を言い渡した。
事件当時、芦川会組員だった清水被告は2022年5月10日午前11時半ごろ、伊賀市内の病院の駐車場で谷奥組長の足などを拳銃で撃ち、殺害しようとしたとされている。清水被告は、事件の4日後の14日午後に千葉県内の警察署に出頭した。