Business::Tax::VAT::Validation von Bernard Nauwelaerts ermöglicht die Überprüfung einer europäischen Umsatzsteuer-Identifikationsnummer durch eine Online-Abfrage der VIES VAT number validation-Datenbank der European Commission. (Eine einfache Prüfung durch reguläre Ausdrücke kann ebenfalls durchgeführt werden.)
Beispiel
#!/usr/bin/perl use strict; use warnings; use Business::Tax::VAT::Validation; my @UstIdNr = qw/ DE17590386 DE175903868 /; my $btvv = Business::Tax::VAT::Validation->new(); foreach my $UStIdNr ( @UstIdNr ) { # Check number if ($btvv->check($UStIdNr )){ print "OK: $UStIdNr.\n"; } else { print "Error: $UStIdNr. ", $btvv->get_last_error ,"\n"; } }
Das Programm erzeugt folgende Ausgabe:
Error: DE17590386. Invalid VAT number format OK: DE175903868.
Jetzt kommentieren