Excel Column Name.perl

# Mapping Excel Column Name ("A", ..., "Z") to Perl Arrayindex

sub EC {
 
  my $name = shift;
 
  if ($name !~ /^[A-Z]+$/i) {
      die "ungültiger Spaltenname $name\n";
  }
 
  # mehrstellige Spaltennamen rekursiv lösen
 
  if ($name =~ /^([A-Z])([A-Z]+)$/i) {
      return 26**length($2) * (EC($1)+1) + EC($2);
  }
 
  return ord(uc $name) - 64 - 1;
 
}