Split File into Chunks

Demonstrates how to split a file into chunks.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$fac = new chilkat::CkFileAccess();

#  Any type of file may be split.  It doesn't matter if it's
#  a binary file or a text file.
$fileToSplit = "hamlet.xml";

$partPrefix = "hamlet";
$partExtension = "spl";
$maxChunkSize = 50000;
$destDirPath = ".";

#  Splits hamlet.xml into hamlet1.spl, hamlet2.spl, ...
#  Output files are written to the current working directory.
#  Each chunk will be 50000 bytes except for the last which
#  will be the remainder.
$success = $fac->SplitFile($fileToSplit,$partPrefix,$partExtension,$maxChunkSize,$destDirPath);

if ($success == 1) {
    print "Success." . "\r\n";
}
else {
    print $fac->lastErrorText() . "\r\n";
}