#!/usr/bin/perl -w
# generate_perl.pl - Don Yang (uguu.org)
#
# Generate unformatted lily.pl
#
# 12/24/08

use strict;

sub DataFromFile($)
{
   my ($file) = @_;
   my $handle;
   open $handle, "< $file" or die $!;
   my $data = join '', <$handle>;
   close $handle;
   return $data;
}

my $p = DataFromFile("data_util.py");
my $q = DataFromFile("data_core.pl");
my $d = DataFromFile("data_template.txt");
my $x = DataFromFile("data_core.py");

printf '

$d = "%s";
$p = q{%s};
$x = q{%s};
$q = q{%s};

$q =~ s/\s//gs;
eval $q;

', $d, $p, $x, $q;