±ÝÀ¶ :: ÀºÇà :: EasyBank.

Perl¿¡¼­ EasyBank °èÁ¤À» È®ÀÎÇϽʽÿÀ.
Áö±Ý ´Ù¿î·Îµå

±ÝÀ¶ :: ÀºÇà :: EasyBank. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î