2008/12/28
Perlで書く 2008.12.28 Vol.225
===================================================================== Perlで書く 2008.12.28 Vol.225 [WAZA]クレジットカード番号のチェック http://www2u.biglobe.ne.jp/~MAS/perl/ ===================================================================== ●クレジットカード番号のチェック 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"; } --------------------------------------------------------------------- ●関連項目 なし ===================================================================== ■雑記 JPerl Advent Calendar 2008(*1)が無事終わりました。12月1日から12月 25日までに紹介された25個のTipsがあります。 *1 http://perl-users.jp/articles/advent-calendar/2008/ ===================================================================== Perlで書く(マガジンID：0000109251) 配信数：840 発行者：MAS 本メールマガジンに関するご意見・お問い合わせは t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。 解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html 検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html バックナンバー http://archive.mag2.com/0000109251/index.html RSS http://archive.mag2.com/0000109251/rss10.xml 本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行 しています。 =====================================================================
