| ±ÝÀ¶ :: ÀºÇà :: IE :: PermanentTSB. http://www.open24.ieÀÇ PermanentTSB Open24 Ȩ ¹ðÅ·¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º |
Áö±Ý ´Ù¿î·Îµå |
±ÝÀ¶ :: ÀºÇà :: IE :: PermanentTSB. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î