| Mollie :: Micropayment. Mollie :: Micropayment´Â MollieÀÇ Micropayment ¼ºñ½º¸¦À§ÇÑ Perl APIÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Mollie :: Micropayment. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ckras/Mollie-Micropayment-0.03/lib/Mollie/Micropayment.pm
Mollie :: Micropayment. ű×
Mollie :: Micropayment. ¼³¸í
Mollie :: Micropayment´Â MollieÀÇ Micropayment ¼ºñ½º¸¦À§ÇÑ Perl APIÀÔ´Ï´Ù. Mollie :: MicroPayment´Â MollieÀÇ Micropayment Service.Synopsis # ±âº» ¼³Á¤À»À§ÇÑ Perl APIÀÔ´Ï´Ù. ¿¹Á¦´Â °áÁ¦ »ç¿ëÀ» ¿ÏÀüÈ÷ ó¸®ÇÏ´Â °ÍÀÔ´Ï´Ù Mollie :: Micropayment; My $ Mollie = New Mollie :: Micropayment; $ mollie-> ÆÄÆ®³Ê ÀÎ (10000); # °èÁ¤ ID $ Mollie-> ±Ý¾× (0.50)À» ¼³Á¤ÇϽʽÿÀ. # ÁöºÒ ÇÒ ±Ý¾× (EUR 0.50) $ Mollie-> ±¹°¡ (31); # ±¹°¡ ÄÚµå (³×´ú¶õµå) # ÇÚµé ÁöºÒ $ Mollie-> CheckPayment () ($ mollie-> is_payed () EQ "TRUE"{PRINT '»ç¿ëÀÚ°¡ ¼º°øÀûÀ¸·Î ÁöºÒµÇ¾ú½À´Ï´Ù!'; } else {print 'payment´Â (¿ÏÀüÈ÷) ¿Ï·áµÇÁö ¾Ê¾Ò½À´Ï´Ù. »ç¿ëÀÚ¿¡°Ô ÁöºÒ ȸéÀ¸·Î µ¹¾Æ °¡±â'; } # ($ mollie-> is_payed () eq "false"$ mollie-> payinfo ()) {# playing found to submit ¹öÆ°À» ¿©±â¿¡ ³Ö´Â ¹æ¹ý¿¡ ´ëÇÑ Á¤º¸¸¦ Ç¥½ÃÇϽʽÿÀ. Æ÷ÇÔ µÈ ¿¹Á¦} else {print '¸¦ ÁöºÒ ÇÒ ¼ö ¾ø½À´Ï´Ù.'; } ¿ä±¸ »çÇ× : ¡¤ Perl.
Mollie :: Micropayment. °ü·Ã ¼ÒÇÁÆ®¿þ¾î