Help for this page

Select Code to Download


  1. or download this
    use Tie::File;
    ...
    
    print @file[$#file - $length + 1 .. $#file];
    
  2. or download this
        print @file[-$length .. -1];