新規作成 | 管理 | 差分 | 検索 | FrontPage | ページ一覧 | 更新履歴 | RSS

PlugIn/repeat-times - 第1引数で指定した回数分、第2引数以降のリストを繰り返し出力する

管理

第1引数で指定した回数分、第2引数以降のリストを繰り返し出力する

$plugin->def("repeat-times",
  "第1引数で指定した回数分、第2引数以降のリストを繰り返し出力する",
  sub {
    my $count = shift;
    my @list = @_;
    my @ret = ();
    for (my $i=0; $i < $count; $i++) {
      push @ret, @list;
    }
    return @ret;
  }
);

メンテナンス

管理

   sub {
     my $count = shift;
+    $count = $count > 100 ? 100 : $count;
     my @list = @_;

大きすぎるリストは作れないように --SHIMADA 2003-07-25 (Fri) 16:15:41