indent_make_if.pl

#!/usr/bin/env perl
# perltidy -bext=/ -i=8 -et=8 -l=132 -pt=2 -ce -cti=1

use strict;
use utf8;
use warnings;

my $extension = '.orig';
my $oldargv   = q{};
my $spaces    = 2;
my $indent;
my $argvout;

sub dotindent {
	my $amount = shift;
	return '.' . (' ' x ($spaces * $amount));
}

LINE: while (<>) {

	# For each file, save a .orig backup.
	if ($ARGV ne $oldargv) {
		my $backup;
		if ($extension !~ /[*]/) {
			$backup = $ARGV . $extension;
		} else {
			($backup = $extension) =~ s/[*]/$ARGV/g;
		}
		rename $ARGV, $backup;
		open $argvout, '>', $ARGV or die "Error for $ARGV: $!";
		$oldargv = $ARGV;
		$indent  = 0;
	}

	if (/^[.]\s*(?:if|for)/o) {    # if/for -> indent and increase indent
		s/^[.]\s*/dotindent($indent)/oe;
		$indent++;
	} elsif (/^[.]\s*end(?:if|for)/o) {    # endif/endfor -> decrease indent and indent
		$indent--;
		s/^[.]\s*/dotindent($indent)/oe;
	} elsif (/^[.]\s*(?:else|elif)/o) {    # else/elif -> indent one level down
		s/^[.]\s*/dotindent($indent-1)/oe;
	}
} continue {

	# Print the line.
	print {$argvout} $_;
}