±ÝÀ¶ :: reper.

DATEK STREANER ÀÎÅÍÆäÀ̽º
Áö±Ý ´Ù¿î·Îµå

±ÝÀ¶ :: reper. ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

±ÝÀ¶ :: reper. ű×


±ÝÀ¶ :: reper. ¼³¸í

Datek Streamer¿¡ ´ëÇÑ ÀÎÅÍÆäÀ̽º Finance :: Streamer´Â Datek Streamer Market Data¿¡ ¾×¼¼½ºÇÏ´Â µ¥ »ç¿ëÇÒ ¼öÀÖ´Â ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .It´Â ÀÌÀü (¹öÀü 2)°ú´Â ¹Ý´ë·Î »õ·Î¿î ½º Æ®¸®¸Ó (¹öÀü 3)¿Í ÇÔ²² ÀÛµ¿ÇÕ´Ï´Ù. »ç¿ëÇÒ ¼öÀÖ´Â 4 °³ÀÇ ¼­ºê ·çƾÀÌ ÀÖ½À´Ï´Ù. ...¿¡ óÀ½ µÎ °³, ¿¬°á ¹× Æļ­´Â ½ºÆ®¸®¹Ö ¼­¹ö¿¡ ¿¬°áÇÏ°í ¿ø½Ã Àο뱸 µ¥ÀÌÅ͸¦ ½±°Ô »ç¿ëÇÒ ¼öÀÖ´Â Çʼö ÀÛ¾÷À» ¼öÇàÇÏ¿© ½±°Ô ¼öÇà ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¼¼ ¹ø°, ¼ö½ÅÀº ÀÌÀü¿¡ ¾ð±Þ ÇÑ ¼­ºê ·çƾ (¿¬°á, ¼ö½Å)À» »ç¿ëÇÏ¿© °¡´ÉÇÑ ÇÑ µ¥ÀÌÅ͸¦ »ç¿ëÇÏ´Â ÀÛ¾÷À» ¼öÇàÇÕ´Ï´Ù. ³Ý°, receive_allÀº ¼ö½ÅÇÏ´Â °Í°ú µ¿ÀÏÇÏÁö¸¸ µ¥ÀÌÅÍ »óŸ¦ ¸®ÅÏÇÕ´Ï´Ù. µ¥ÀÌÅ͸¦ »ç¿ëÇÏ°í ÇÔ¼ö¸¦ »ç¿ëÇÏ°í receed_all¿¡ ÃÊÁ¡À» ¸ÂÃß°í ½Í½À´Ï´Ù. ÇÁ·ÎÅäÄÝÀÌ ¾î¶»°Ô ÀÛµ¿ÇÏ´ÂÁö, (´ë·«), ¿¬°á ¹× Æļ­ ÇÔ¼ö¿¡ ÁßÁ¡À» µÓ´Ï´Ù. ½Ä ³ëÇÁ°¡ Finance :: Streamer¸¦ »ç¿ëÇϽʽÿÀ. ³» $ USER = 'USER1234'; My $ Pass = 'sf983jfdlkjsdfjl8342398klsjf8329483lf'; ³» $ symbols = 'jdsu + qcom + amat + ibm + ^ compx'; ³» $ fields = '0 + 1 + 2 + 3 + 4 + 8 + 9 + 21'; ³» $ strever = finance :: streamer-> new (user => $ »ç¿ëÀÚ, pass => $ pass, symbols => $ ±âÈ£, Çʵå => $ Çʵå); ³» $ sub = sub {my (% all_data) = @_; foreach my $ symbol (Å° % ALL_DATA) {Àμâ "$ ±âÈ£ "; ³» ta = % {$ all_data {$ symbol}}; foreach my $ data_part (Å° TA) {$ data_part", "=", $ data {$ data_part}, " ";}}}; $ strever -> {sub_recv} = $ sub; # $ strever-> ¼ö½Å; $ strever-> creation_all; ¿ä±¸ »çÇ× : ¡¤ Perl.


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