tools/trickle_data_patch.pl

   1 #! /usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 die "usage: $0 [pieces] [filename]\n" if (@ARGV != 2);
   7
   8 my $pieces = shift;
   9 my $file = shift;
  10
  11 die "$file does not exist\n" if (-e $file == 0);
  12
  13 my $copyLoopSize = 16 * 1024;
  14 my $copyLoops = ((-s $file) / $copyLoopSize) / $pieces;
  15
  16 # write out all the interim files, excluding the last (since it's the entire file)
  17 foreach my $piece (1 .. $pieces-1)
  18 {
  19         open(IN, $file);
  20         binmode(IN);
  21
  22         my $dir =  "piece" .  $piece;
  23         mkdir($dir);
  24         open(OUT, ">" . $dir . "/" . $file);
  25         binmode(OUT);
  26
  27         foreach (1 .. ($piece * $copyLoops))
  28         {
  29                 my $buffer;
  30                 read IN, $buffer, $copyLoopSize;
  31                 print OUT $buffer;
  32         }
  33
  34         close(IN);
  35         close(OUT);
  36 }
  37
  38 # copy the last piece
  39 {
  40         open(IN, $file);
  41         binmode(IN);
  42
  43         my $dir =  "piece" .  $pieces;
  44         mkdir($dir);
  45         open(OUT, ">" . $dir . "/" . $file);
  46         binmode(OUT);
  47
  48         while (1)
  49         {
  50                 my $buffer;
  51                 read IN, $buffer, $copyLoopSize;
  52                 last if (length $buffer == 0);
  53                 print OUT $buffer;
  54         }
  55
  56         close(IN);
  57         close(OUT);
  58 }
  59
  60 system("md5sum -b $file piece*/*");