perlの比較、ループの使い方について質問です。

Question

perlの初心者でperlを使っていろいろと勉強しているのですが、以下のような場合、簡単に書ける方法ってないでしょうか？
比較、ループなど調べてみたのですが、なかなか思うようにいきません。
よろしくお願いします。
なお、以下のスクリプトではエラーが出て動きませんが、その点は今回の説明の為ご了承願います。

my @hoge(1,10,100,1000,10000,100000,1000000);
my $no=☆　←☆については1～5の間でランダムに設定します。

my(@test);
for (my $i=0; $i<$no; $i++) {
@test[$i]=@hoge[$i];

}

例えば$noが２の場合、@test[0]と@test[1]を比較(@test[0]<@test[1])して偽の場合は、エラーを出し、$noが３の場合、@test[0]と@test[1]と@test[2]を比較(@test[0]<@test[1]<@test[2])して偽の場合は、エラーを出し、$noが４の場合、@test[0]と@test[1]と@test[2]と@test[3]を比較(@test[0]<@test[1]<@test[2]<@test[3])して偽の場合は、エラーを出し……以下同じような感じで進めたいのですが、簡単な書き方ってないでしょうか？

if ($no==2){
unlss (@test[0]<@test[1]){エラー}
}elsif($no==3){
unless (@test[0]<@test[1]<@test[2]){エラー}
}elsif($no==4){
unless (@test[0]<@test[1]<@test[2]<@test[3]){エラー}
}

上記のような書き方となるかと思いますが、$noが2の場合、test配列に@test[2]と@test[3]が変数としてない為上記の書き方ではスクリプト自体エラーとなります。

説明が分かりにくい点については申し訳ありませんが、どなたかご教授願えないでしょうか。

よろしくお願いします。

kumoz · Accepted Answer

配列の要素が数値順に並んでいるか否かのチェックは grep を使って行うことができます。

次のコードは、すべての隣接する要素を数値比較し、直前の要素よりも小さい要素の添字を @small に入れるものです。

my $hoge = (1, 10, 100, 50, 1000, 10000, 5000, 100000);
my @small = grep { $hoge[$_ - 1] > $hoge[$_] } 1 .. $#hoge;
print "$hoge[$_ -1] > $hoge[$_]\n" foreach @small;

範囲演算子の両側の数値を変えれば、部分配列もチェックできます。1 .. 3 とすれば先頭の４つを、3 .. 5 とすれば添字 2 から 5 までをチェックできます。また、grep は if や unless 条件部に置くことができます。次のコードは、$hoge[0] < $hoge[1] < $hoge[2] と同等の効果が得られます。

unless (grep { $hoge[$_ - 1] >= $hoge[$_] } 1 .. 2) {
# 数値順に並んでいるときの処理
} else {
# 数値順に並んでいないときの処理
}

kumoz · Answer

> my $hoge = (1, 10, 100, 50, 1000, 10000, 5000, 100000);

No3 です。すみませんが、１つ記述ミスがありました。以下のように訂正します。

my @hoge = (1, 10, 100, 50, 1000, 10000, 5000, 100000);

kabaokaba · Answer

文法的なことはNo.1さんのご指摘の通りですが・・・・たぶんきちんとした書籍を読んだ方がいいです．ぜったいこんな書き方しない！っていう書き方が散見できますので＃my(@test) なんて普通は書かない・・・＃意図的にわざとすることがないとは言わないけど次に，きちんと処理手順を考えましょう要は $no の値に応じて，異なるものを比較して結果を出したいということでしょう $no=2 => $test[0]<$test[1] $no=3 => $test[0]<$test[1]<$test[2] という具合に（$no=1の場合のチェックは？）．となると， (1) $noに応じて，比較対象を取り出す (2) 取り出した比較対象を実際に比較する (1)については配列の「スライス」をすればいいでしょう．配列@testの0..$no-1の要素を取り出せばOK (2)については@testの各要素が数字であるという条件で今回のように「順番」であることを求めるならばソートを使えばいいでしょう． @testの0..$no-1でできた配列の要素と，それを昇順で並べた配列の要素が順番も含めて完全に一致していればクリア，そうでなければアウト＃この処理だと$noのときは常にクリアとなるついでにいえば，質問に書かれていることだけなら @hogeからわざわざ@testをコピーする必要はないでしょう？ @hogeをそのまま使えばOKでは？アルゴリズムの一例をあげました．こういうののコツは・if-elseを繰り返さない（一般に，同じことの繰り返しはしない方がいい）・処理を細切れにして（一個の処理単位はできるだけ短く），　入口と出口を明確にして，それらをつなぎ合わせるというようなことです．具体的なコードはご自分でどうぞ．「スライス」「ソート」「配列の比較」というよくある処理の組み合わせです．

kmee · Answer

配列の要素を使用するときは $test[0] と$を使うのが普通。 @test[0]は 0番目の要素からなるリスト。この違いは場合によっては結構重要。 > $test[0]<$test[1]<$test[2] Perlではこのような条件式の書き方はゆるされていません。このような数学的な書き方は、プログラミング言語によって 1)そもそも文法エラーになる 2)書けるけど実行時にエラー 3)書けるけど意味が違う: a@test[2]と@test[3]が変数としてない為のエラーではありません。そもそもPerlでは、使用してない添字を指定してもエラーは出ません。 a

perlの比較、ループの使い方について質問です。

配列の要素が数値順に並んでいるか否かのチェックは grep を使って行うことができます。

> my $hoge = (1, 10, 100, 50, 1000, 10000, 5000, 100000);

文法的なことはNo.1さんのご指摘の通りですが・・・・

配列の要素を使用するときは

この回答への補足

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

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

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

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