クレジットカード番号のチェック

---

　Business::CreditCardモジュールでクレジットカード番号のチェックディジットのチェックができます。

use strict;
use warnings;
use Business::CreditCard;

my $card = '5276 4400 6542 1319'; # カード番号

if (validate($card)) {
    print "カードタイプ：";
    print cardtype($card), "\n";
} else {
    print "カード番号が正しくありません。\n";
}

---

関連項目

なし