🚀 go-pugleaf

In article <6256@optilink.UUCP>, cramer@optilink (Clayton Cramer) writes:
>In article <1991Apr15.024343.6027@cs.mcgill.ca>, storm@cs.mcgill.ca (Marc WANDSCHNEIDER) writes:
>> 
>>I am looking for any program that will split up large files into smaller ones
>
>Couldn't find a valid path to you, and this may be generally useful:
>[long program deleted]

Gack, a 101-line program to do something as simple as chopping a file?

Get perl from SIMTEL20:<MSDOS.PERL> and run the following script;
notice that the instructions are longer than the program!

If you have 4DOS, you can type  `set .pl=c:\bin\perl.exe' and call
this script `split.pl', then you can just type `split 64 bigfile file0000'.

# split: Chop a file into bite-sized pieces.
#
#  Usage:  split # file result
#
# Chops the <file> into pieces <#>K in size.
#
# <result> provides the file names to use.  If it ends in digits, then
# the digits are incremented.  For example if you say `file0001' then
# the output files will be `file0001' `file0002' `file0003'...
#
# If <result> ends in letters, then the letters are incremented.  For
# example, if you say `fileaa', then the output files will be `fileaa',
# `fileab', ... `fileaz', `fileba' ...
#
die "usage: split # file result\n" unless (($s $f, $r) = @ARGV) == 3;
open(f) || die "Couldn't open $f ($!)"; binmode(f);
while (read(f, $_, $s * 1024)) {
   die "Will not overwrite existing file $r\n" if -e $r;
   open(R, ">$r") || die "Couldn't open $r for writing ($!)"; binmode(R); 
   print R || die "Error writing $r ($!)"; 
   close(R) || die "Error closing $r ($!)";
   ++$r;
}