File Perl

  1. Home
  2. Perl
  3. File
  4. Seek a minus value
open(FH, "db") or die "Can't open datebook: $!\n";
seek(FH,-13,2) or die;
while(){
    print;
}