Perl :: Aufgabe #266
1 Lösung
Berechnen der Prüfziffer einer EAN- Nummer
Anfänger - Perl
von JKooP
- 29.03.2020 um 13:53 Uhr
Schreibe ein Programm mit dem man sowohl die Prüfziffer einer EAN- Nummer (Europäische Artikel- Nummerierung) berechnen als auch überprüfen kann.
Die EAN- Nummer besteht aus 13 Ziffern, wobei es sich bei der letzten Ziffer um die Prüfziffer handelt.
Beispiel für eine EAN: 978381582086[?]
Die Prüfziffer wird berechnet, indem man die ersten 12 Ziffern von links beginnend abwechselnd mit 1 und 3 multipliziert und anschließend die Produkte summiert.
Die Differenz zum nächsten Vielfachen von 10 ist die Prüfziffer.
Ist die Summe durch 10 teilbar, ist die Prüfziffer die Ziffer 0.
9·1 + 7·3 + 8·1 + 3·3 + 8·1 + 1·3 + 5·1 + 8·3 + 2·1 + 0·3 + 8·1 + 6·3
= 9 + 21 + 8 + 9 + 8 + 3 + 5 + 24 + 2 + 0 + 8 + 18 = 115
115 + 5 = 120 ⇒ Prüfziffer: 5
Viel Spaß
Die EAN- Nummer besteht aus 13 Ziffern, wobei es sich bei der letzten Ziffer um die Prüfziffer handelt.
Beispiel für eine EAN: 978381582086[?]
Die Prüfziffer wird berechnet, indem man die ersten 12 Ziffern von links beginnend abwechselnd mit 1 und 3 multipliziert und anschließend die Produkte summiert.
Die Differenz zum nächsten Vielfachen von 10 ist die Prüfziffer.
Ist die Summe durch 10 teilbar, ist die Prüfziffer die Ziffer 0.
9·1 + 7·3 + 8·1 + 3·3 + 8·1 + 1·3 + 5·1 + 8·3 + 2·1 + 0·3 + 8·1 + 6·3
= 9 + 21 + 8 + 9 + 8 + 3 + 5 + 24 + 2 + 0 + 8 + 18 = 115
115 + 5 = 120 ⇒ Prüfziffer: 5
Viel Spaß
Lösungen:
Perl-Code
#!/usr/bin/perl use strict; use warnings; use POSIX; my $ean = "978381582086"; print "Pruefziffer von $ean: ".getcheckDigitEan( $ean ); print "\nEAN Pruefziffer check: ".checkcheckDigitEan( "9783815820865" ); # Richtig = 1 print "\nEAN Pruefziffer check: ".checkcheckDigitEan( "9783815820864" ); # Falsch = 0 print "\nEAN Pruefziffer check: ".checkcheckDigitEan( "978381582086" ); # Laenge falsch = 2 sub getcheckDigitEan{ my $ean = shift; my @arrayEan = split //, $ean; my $sum = 0; for ( my $i = 0 ; $i < scalar( @arrayEan ); $i++ ){ if( $i % 2 ){ $sum += $arrayEan[ $i ] * 3; } else{ $sum += $arrayEan[ $i ] * 1; } } return ( ceil($sum / 10) * 10 ) - $sum; } # gibt folgende Werte zurück # 0 wenn die Pruefziffer nicht stimmt # 1 wenn die Pruefziffer stimmt # 2 wenn die Laenge der EAN nicht stimmt sub checkcheckDigitEan{ my $ean = shift; return 2 if length( $ean ) != 13; my $checkDigit = chop $ean; my $comparecheckDigit = getcheckDigitEan( $ean ); return 1 if $checkDigit == $comparecheckDigit; return 2; }