user-tools/fcomplete

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4
   5 open $src, '<:raw', $ARGV[0] or die "$!\n";
   6 open $dst, '>>:raw', $ARGV[1] or die "$!\n";
   7
   8 seek($src, tell $dst, 0) or die "$!\n";
   9
  10 LOOP:
  11 $bytes = read $src, $buf, 4096;
  12 defined $bytes or die "$!\n";
  13 print {$dst} $buf or die "$!\n";
  14 $bytes > 0 or exit 0;
  15 goto LOOP;
  16
  17 __END__
  18
  19 =pod
  20
  21 =head1 NAME
  22
  23 fcomplete - Complete a smaller file with the data from a bigger one
  24
  25 =cut
  26
  27 EOF