Source

dlvolumise / dlvolumise

Full commit
#!/usr/bin/perl -w
#
# This script reads the current directory and moves all of the files (except CHECKSUM files),
# into numbered subdirectories, to a CD or DVD's worth of size.  It makes extensive use of
# du (disk usage).  The CHECKSUM files (if available), are split up into the subdirectories,
# ready for writing to DVDs or CDs.
# -n (no-op) (don't do anything, just show what would have been done).
# -s (size, cd, dvd5, (any value bytes, *K, *M, *G)
#

use strict;
use warnings;
use diagnostics;

use Data::Dumper;
use Getopt::Std;
#----------------------------------------------------------------------------
sub Main();
#----------------------------------------------------------------------------
sub Main()
{
	my %opts = ( );
	getopts('ns:', \%opts);
	print Dumper \%opts;
}
#----------------------------------------------------------------------------
exit(Main());