bash_n_examples/perl/perl.pl

   1 use strict;
   2 use POSIX;
   3 use Fcntl;
   4 my $filename = $ARGV[0];
   5 my $pos = $ARGV[1];
   6 my $content;
   7 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = lstat("$filename");
   8 my $n;
   9 if (open IFILE,$filename) {
  10     if ($size<$pos) {
  11         printf("0\n");
  12     } else {
  13         $size-=$pos;
  14         printf("$size\n");
  15     }
  16     printf("### 100\n");
  17     seek (IFILE, $pos, 0);
  18     while ($n = read(IFILE,$content,$blksize)!= 0) {
  19         print $content;
  20     }
  21     close IFILE;
  22     printf("### 200\n");
  23 } else {
  24     printf("### 500\n");
  25 }
  26 exit 0