perl 初等プログラミングについて

Question

条件文において、配列の中身を変数で取り出すとエラーが起きます。
また、配列の中身を変数で取り出し、別の変数に移してから条件文で使ってもエラーが起きます。
また、エラーメッセージは条件文において0で割っているというものですが、そのようなことはありません。
以下コード内容
$a = 10000;
$b = 3;
$d = 1;
my @primenumbers;
$primenumbers[0] = 2;
while($a <= 11000){
    while($b <= sqrt $a) {
        $c = 0;
        $flaga = 0;
        while($c <= $b){
            $f = $primenumbers[$c];
            print $f;
            if($b % $f == 0){
                $flaga = 1;
                $c = $b
            }
            $c = $c + 1;
        }
        if($flaga == 0){
            $primenumbers[$d] = $b;
            $d = $d + 1;
        }
        $b = $b + 1;
    }
    $e = 0;
    $flagb = 0;
    while($e <= $d){
        $g = $primenumbers[$e];
        if($a % $g == 0){
            $flagb =1;
            $e = $d;
        }
        $e = $e + 1;
    }
    if($flagb == 0){
        print "
";
        print $a;
        print "Prime!";
    }
    $a = $a + 1;
}

以下出力&エラーメッセージ
Illegal modulus zero at 100.pl line 13.
2

エラーの理由がわかる方がいたら原因を教えてくださると非常にありがたいです。

tatsu99 · Accepted Answer

print $f; 　　　　　・・・・①

if($b % $f == 0){　・・・・②
の個所ですが
①を
printf("\$f=<%s> \$c=<%s>\n",$f,$c);
にして、$fと$cの内容を表示します。
すると
$f=<2> $c=<0>
$f=<> $c=<1>
Illegal modulus zero at goo1a.pl line 13.
のようになります。
$cが１のとき、$fは空です。これは、数値としては0の扱いになります。
従って②の個所で $bを$fで割った余りが０かどうか判断しているので、ここでエラーになります。
（余りを求める演算子％で割り算が発生します）

kmee · Answer

1. Perlのリスト(配列)は、今ある長さの外を指定しても「未定義値」を返すだけで、エラーになったりしない。
　@x=(0,1) ; # 長さ2 なので、 $x[0],$x[1] だけが「範囲内」 ## 負の値で後から、というのもあるけど。
　$y = $x[5] ; # だけど、5とか指定してもエラーにはならないで、「未定義値」になる

2. Perlでの多くの演算は「数値」に変換して行われる。
　「未定義値」は 0 として扱われる。

3. % (余りを求める演算) は「割り算した余り」なので、 0 で割ってはいけない。

で、ざっと眺めたんですが、どういう考えでやろうとしているのか、よくわかりません。
ですから、どうするのかが正解かがよくわかりません。

・$a,$b, 等と1文字だけの変数がたくさんでてきますが、それぞれの役割がよくわかりません。
　もうちょっと名前を工夫しましょう。
　「配列の長さ」でないものを「配列の長さ」に使おうとしているように見受けられます。

・配列の全要素について処理を繰り返したいのなら、 foreach が便利です。
　また、配列の長さを調べる方法がありますし、
　配列に追加するのに push を使うと、自動で最後に加えてくれるので、
わざわざ別の変数を用意して管理する必要はありません。

Ogre7077 · Answer

存在しない添え字で配列から undef を取り出し、
undef は数値 0 として評価されるため、
$b % $f が零除算しています。

存在しない添え字を使うこと自体がバグである気がしますが、
もしこれが仕様通りであるならば、以下のいずれかの対策が必要です
* 配列の全要素を事前に全て 0 以外の値で初期化する
* 配列ではなくハッシュを使い、取得時に添え字の存在確認をし、存在しないなら 0 以外の値で代用する

めぐみん_ · Answer

私はPerlはど素人ですけど、それでもちょっと気になった点が。
コンパイルするとあちこち修正があった点はバージョンによるのかもですが・・・・

my @primenumbers;
$primenumbers[0] = 2;
・
・
while($c <= $b){
$f = $primenumbers[$c];
print $f;
if($b % $f == 0){
$flaga = 1;
$c = $b
}
$c = $c + 1;
}

この中で配列：$primenumbers[$c]って最初の要素数：０の時の値しか格納されてなく、$cを増やしていっても配列の中身は存在してないんじゃない？
$primenumbers[1] とかは。
Perlそのものの経験がないので全く何をしようとしているコードかはわかりませんけど、配列に追加代入もせず要素数だけ増やしてもって思えました。
けど、結局は対処方法はわかりませんけどね。（配列に値を追加していけば良いのかもですが、何を追加したいのかが？？？？です。）

perl 初等プログラミングについて

print $f; ・・・・①

1. Perlのリスト(配列)は、今ある長さの外を指定しても「未定義値」を返すだけで、エラーになったりしない。

存在しない添え字で配列から undef を取り出し、

私はPerlはど素人ですけど、それでもちょっと気になった点が。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

print $f; 　　　　　・・・・①