Perl リスト内指定回数繰り返し

初歩的な質問で恐れ入ります。

Perlで、@array('りんご','キャベツ','バナナ','みかん');

の中身を、順次10回ずつ繰り返し実行したいのですが、どのようにしたら良いでしょうか

りんごりんごりんごりんご・・・（10回）キャベツキャベツキャベツキャベツ・・・（10回）という感じで、
ひとつめのリストの処理が10回終了したら次のリストを10回という感じです。

よろしくお願いします。

No.2 ベストアンサー 回答者： ralf124c 回答日時： 2012/12/21 15:42

たぶん実例が見たいのでは。

とりあえずこんな感じですか？
---------------------------------------------
#!/usr/bin/perl
my @aDATA = ("りんご","キャベツ","バナナ","みかん");
foreach(@aDATA){
　my $sNAME = $_;
　foreach(1..10){
　　print $_.' - '.$sNAME."\n";
　}
}
---------------------------------------------
注意：コピペするならインデント用の全角空白に気をつけてね

この回答へのお礼

ありがとうございます。解決しました。

お礼日時：2013/02/10 11:01

No.1 回答者： Tacosan 回答日時： 2012/12/20 18:04

「中身を、順次10回ずつ繰り返し実行したい」が何を言ってるのかよくわからんのだけど, 単純に 2重ループにしちゃダメなの?

この回答へのお礼

ありがとうございます。大変参考になりました。

お礼日時：2014/09/27 13:57