| ±ÝÀ¶ :: ÀºÇà :: Bundesschatz. Perl¿¡¼ Bundesschatz °èÁ¤ È®ÀÎ |
Áö±Ý ´Ù¿î·Îµå |
±ÝÀ¶ :: ÀºÇà :: Bundesschatz. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Florian Helmberger
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~florian/
±ÝÀ¶ :: ÀºÇà :: Bundesschatz. ű×
±ÝÀ¶ :: ÀºÇà :: Bundesschatz. ¼³¸í
Perl¿¡¼ Bundesschatz °èÁ¤À» È®ÀÎÇϽʽÿÀ Finance :: Bank :: Bundesschatz´Â http : //www.bundesschatz.at.AT¿¡¼ ¿Â¶óÀÎ ¹ðÅ· ½Ã½ºÅÛ¿¡ ´ëÇÑ ±âº» ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Crypt :: Ssley ¶Ç´Â IO :: SOCKET :: SSL ÀÛ¾÷À» À§ÇØ ¼³Ä¡µÈ HTTPS Áö¿ø LWP.SYNOPSIS # # TAR º¼ (BALING.PL)ÀÇ ¿¹Á¦ µð·ºÅ丮 ¿¡¼ÀÌ ½ºÅ©¸³Æ®¸¦ ã½À´Ï´Ù. ±ÝÀ¶ :: ÀºÇà :: Bundesschatz; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. MY $ Agent = Finance :: Bank :: BundesSchatz-> New (°èÁ¤ => 'xxx', Æнº => 'xxx', return_floats => 1,); ³» $ Àú¿ï = $ Agent-> Check_Balance; ³» $ details = $ Agent-> get_details; PRINTF ( "S : % S. ", 'kontonummer', $ Agent-> °èÁ¤); printf ("s : % s ", $ _-> , $ ÀÜ¾× -> {$ _> }) for ((, )); Àμâ" "; ³» $ detail (@ $ »ó¼¼) {printf ("s : % s) ", $ _-> , $ DETAIL -> {$ _> }) for ((, , , , , , , ); Àμâ " ";} ¿ä±¸ »çÇ× : ¡¤ Perl.
±ÝÀ¶ :: ÀºÇà :: Bundesschatz. °ü·Ã ¼ÒÇÁÆ®¿þ¾î