peter-leonov · March 8, 2016 19:55
diff --git a/template.pl b/template.pl
 #!/usr/bin/perl
 # usage: echo "hello <%= $USER %> <% if (true) { %>abc<%>%>" | perl template.pl > out.txt
 for $key (keys %ENV) { ${$key} = $ENV{$key} }
 $template = join("", <>);
 $template =~ s/<%=/<% print /g;
 @code = @text = split(/<%(.+?)%>/s, $template);
 for (my $i = 0; $i <= $#code; $i+=2) { @code[$i] = "; print \@text[$i];" }
 eval join(";", @code);
	#!/usr/bin/perl
	# usage: echo "hello <%= $USER %> <% if (true) { %>abc<%>%>" \| perl template.pl > out.txt
	for $key (keys %ENV) { ${$key} = $ENV{$key} }
	$template = join("", <>);
	$template =~ s/<%=/<% print /g;
	@code = @text = split(/<%(.+?)%>/s, $template);
	for (my $i = 0; $i <= $#code; $i+=2) { @code[$i] = "; print \@text[$i];" }
	eval join(";", @code);