¾Ë°í¸®Áò :: CheckDigits.

Perl È®ÀåÀÚ°¡ »ý¼º ¹× Å×½ºÆ® ¼ýÀÚ »ý¼º
Áö±Ý ´Ù¿î·Îµå

¾Ë°í¸®Áò :: CheckDigits. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Mathias Weidner
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~mamawe/

¾Ë°í¸®Áò :: CheckDigits. ű×


¾Ë°í¸®Áò :: CheckDigits. ¼³¸í

Perl È®ÀåÀÚ°¡ È®ÀÎÇÏ°í °Ë»çÇÏ´Â ¼ýÀÚ¸¦ »ý¼ºÇÕ´Ï´Ù ÀÌ ¸ðµâÀº °Ë»ç ¼ýÀÚ¸¦ Å×½ºÆ®ÇÏ°í »ý¼ºÇÏ´Â ¿©·¯ °¡Áö ¹æ¹ýÀ» Á¦°øÇÕ´Ï´Ù. Synopsis Perl -malgorithm :: CheckDigits -e algorithm :: CheckDigits :: Print_Methodsor ¾Ë°í¸®Áò :: üũ µðÆ®¸®Æ®; @ml = algorithm :: CheckDigits-> method_list (); $ ISBN = üũ µð½º ( 'ISBN'); if ($ ISBN-> is_valid ( '3-930673-48-7')) {# ¹º°¡} $ CN = $ ISBN-> ¿Ï·á ( '3-930673-48'); # $ CN = '3-930673-48-7'$ CD = $ ISBN-> üũ µðÁöÆ® ( '3-930673-48-7'); # $ CD = '7'$ BN = $ ISBN-> BaseNumber ( '3-930673-48-7'); # $ bn = '3-930673-48'¿ä±¸ »çÇ× : ¡¤ Perl.


¾Ë°í¸®Áò :: CheckDigits. °ü·Ã ¼ÒÇÁÆ®¿þ¾î