±ÝÀ¶ :: ÀºÇà :: IE :: PermanentTSB.

http://www.open24.ieÀÇ PermanentTSB Open24 Ȩ ¹ðÅ·¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º
Áö±Ý ´Ù¿î·Îµå

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

±¤°í

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

±ÝÀ¶ :: ÀºÇà :: IE :: PermanentTSB. ű×


±ÝÀ¶ :: ÀºÇà :: IE :: PermanentTSB. ¼³¸í

Perl Interface on http://www.open24.ieÀÇ homebanking homebanking Finance :: Bank :: IE :: PermanentTSB´Â Perforttsb Open24 HTTP : //www.open24.ie.synopsis¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. my % config = ( "Open24Numba"=> "open24 ¹øÈ£", "¾ÏÈ£"=> "ÀÎÅÍ³Ý ¾ÏÈ£", "pan"=> "°³ÀÎ ¾×¼¼½º ¹øÈ£", "debug"=> 1, # check_balance (\ % config); (Á¤ÀǵÇÁö ¾ÊÀº $ Àú¿ïÈ­µÇÁö ¾ÊÀ½) {Àμâ "¿À·ù! "exit;} my $ acc (@ $ Àú¿ï) {printf (% s·Î ³¡³ª´Â % s : % s ", $ acc -> { 'accname'}, $ acc -> { 'Accno'}, $ acc -> { 'accbal'});} My $ state = finance :: bank :: IE :: permanenttsb-> Account_statement (\ % config, switch_account, '2667', '2008/12/01', '2008/12/31', '2008/12/31'); if (Á¤ÀǵÇÁö ¾ÊÀ½) {print "¿À·ù! "exit;} ³» $ row (@ $ ¹®) {printf ("% s | % s | % s | % s | ", $ row-> {date}, $ row -> {description}, $ row -> {euro_amount}, $ row -> {balance});} ¿©±â¿¡"Finance :: Bank :: IEÀÇ ÁÖ¿ä ±â´ÉÀÌ ÀÖ½À´Ï´Ù. :: permanenttsb ": ¡¤ °èÁ¤ ÀÜ¾× : ¼³Á¤ ÇÑ ¸ðµç °èÁ¤ÀÇ Àܾ×À» °Ë»öÇÕ´Ï´Ù (ÇöÀç °èÁ¤, ºñÀÚ Ä«µå µî) ¡¤ °èÁ¤ ¹®¼­ : ƯÁ¤ °èÁ¤¿¡ ´ëÇÑ ¹®À» °Ë»öÇÕ´Ï´Ù. ¡¤ ÈÞ´ë ÀüÈ­ ž¾÷ (±¸Çö µÊ) : ÈÞ´ë ÀüÈ­¸¦ ž¸³´Ï´Ù! ¡¤ Æݵå Àü¼Û (±¸Çö °¡´É) : ±ÍÇÏÀÇ °èÁ¤À̳ª Á¦ 3 ÀÚ °èÁ¤°£¿¡ µ·À» ¼Û±ÝÇϽʽÿÀ. ¿ä±¸ »çÇ× : ¡¤ Perl.


±ÝÀ¶ :: ÀºÇà :: IE :: PermanentTSB. °ü·Ã ¼ÒÇÁÆ®¿þ¾î