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

PlugIn/tail - 末尾n個だけ

管理

末尾n個だけ

$plugin->def("tail",
  "末尾n個だけ",
  sub {
    my $n = shift;
    return "" unless $n;
    my @arr = @_;
    if (scalar(@arr) < $n) {
      $n = scalar(@arr);
    }
    return splice(@arr, $#arr-$n+1,$n);
  }
);

使用例

管理

##(tail 5 1 2 3 4 5 6 7 8 9 10)

6 7 8 9 10

第1引数で指定した数だけ末尾から取り出す。

PlugIn/headと組み合わせるとリストの一部分を取り出すことも可能

##(head 3 (tail 5 1 2 3 4 5 6 7 8 9 10))

6 7 8