Slic3r post processing scripts

#!/usr/bin/env perl

use strict;
use warnings;

my $lolimit = 0x800;
my $hilimit = 0xC000;

my $usage = sprintf "usage: %s output.bin input.hex [input.hex ...]

Parses the input hex files, trims the data outside 0x%04X and 0x%04X,
fills any holes between those addresses with 0xFF, and then writes the
output binary.
", $0, $lolimit, $hilimit;

die $usage if @ARGV < 2;

my $output = shift @ARGV;

my $base_address    = undef;
my $current_address = undef;
my %data            = ();

open OUTPUT, '>', $output or die "Couldn't open '$output': $!";
binmode OUTPUT;

while (<>) {
    if (/^:02000004(....)..\s*$/ ) {
        # :02000004 0000 FA

        $base_address = hex($1);
        printf "Base address: 0x%04X\n", $base_address;
    }
    elsif (/^:..(....)00 (.*)                             ..\s*$/x) {
        #    :04 1000 00 88313728                         D4
        #    :10 1008 00 883120007F08F4000B1D0B280C283328 9A

        # Catch cases where the file has no base address
        unless (defined $base_address) {
            print "No base address found!\n";
            print "Defaulting to 0x0000\n";
            $base_address = 0;
        }

        # Determine the address for this chunk of data
        my $current_address = $base_address + hex($1);
        printf "Next address: 0x%04X\n", $current_address;

        # Store the bytes against their address
        my @bytes = $2 =~ /(..)/g;
        $data{$current_address++} = hex($_) for @bytes;
    }
}

my $before = scalar keys %data;

for (sort {$a <=> $b} keys %data) {
    # Cull any data outside of lolimit and hilimit
    delete $data{$_} if $_ < $lolimit or $_ >= $hilimit;
}

my $after = scalar keys %data;

printf "Trimmed %d out-of-bound addresses\n", $before - $after;

my $pad_start = undef;

# NOTE: It would be more efficient to write the output file in this loop,
#       rather than filling up our hash only to loop over it once more
for (my $i = $lolimit; $i < $hilimit; ++$i) {
    if (not defined $data{$i}) {
        # Pad any unset addresses between lolimit and hilimit
        $data{$i} = 0xFF;
        # Record the start of a padding section
        $pad_start = $i unless defined $pad_start;
    }
    elsif (defined $pad_start) {
        # Record the end of a padding section
        printf "Padded between 0x%04X and 0x%04X (0x%04X bytes)\n",
            $pad_start, $i, $i - $pad_start;
        $pad_start = undef;
    }g
}

# Write the output file
for (sort {$a <=> $b} keys %data) {
    # printf "%4X %2X\n", $_, $data{$_};
    print OUTPUT chr($data{$_});
}

close OUTPUT;

perl C:\perls\add_M117_layer_info.pl #out

#!/usr/bin/perl
#
# Copyright 2013 Michael Laws
#
# This script relies on 'M117' being placed in the Printer Settings > Custom G-code > Layer change G-code field.
# This script will count the number of M117 commands, then append each one to have Layer X of Y.
# If printing with a Panelolu, every time a new layer is started, the 'Layer X of Y' message will appear on the LCD.

use strict;
use warnings;
use English '-no_match_vars';
use File::Temp qw/ tempfile /;
use File::Copy qw/ move /;
my $file_in = $ARGV[0];
print "Processing: $file_in\n";
open FILE1, $file_in;
open FILE2, $file_in;
my ($file_out_h, $file_out_name) = tempfile() or die( "Cannot open temp work file !" );
my $layer = 0;
my $layercount = 0;
while (<FILE1>) {
    if(/M117/) {
        $layercount++;
    }
}
print "$layercount layers detected.\n";
close FILE1;
while (<FILE2>) {
    if(/M117/) {
        $layer++;
        print $file_out_h "M117 Layer $layer of $layercount\n";
    } else {
        print $file_out_h $_;
    }
}
print "$layer M117 commands inserted.\n";
close $file_out_h;
move( $file_out_name, $file_in );