Perlで書く  RSSを登録する

Perlに関するTipsや関数の使い方を紹介します。

最新号をメルマガでお届けします    
登録 解除

規約に同意して

登録した方には、まぐまぐの公式メルマガ(無料)をお届けします。
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/ を利用して発行
しています。
=====================================================================
最新号をメルマガでお届け
登録 解除

規約に同意して

登録した方には、まぐまぐの公式メルマガ(無料)をお届けします。

最近の記事

上へ戻る