Strip numeric prefix from NAME=VALUE file

number-prefix-fixer.pl

#!/usr/bin/perl -w

my %keys;

while(<>)
{
	chomp;
	
	# Match NAME=VALUE (first equals sign is the separator)
	if (/^([^=]+)[=](.*)$/)
	{
		my $key = $1;
		my $value = $2;
		
		# Strip any leading numeric digits from key
		if ($key =~ /^[0-9]+(.*)$/)
		{
			$key = $1;
		}
		
		# Strip any leading underscores, that might have followed those numeric digits
		if ($key =~ /^[_]+(.*)$/)
		{
			$key = $1;
		}
		
		my $existing = $keys{$key};
		
		if (defined $existing)
		{
			die "Duplicate key $key detected";
		}
		
		# Remember for duplicate check
		$keys{$key} = $value;
		
		print $key;
		print "=";
		print $value;
		print "\n";
	}
	else
	{
		# Copy verbatim
		print $_;
		print "\n";
	}
}