2014-01-27T13:27:54 Gustl

ich möchte aus z.B. folgender Seriennummer 10011902APWPA die darauf folgenden 1000 Seriennumern ausgeben. Wobei die Zahl immer gleich bleibt und er die letzten 5 Chars zählen soll. Von A bis Z. Wenn dann der letzten Stelle ein Z steht und hochgezählt werden muss springt dieses auf A und die nächste Stelle wird hochgezählt.

Beispiel:
10011902APYAW
10011902APYAX
10011902APYAY
10011902APYAZ
10011902APYBA
10011902APYBB

1
2
3
4
5
6
7
8
9
10
11
12
13

sub get_new_numbers{
  my $anzahl = shift;
  my $last_sn = shift;

  # Seriennummer zerlegen
  my ($num,$str) = split(/(<=\d)(?=[A-Z])/,$last_sn);

  # Seriennummer inkrementieren und in Array schreiben
  my @back_array;
  push @back_array, $num.(++$str) foreach(1..$anzahl);

  return @back_array;
}