Perlなんですが・・・ (119ﾚｽ)
上下前次1-新
66(3): 名無しさん＠お腹いっぱい。 02/02/04 11:49 ID:fnAmBNHz(1) AAS
こんにちわ、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の値が変化しません
省16
67: 名無しさん＠お腹いっぱい。 02/02/04 12:00 ID:??? AAS
＞識者の皆様、ご回答をお願いします
「皆様」に聞きたいなら初心者スレに書け。
ここは>>1に聞く為のスレだ。
＞1行ごとに値が変更されると思うのですが。。。
固定されないが。
68(1): 初心者 02/02/04 13:31 ID:g/ay00Kk(2/2) AAS
>>64
必要性と言われても・・というのが正直なところです。
何らかの必要性があるからmyやlocalが存在するのでしょう。
一般的にグローバル変数は少ない方がいいとされています。
ソースを他人に見せるときや、昔書いたソースを見直すとき、
グローバル変数が無い方が理解しやすいです。
>>65 初心忘るべからず。
>>66
Perlのバージョンはいくつでしょう？
外部ﾘﾝｸ[html]:www.perldoc.com
省4
69: 66 02/02/04 13:53 ID:??? AAS
>>68 ：初心者様
ご回答ありがとうございました
確認してみたところ、確かに、バージョンが古すぎました
（5.005_03)
$TMPの値を10**10 から 10**9 に変更して実施してみたところ
正常に動作することを確認しました
ご回答、ありがとうございました
70: 名無しさん＠お腹いっぱい。 02/02/04 20:08 ID:+YaLpde/(1) AAS
AA省
71: 名無しさん＠お腹いっぱい。 02/02/04 20:11 ID:??? AAS
物凄く余計なお世話だ （笑
72: 名無しさん＠お腹いっぱい。 02/02/04 20:39 ID:??? AAS
正直
自分の知ってる範囲で決めた命名法ほど迷惑なものは無い
# 人に押し付ける事なかれ
73: 名無しさん＠お腹いっぱい。 02/02/04 20:40 ID:nACYCDdm(1) AAS
しかし正論だ。（笑
74: 名無しさん＠お腹いっぱい。 02/02/04 23:04 ID:??? AAS
$iは少し同意。
暗黙の了解化してるな。
$i使うのがカッコイイとか思って使ってきたけどね。
75(2): 名無しさん＠お腹いっぱい。 02/02/04 23:18 ID:??? AAS
意外な落とし穴は$aと$b
こないだこれではまりそうになった。
76(1): 名無しさん＠お腹いっぱい。 02/02/04 23:21 ID:??? AAS
>>75
と、言うと？
$1みたいに何か意味のある変数？
77(1): 名無しさん＠お腹いっぱい。 02/02/04 23:30 ID:??? AAS
>>76 sort で使われるね。
78: 名無しさん＠お腹いっぱい。 02/02/04 23:33 ID:??? AAS
>>77
勉強になります。
sortってuniqの前準備に、
@list = sort(@list);
でしか使ったこと無いから知らなかったです。
sortも独自の書式使いますね。
省1
79(1): 名無しさん＠お腹いっぱい。 02/02/05 01:29 ID:ucr4R94I(1) AAS
>>75
記憶違いだったら本当にごめん
sort文で使用される$a,$bは、完全にsort文だけの中で仮想変数で
外部の変数とは別扱いではなかったでしょうか？
初心者なんで激しいはツッコミは勘弁して下さい
80: 79 02/02/05 01:30 ID:??? AAS
初心者以前に 日本語が変
81(1): 名無しさん＠お腹いっぱい。 02/02/05 02:06 ID:??? AAS
自分ツッコミを覚えた！
82: 名無しさん＠お腹いっぱい。 [ ] 02/02/05 02:19 ID:??? AAS
>81
パパパパンパンパッパー
79はレベルがあがった！
83: 615 02/02/05 02:55 ID:??? AAS
$a ってreadonlyじゃ無いから、間違えた時気付きにくいんだと思います
use strict;
$a = 100; #エラー出ない
これでModification of read-onlyが出ないと場合によっては嵌る事に
なるのかと
Perlはstrict+wスイッチが大前提だから、そんなに神経質になる程じゃ
ないと思いますが。
84: 名無しさん＠お腹いっぱい。 02/02/05 02:56 ID:??? AAS
何かクッキー残りまくってる （鬱
615は無視してくだされ。。
85(1): 617 （←違う） 02/02/06 18:40 ID:hdNADrgP(1) AAS
system関数を使用せずに
特定のＬＡＮ接続端末のＩＰアドレスを指定して
そのＭＡＣアドレスを知る方法が知りたい、教えれ
これは避けたいです
system "traceroute $IP_ADDR";
@MAC_ADDR = `arp $IP_ADDR`;
上下前次1-新書関写板覧索設栞歴
あと 34 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.007s