Perlなんですが・・・ (119ﾚｽ)

Perlなんですが・・・ http://medaka.5ch.net/test/read.cgi/php/1000191385/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

66: 名無しさん＠お腹いっぱい。 [] 02/02/04 11:49 ID:fnAmBNHz こんにちわ、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行ごとに値が変更されると思うのですが。。。 どこか間違っているのでしょうか 識者の皆様、ご回答をお願いします http://medaka.5ch.net/test/read.cgi/php/1000191385/66

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.557s*