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

P.K¸¦ È®ÀÎÇϽʽÿÀ. Perl.ÀÇ °èÁ¤
Áö±Ý ´Ù¿î·Îµå

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

±¤°í

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

±ÝÀ¶ :: ÀºÇà :: PSK. ű×


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

P.kr¸¦ È®ÀÎÇϽʽÿÀ. Perl.ÀÇ °èÁ¤ Finance :: Bank :: PSK´Â P.kr¸¦ È®ÀÎÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Perl.synopsisÀÇ °èÁ¤ # tar º¼ÀÇ ¿¹Á¦ µð·ºÅ丮 ¿¡¼­ÀÌ ½ºÅ©¸³Æ®¸¦ ã½À´Ï´Ù. ±ÝÀ¶ :: ÀºÇà :: PSK; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. MY $ Agent = Finance :: Bank :: PSK-> New (°èÁ¤ => 'xxx', user => 'xxx', pass => 'xxx', return_floats => 1, newline => ';',); ³» $ °á°ú = $ Agent-> Check_Balance; ³» @entries = $ Agent-> get_entries; 1 $ °èÁ¤ (@ {$ result -> accounts}}) {printf ( "s : % s) ", $ _-> , $ °èÁ¤ -> {$ _> }) for ((, , )); printf ( "s : % .2F ", $ _-> , $ °èÁ¤ -> {$ _-> }) for ((, ); Àμâ" ";} $ Fund (@ {$ result -> {funds}}) {printf ("s : % s ", $ _-> , $ FUNT -> {$ _-> }) for (((, , )); printf ( "s : % .2F ", '»ìÁ¶', $ Fund -> {horide}); Àμâ" ";} if (scalar @entries) {printf (buchungszeilen) "); foreach my $ row (@entries) {$ row -> {text} = ~ s / (. {50}). * / $ 1 ... /; PRINTF ("% 7S % 5S SS % 9.2F ", @ {$ row} {QW / NR °ª ÅؽºÆ® ammount /});}}ÀÌ ¸ðµâÀº https : //wwwtb.psk.at.At.At.Stps¿¡¼­ PSKÀÇ ¿Â¶óÀÎ ¹ðÅ· ½Ã½ºÅÛ¿¡ ´ëÇÑ ±âº» ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÕ´Ï´Ù. LWPÀÇ HTTPS Áö¿øÀ» À§ÇØ ¼³Ä¡Çϱâ À§ÇØ Crypt :: Ssley ¶Ç´Â IO :: Socket :: SSLÀÌ ¼³Ä¡µÇ¾î ÀÖ¾î¾ßÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


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