| ¾Ë°í¸®Áò :: CheckDigits. Perl È®ÀåÀÚ°¡ »ý¼º ¹× Å×½ºÆ® ¼ýÀÚ »ý¼º |
Áö±Ý ´Ù¿î·Îµå |
¾Ë°í¸®Áò :: CheckDigits. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î