| ±ÝÀ¶ :: ÀºÇà :: EasyBank. Perl¿¡¼ EasyBank °èÁ¤À» È®ÀÎÇϽʽÿÀ. |
Áö±Ý ´Ù¿î·Îµå |
±ÝÀ¶ :: ÀºÇà :: EasyBank. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Florian Helmberger
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~florian/
±ÝÀ¶ :: ÀºÇà :: EasyBank. ű×
±ÝÀ¶ :: ÀºÇà :: EasyBank. ¼³¸í
Perl¿¡¼ EasyBank °èÁ¤À» È®ÀÎÇϽʽÿÀ Finance :: Bank :: EasyBank´Â Perl.Synopsis¿¡¼ EasyBank °èÁ¤À» È®ÀÎÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. # tar ball (balance.pl)ÀÇ ¿¹Á¦ µð·ºÅ丮 ¿¡¼ÀÌ ½ºÅ©¸³Æ®¸¦ ã½À´Ï´Ù. ±ÝÀ¶ :: ÀºÇà :: EasyBank; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. MY $ Agent = Finance :: Bank :: EasyBank-> New (User => 'XXX', Pass => 'xxx', return_floats => 1, °èÁ¤ => , Ç׸ñ => ,); @Accounts = $ Agent-> Check_Balance; ³» $ ENTRIES = $ ¿¡ÀÌÀüÆ® -> get_entries; ³» $ °èÁ¤ (@Accounts) {printf ( "s : % s) ", $ _-> , $ °èÁ¤ -> {$ _> }) for (((, , , , )); PRINTF ( "S : % .2F ", $ _-> , $ °èÁ¤ -> {$ _-> }) for ((, ); Àμâ" Buchungzeilen : "(Á¸ÀçÇÏ´Â °æ¿ì ($ Ç׸ñ -> {$ Account -> {account}})) {foreach my $ row (@ {$ Ç׸ñ -> {$ °èÁ¤ -> {°èÁ¤}})}) {$ ROW -> { ÅؽºÆ®} = ~ s / (. {39}). * / $ 1 ... /; printf ( "- s bs % 6s % 3s % 9.2F ", ({$ Row -> {$ _}} QW / NR ³¯Â¥ ÅؽºÆ® °ª ÅëÈ /), $ Çà -> {±Ý¾×});}} Àμâ" ";}ÀÌ ¸ðµâÀº http : //www.easybank.at.at.t.please¿¡¼ easyBankÀÇ ¿Â¶óÀÎ ¹ðÅ· ½Ã½ºÅÛ¿¡ ±âº» ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÕ´Ï´Ù. LWPÀÇ HTTPS Áö¿ø ÀÛ¾÷ : ¿ä±¸ »çÇ× : ¡¤ Perl.
±ÝÀ¶ :: ÀºÇà :: EasyBank. °ü·Ã ¼ÒÇÁÆ®¿þ¾î