どう書く？org : tailの実装

original page : http://ja.doukaku.org/195/

'tail'を実装してください。

巨大なファイルでも効率的に動作するようにしてください。

最低限必要な機能は、

* 行数指定

* 「-f」パラメータの対応

です。

#7009

original page : http://ja.doukaku.org/comment/7009/

まじめに書いたらCのようになってしまいました。

read.file <- function (infile, offset=0){
   con <- file(infile)
   open(con)
   seek(con, offset)
   lines <- readLines(con)
   cur.offset <- seek(con)
   close(con)
   list(l=lines, o=cur.offset)
}

my.tail <- function(infile, n=10, follow=FALSE){
   lines <- read.file(infile)
   writeLines(tail(lines$l, n))
   if(follow){
       size  <- file.info(infile)$size
       repeat{
           if(size < (s <- file.info(infile)$size)){
               lines <- read.file(infile, lines$o)
               writeLines(lines$l)
               size <- s
           }
           Sys.sleep(1)
       }
   }
}