Perlなんですが・・・ (119ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
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の値が変化しません
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-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.012s