Æí¹°

Web Perl ModuleÀº ¸¹Àº WebWorking ¿ëµµ·Î À¯¿ëÇÑ ·çƾ ¼¼Æ®¸¦ Æ÷ÇÔÇÕ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Æí¹° ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Wolfgang Wiese
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~xwolf/web-1.35/web.pm

Æí¹° ű×


Æí¹° ¼³¸í

Web Perl ModuleÀº ¸¹Àº WebWorking ¿ëµµ·Î À¯¿ëÇÑ ·çƾ ¼¼Æ®¸¦ Æ÷ÇÔÇÕ´Ï´Ù. Web Perl Module¿¡´Â ¸¹Àº WebWorking ¸ñÀûÀ»À§ÇÑ À¯¿ëÇÑ ·çƾ ¼¼Æ®°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù.ÀÌ ¸ðµâÀº ÁÖ·Î UNIX / Linux ½Ã½ºÅÛÀ» À§ÇØ ¸¸µé¾îÁ³½À´Ï´Ù. ±× ºÎºÐÀº ´Ù¸¥ ½Ã½ºÅÛ¿¡¼­´Â »ç¿ëÇÒ ¼ö ¾ø½À´Ï´Ù. ¿¹¸¦ µé¾î, ½Éº¼¸¯ ¸µÅ©¸¦ »ç¿ëÇÒ ¼öÀÖ´Â ÆÄÀÏ Àá±Ý ¼ö¿ä ½Ã½ºÅÛÀÇ ÀýÂ÷. Symlinks¸¦ »ç¿ëÇÒ ¼ö¾ø´Â ½Ã½ºÅÛ¿¡¼­ ModulÀ» »ç¿ëÇÏ´Â °æ¿ì Ä¡¸íÀûÀÎ ¿À·ù°¡ ¹ß»ýÇÒ ¼ö ÀÖ½À´Ï´Ù. AbstractThis Perl ModuleÀº À¥ ÆäÀÌÁö »ý¼º, CGI ½ºÅ©¸³Æ® ó¸®, XML µ¥ÀÌÅÍ ÆÄÀÏ ¹× ³×Æ®¿öÅ© ¿¬°á ÀÛ¾÷°ú °°Àº ¸¹Àº ¿ëµµ·Î ¿©·¯ °¡Áö À¯¿ëÇÑ ·çƾÀ» »ç¿ëÇÕ´Ï´Ù. ¶ÇÇÑ À¯¸íÇÑ ¶óÀ̺귯¸® CGI.PM ¹× CGI-LIB.PL.InstallationIf¿¡¼­ ¸ÕÀú Perl ¶óÀ̺귯¸® µð·ºÅ͸®¿¡ Web.pmÀ» ¼³Ä¡ÇÒ ¼öÀÖ´Â ÃæºÐÇÑ ±ÇÇÑÀÌ ¾øÀ¸¹Ç·Î ¸ÕÀú ·çƾÀÇ ÀÚü º¯ÇüÀ» »ç¿ëÇÕ´Ï´Ù. Ȩ µð·ºÅ丮 ¶Ç´Â CGI-BIN ÀÚü¿Í °°Àº Æí¸®ÇÑ ½ºÆÌ°ú ´ÙÀ½ ÇÁ¸®¾ÚºíÀÇ ¶óÀÎÀ» µû¶ó ¹«¾ð°¡¸¦ È£ÃâÇÏ´Â ¸ðµç Perl ½ºÅ©¸³Æ®¿Í °°Àº Æí¸®ÇÑ ÁöÁ¡À¸·Î : lib '/ home / myname / perl / lib'¸¦ »ç¿ëÇϽʽÿÀ. À¥À» »ç¿ëÇϽʽÿÀ. nlockthis ·çƾÀº NFS °æ°è¿¡¼­ FileLockÀ» ¼³Á¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. »ç¿ë µÈ ÀϹÝÀûÀÎ Perl-ring flock ()ÀÌ ½ÇÆÐ ÇϹǷÎÀÌ ·çƾÀº ´õ Å« ÆÄÀÏ ½Ã½ºÅÛ¿¡ ´ëÇÑ »ç¿ë °¡´ÉÇÑ ´ë¾ÈÀÔ´Ï´Ù. ¸ðµâ·¯ ÇÔ¼ö ¸µÅ© () ¹× Unlink ()¸¦ »ç¿ëÇÏ¿© Àá±ä ÆÄÀÏÀ» Ç¥½ÃÇÕ´Ï´Ù. ÀÌ ¿Ü¿¡µµ Àá±ä ÆÄÀÏÀ» Ä«¿îÅÍ·Î ¸¸µì´Ï´Ù. $ WEB :: MAX_LOCKTIME ÃÊ °¡º¸´Ù Àá°ÜÀÖ´Â ÆÄÀÏ ÀÌÀÌ ÆÄÀÏ¿¡¼­ nlock ()À» È£ÃâÇÏ´Â ´ÙÀ½ ÇÁ·Î¼¼½º·Î ÇØÁ¦µË´Ï´Ù. È£Ãâ ÇÁ·Î¼¼½º´Â 0 ¶Ç´Â 1À» ¹Ýȯ °ªÀ¸·Î °¡Á®¿É´Ï´Ù. ¿©±â¼­ ÆÄÀÏ Àá±ÝÀÌ ¼º°øÇϸé 1ÀÌ ¸®Åϵ˴ϴÙ. ÇÁ·Î¼¼½º°¡ $ WEB :: MAX_WAITLOCK ÃÊ ¶Ç´Â SYMLINK () fail.Example 1 : $ filename = "data.txt"ÀÇ °æ¿ì¿¡¸¸ ÇÁ·Î¼¼½º°¡ ´ë±âÇÏ´Â °æ¿ì¿¡¸¸ 0ÀÌ ¹ÝȯµË´Ï´Ù. nlock ($ filename); ¿­±â (F1, "$ FILENAME"); # ¹º°¡ ´Ý½À´Ï´Ù F1; NUNLOCK ($ FILENAME); ¿¹Á¦ 2 : #! / local / bin / perl5 »ç¿ë À¥; $ stat = nlock ( "jump.pl"); Àμâ "LOCK : STAT = $ statn"; $ stat = nlock ( "jump.pl"); "ÀÌ ÆÄÀÏÀ» ´Ù½Ã Àá±Þ´Ï´Ù : stat = $ statn"; ¼ö¸é 8; $ stat = nlock ( "jump.pl"); "ÀÌ ÆÄÀÏÀ» ´Ù½Ã Àá±Þ´Ï´Ù : stat = $ statn"; $ stat = nunlock ( "jump.pl"); Àμâ "Àá±Ý ÇØÁ¦ : stat = $ statn"; Ãⱸ; ¿ä±¸ »çÇ× : ¡¤ Perl.


Æí¹° °ü·Ã ¼ÒÇÁÆ®¿þ¾î