#!/usr/bin/perl -w
###############################################################################
#
# a2a : a utility to convert an awk program to an Inline::Awk program.
#
# Usage: a2a awkfile [perlfile]
# perlfile is optional. The default is awkfile.pl
#
# reverse('©'), November 2001, John McNamara, jmcnamara@cpan.org
#
use strict;
use Config;
my $awk_file = shift || die "Usage: a2a awkfile [perlfile]\n";
my $perlfile = shift || "$awk_file.pl";
open AWK_FILE, $awk_file or die "Couldn't open $awk_file. $!\n";
open PERLFILE, ">$perlfile" or die "Couldn't open $perlfile.pl. $!\n";
my $awk_code = do {local $/; <AWK_FILE>};
print PERLFILE "$Config{startperl} -w\n\n" .
"use Inline AWK;\n" .
"use strict;\n\n" .
"awk();\n\n\n" .
"__END__\n" .
"__AWK__\n\n" ;
print PERLFILE $awk_code;
close AWK_FILE;
close PERLFILE;