Perl

Split File into Chunks

Demonstrates how to split a file into chunks. Perl

use chilkat();

$success = 0;

$fac = chilkat::CkFileAccess->new();

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

$partPrefix = "hamlet";
$partExtension = "part";
$maxChunkSize = 50000;
$destDirPath = "qa_output";

# Splits hamlet.xml into hamlet1.part, hamlet2.part, ...
# 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";
}