·Î±× :: º´·Ä ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- David Muir Sharnoff
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~muir/
·Î±× :: º´·Ä ű×
·Î±× :: º´·Ä ¼³¸í
Ŭ·¯½ºÅÍ ÄÄÇ»Æà ÇÁ·¹ÀÓ ¿öÅ© log :: º´·ÄÀº ÀÏ°ýÈ£ ·Î±× 󸮿¡ »ç¿ëµÇ´Â Ŭ·¯½ºÅÍ ÄÄÇ»Æà ÇÁ·¹ÀÓ ¿öÅ©ÀÇ ÇÙ½ÉÀÇ ÁÖ¿ä µå¶óÀ̹ö ¸ðµâÀÔ´Ï´Ù. ÀÛ¾÷À» ¼³Á¤ÇÏ°í, ¾î¶² ÀÛ¾÷À» ½ÇÇàÇÒ ¼ö ÀÖ°í ¸í·ÉÀ» ½ÇÇàÇÏ°í ½ÇÇàÇÒ ¼öÀÖ´Â ÀÛ¾÷À» ¼³Á¤ÇÕ´Ï´Ù. ±×·¸Áö ¾ÊÀ¸¸é ±¸¼º µ¥ÀÌÅÍ¿¡¼ ±¸¹® ºÐ¼®ÇÏ°í ·Î±× :: º´·Ä :: ConfigHeck¿¡¼ À¯È¿È µÈ ±¸¼º µ¥ÀÌÅÍ¿¡¼ ±¸¹® ºÐ¼®µË´Ï´Ù. . ÇϳªÀÇ ÇÁ·Î±×·¥ ÀÎ process_log °¡ÀÌ ¸ðµâÀ» »ç¿ëÇÒ °ÍÀ¸·Î ¿¹»óµË´Ï´Ù. ÀÌ¿Í °°ÀÌ, ƯÈ÷ÀÌ ¸ðµâÀÇ API¿¡ ´ëÇÑ ¹®¼´Â Ưº°È÷ °ü·ÃÀÌ ¾Æ´ÏÁö¸¸ Àüü System.Process_log¸¦ ¹®¼È ÇÒ ¼öÀÖ´Â °Í°ú ÁÁÀº Àå¼ÒÀÔ´Ï´Ù .Process_logs´Â ±¸¼º¿¡ ÁöÁ¤µÈ ÀÏ·ÃÀÇ ÀÛ¾÷À» ÅëÇØ µ¥ÀÌÅÍ ·Î±×¸¦ ó¸®ÇϱâÀ§ÇÑ µå¶óÀ̹ö ½ºÅ©¸³Æ®ÀÔ´Ï´Ù. file.synopsis % bin / process_logs -c config_file ·Î±× :: º´·Ä; log :: parallel :: configcheck qw (validate_config); proc :: Jobqueue :: DependencyQueue; opitons (); ½ÇÇà ($ opts); validate_config ($ config); add_recnums ($ config); $ files_by_recnum {$ _-> {RECNUM}} @ {$ config -> {¼Ò½º}}¿¡ ´ëÇÑ get_files_by_srec ($ _, $ config -> {hostsinfo}); my $ dependency_graph = make_dependency_graph (make_task_list ($ opts, $ config, % files_by_recnum)) my $ job_queue = new proc :: jobqueue :: dependencyqueue (dependency_graph => $ dependency_graph, hosts => [], hold_all => 1); setup_slave_hosts ($ config, $ job_queue); ¿ä±¸ »çÇ× : ¡¤ Perl.
·Î±× :: º´·Ä °ü·Ã ¼ÒÇÁÆ®¿þ¾î