#/usr/bin/perl
use strict;
use warnings;

die "Error. Usage \'perl parse.pl inputfile.txt\'\n $!" unless $#ARGV == 0;

my $in_filename  = shift @ARGV;

my $complete_line = "";

open(my $IN,"<",$in_filename)    || die "Cannot find input '$in_filename'\n $!";
	while(<$IN>)
	{
		chomp;
		next if ($_ eq "");
		next if (m/^\#/);

		if ($_ =~ m/\\$/)
		{
			$_ =~ s/\\$//;
			$complete_line .= $_;
			next
		}

		$complete_line .= $_;

		# get alias type and name
	
			my $index_pos = index($complete_line,'=');
			my @alias_type_and_name =  split(/ /, substr($complete_line,0,$index_pos-1) );
			
		# get alias values

			my @alias_values = split(/\,/, substr($complete_line,$index_pos+1) );

			foreach my $v (@alias_values)
			{
				$v =~ s/^\s+//;
				$v =~ s/\s+$//;
			}

		# print values

			print "Alias type : $alias_type_and_name[0]\n";
			print "Alias name : $alias_type_and_name[1]\n";
			print "Values     : @alias_values\n ****\n";

		$complete_line = "";
	}
close($IN);