view release on metacpan or  search on metacpan

pulverize.pl  view on Meta::CPAN

undef $/;

$dir = shift;

for $orig (@ARGV) {
    open F, $orig or die "Can't read($orig): $!";
    $x = <F>;
    close F;

    $deps = '';
    @p = split m{/\*\s*FUNC\((\w+)\)\s*\*/}, $x;
    $preamble = shift @p;
    if ($p[-2] eq 'POSTAMBLE') {
	$postamble = pop @p;
	pop @p;
    } else {
	$postamble = "\n/* EOF */\n";
    }
    while (@p) {
	$func = shift @p;
	$body = shift @p;