| ±ÝÀ¶ :: ÀºÇà :: PSK. P.K¸¦ È®ÀÎÇϽʽÿÀ. Perl.ÀÇ °èÁ¤ |
Áö±Ý ´Ù¿î·Îµå |
±ÝÀ¶ :: ÀºÇà :: PSK. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î