#!/usr/bin/perl -w
#       Author: avb1003 from www.sql.ru
#       NO WARRANTY OF  ANY KIND      !
#       TRY BEFORE USE                  !
use integer;
$Usage_string="Usage: $0 <file_to_gzip> <n_parts> [block_size]\n".
        "\t(n_parts<=26)\n";
@ARGV >=  2  or die $Usage_string;
my($file,$n,$block_size)=@ARGV;
$n<= 26  or die $Usage_string;
$size = -s $file;
$block_size ||=  512 ;
$part_size = (($size- 1 )/$block_size)/$n+ 1 ;
for ( $start= 0 , $part_name="a", $i= 1 ; $i <= $n; $i++) {
    $dd_cmd = "dd if=$file skip=$start ibs=$block_size";
    $dd_cmd .= "  count=$part_size" if $i < $n;
    $gzip_cmd = "gzip -c > $file.$part_name.gz";
    print("$dd_cmd|$gzip_cmd&\n");
    system("$dd_cmd|$gzip_cmd&");
    $start += $part_size;
    $part_name++;
}

#!/usr/bin/perl -w
#       Author: avb1003 from www.sql.ru
#       NO WARRANTY OF ANY KIND         !
#       TRY BEFORE USE                  !
@ARGV or die "Usage: $0 <filename> [<restore_file]>\n";
my ($file,$restore_file)=@ARGV;
$restore_file ||= $file;
-s $restore_file && unlink $restore_file;
while ($next = <${file}.*.gz>) {
    $restore_cmd = "gzip -dc $next >> $restore_file";
    print("$restore_cmd\n");
    system("gzip -dc $next >> $restore_file");
}