#!/usr/bin/perl
# fit.pl - Don Yang (uguu.org)
#
# Fit code to template.
#
# ./fit.pl <source> <template> > output.txt
#
# 12/23/07

use strict;
die "$0 <source> <template>\n" unless $#ARGV == 1;

# Load files
my $infile;
open $infile, "< $ARGV[0]" or die $!;
my $source = join '', <$infile>;
close $infile;

open $infile, "< $ARGV[1]" or die $!;
my $template = join '', <$infile>;
close $infile;

# Count number of non-whitespace in source
$source =~ s/\s//g;
my $source_char = length($source);

# Count number of non-whitespace in template
my $template_char = ($template =~ s/[^\s]/X/gs);
if( $source_char != $template_char )
{
   die "Size mismatch: source = $source_char, template = $template_char\n";
}

# Encode source
foreach my $c (unpack 'C*', $template)
{
   $c = chr($c);
   if( $c =~ /\s/ )
   {
      print $c;
   }
   else
   {
      print substr($source, 0, 1);
      $source = substr($source, 1);
   }
}