±×¹° :: ¹«ÀÛÀ§

NET :: RANDAMÀº ¿Â¶óÀÎ ¼Ò½ºÀÇ ¹«ÀÛÀ§ µ¥ÀÌÅ͸¦ ¾ò´Â PERL ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

±×¹° :: ¹«ÀÛÀ§ ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

±×¹° :: ¹«ÀÛÀ§ ű×


±×¹° :: ¹«ÀÛÀ§ ¼³¸í

Net :: RandomÀº ¿Â¶óÀÎ ¼Ò½º¿¡¼­ ÀÓÀÇÀÇ µ¥ÀÌÅ͸¦ ¾ò´Â Perl ¸ðµâÀÔ´Ï´Ù. Net :: RandomÀº ¿Â¶óÀÎ ¼Ò½º¿¡¼­ ÀÓÀÇÀÇ µ¥ÀÌÅ͸¦ ¾ò´Â Perl ¸ðµâÀÔ´Ï´Ù. Synopsis My $ Rand = Net :: Random-> New (FourMilab.chÀÇ ÀÓÀǼº ¼Ò½º, src => 'FourMilab.ch', # ¹× ¸®ÅÏ °á°ú) 1, 2000 min => 1, max => 2000); @numbers = $ rand-> get (5); # 5 ¼ýÀÚ¸¦ ¾òÀ¸½Ê½Ã¿À $ RAND = net :: random-> new (# random.orgÀÇ ¹«ÀÛÀ§ ¼º ¼Ò½º, src => 'random.org', ¸í½Ã Àû ¹üÀ§°¡¾ø´Â # random.org ', °ªÀÌ °¡Ä¡°¡ ¾øÀ½); # 0¿¡¼­ 255 $ Number = $ RAND-> get ()ÀÇ ±âº» ¹üÀ§¿¡ÀÖ°ÔÇϽʽÿÀ. # 1 °¡Á® ¿À±â NumberMethodsNew »ý¼ºÀÚ´Â net :: random °´Ã¼¸¦ ¹ÝȯÇÕ´Ï´Ù. ¸í¸í µÈ ¸Å°³ º¯¼ö°¡ ÇÊ¿äÇϸç, ±× Áß ÇϳªÀÇ 'src'-´Â ¹«ÀÛÀ§ µ¥ÀÌÅ͸¦ ¾òÀ» ¼öÀÖ´Â ¸ðµâ¿¡ ¾Ë¸®°í ¸ðµâÀ» ¾Ë·ÁÁÝ´Ï´Ù. 'min'°ú 'max'¸Å°³ º¯¼ö´Â ¼±Åà »çÇ×ÀÌ¸ç ±âº»°ªÀº °¢°¢ 0 ¹× 255ÀÔ´Ï´Ù. µÑ ´Ù Á¤¼öÀ̾î¾ßÇϸç 'max'´Â ÃÖ¼ÒÇÑ ÃÖ¼Ò + 1À̾î¾ßÇÕ´Ï´Ù. 'max'ÀÇ ÃÖ´ë °ªÀº 32 ºñÆ® int ¶Ç´Â 0xffffffff¿¡ ÀúÀåÇÒ ¼öÀÖ´Â °¡Àå Å« °ªÀÔ´Ï´Ù. ÃÖ¼Ò¿Í ÃÖ´ë »çÀÌÀÇ ¹üÀ§´Â 0xFFFFFFFFº¸´Ù Ŭ ¼ö ¾ø½À´Ï´Ù. ÇöÀç 'src'ÀÇ À¯ÀÏÇÑ À¯È¿ÇÑ °ªÀº 'fourmilab.ch'¹× 'random.org'.getÀº ¾çÀÇ Á¤¼ö ¿©¾ßÇÏ´Â ´ÜÀÏ ¼±ÅÃÀû ¸Å°³ º¯¼ö¸¦ »ç¿ëÇÕ´Ï´Ù. ÀÌ·¸°ÔÇϸé ÁöÁ¤µÇÁö ¾ÊÀº °æ¿ìÀÇ ³­¼ö ¼ö¸¦ °áÁ¤ÇÏ°í ÁöÁ¤ÇÏÁö ¾ÊÀ¸¸é ±âº»°ªÀ» 1. µ¥ÀÌÅ͸¦ °Ë»öÇÏÁö ¸øÇϸé Undef¸¦ ¹ÝȯÇÕ´Ï´Ù. µÎ ¼Ò½º°¡ ¸ðµÎ ÀÓÀÇÀÇ µ¥ÀÌÅ͸¦ Á¦°øÇÕ´Ï´Ù. ÇÒ´ç·®À» ´©¸®¸é °æ°í¸¦ ¹ñ¾î ³Â½À´Ï´Ù. ¾Æ·¡ÀÇ ¿À·ù ó¸® ¼½¼ÇÀ» ÂüÁ¶ÇϽʽÿÀ .REquirements : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


±×¹° :: ¹«ÀÛÀ§ °ü·Ã ¼ÒÇÁÆ®¿þ¾î

net :: snooplog.

NET :: SNOOPLOG´Â RFC1761 Snoop Ver 2¿¡¼­ Snoop Network Packet ·Î±×¸¦ Àд µ¥ »ç¿ëµÇ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

154

´Ù¿î·Îµå