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

PlugIn/tabulate - 第一引数をカラム数とした表に整形する

管理

第一引数をカラム数とした表に整形する

$plugin->def("tabulate",
  "第一引数をカラム数とした表に整形する",
  sub {
    my $colnum = shift;
    my (@row, @ret);
    while (@row = splice(@_,0,$colnum)) {
      push @ret, ",".join(",", @row);
    }
    return join "\n", @ret;
  }
);

使用例

管理

##(tabulate 7 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20)

1234567
891011121314
151617181920