bookcrop

Miscellaneous tools for digitizing books
git clone git://lumidify.org/bookcrop.git (fast, but not encrypted)
git clone https://lumidify.org/bookcrop.git (encrypted, but very slow)
git clone git://4kcetb7mo7hj6grozzybxtotsub5bempzo4lirzc3437amof2c2impyd.onion/bookcrop.git (over tor)
Log | Files | Refs | README

sort.pl (272B)

      1 #!/usr/bin/env perl
      2 
      3 use strict;
      4 use warnings;
      5 use File::Copy qw(copy);
      6 
      7 my $destdir = shift;
      8 my $ext = shift;
      9 my $i = 1;
     10 my $digits = length(scalar(@ARGV));
     11 foreach my $file (@ARGV) {
     12 	my $dest = sprintf("%0${digits}d.$ext", $i);
     13 	copy($file, "$destdir/$dest");
     14 	$i++;
     15 }