テキストのn行目以降を取得する

Perl 30分プログラム

30分プログラム、その786。http://aligach.net/diary/20100617.html#p01:tilteにインスパイアされました。
tailでできるらしいけど、あえてPerlで。ついでにコマンドラインオプションのパースもやってみた。

使い方

$ jot 10| perl rest.pl -n 0
1
2
3
4
5
6
7
8
9
10

$ jot 10| perl rest.pl -n 3
4
5
6
7
8
9
10

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
use strict;
use warnings;
use Data::Dumper;
use Getopt::Std;

sub drop($@){
    my ($n, @xs) = @_;
    if($n == 0){
	@xs;
    }else{
	my ($y,@ys) = @xs;
	&drop($n-1, @ys);
    }
}

my %opts;
getopt("n",\%opts);
print drop($opts{"n"},<>);

参考