open(OUT,">outfile") || die;
for($i=0;$i<=$#bigfile;$i++){
$bigfile[$i] =~ s/\0/ /g;
print OUT "$bigfile[$i]";
}
close(OUT);
print "Compressing original file\n";
system("compress original.file")
and die "Unable to compress data: $!\n";
print "Concatenating other data\n";
system("cat ./incoming/data.file ./static/data.file >> outfile")
and die "Unable to cat data: $!\n";
print "Sorting Data File\n";
system("asort outfile clean.data 1 6 8 9")
and die "Unable to sort data: $!\n";
print "Done.\n";
####
system("/path/to/asort","outfile","clean.data","1 6 8 9")
and die "Unable to sort data: $!\n";
##
##
open(OUT,">outfile") || die "Unable to open outfile: $!\n";
foreach (@bigfile) {
s/\0/ /g;
print OUT "$_";
}
close(OUT);