vyatta_convert.pl

#!/usr/bin/env perl

################################################################################
# Vyattaのhoeg{~~~}形式をset ~~~形式に変換するスクリプト
################################################################################

use strict;
use warnings;
use constant true  => 1;
use constant false => 0;

use constant DefaultInputFile => 'settings.txt';

my $inputFile = exists($ARGV[0]) ? $ARGV[0] : DefaultInputFile;

my @stack = ();
if( !open(FILE, $inputFile) ) {
	print "Error! - No such file \"$inputFile\".\n";
	exit;
}
while(<FILE>) {
	$_ =~ s/^(\s*)//g;
	$_ =~ s/(\s*)$//g;
	if($_ =~ /^(\s*)([a-zA-Z0-9 \-\.\/]+) {/) {
		push(@stack, $2);
	} elsif($_ =~ /^(\s*)}$/) {
		pop(@stack);
	} else {
		print "set @stack $_\n";
	}
}
close(FILE);

__END__