PerlBug :: ÀÎÅÍÆäÀ̽º :: Web.

PerlBug :: Interface :: WebÀº µ¥ÀÌÅͺ£À̽º PerlBugÀÇ À¥ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

PerlBug :: ÀÎÅÍÆäÀ̽º :: Web. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Richard Foley
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~rfoley/Perlbug-2.93/Perlbug/Format.pm

PerlBug :: ÀÎÅÍÆäÀ̽º :: Web. ű×


PerlBug :: ÀÎÅÍÆäÀ̽º :: Web. ¼³¸í

PerlBug :: Interface :: WebÀº µ¥ÀÌÅͺ£À̽º PerlBugÀÇ À¥ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. PerlBug :: Interface :: WebÀº Perlbug DatabaseÀÇ À¥ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. Synopsis My $ O_Web = PerlBug :: Interface :: Web-> New; $ o_web-> topÀ» ÀμâÇϽʽÿÀ; $ o_web-> ¿äû ( 'µµ¿ò¸»') Àμâ; Àμâ $ o_web-> ¸µÅ©; methodsNewCreate »õ·Î¿î perlbug :: interface :: Web Object. MY $ WEB = PerlBug :: Interface :: Web-> New; SetupSetup PerlBug :: Interface :: Web $ O_Web-> Setup ($ CGI); HTTP¸¦ ÅëÇÑ CHECK_USERACCESS ÀÎÁõÀ» ÅëÇØ DBÀÇ µ¥ÀÌÅ͵µ ÇÁ¶óÀÓ ½º½º·Î¸¦ Á¦°øÇÕ´Ï´Ù. ¼öÁ÷ Çü½ÄÀ» À§ÇØ ¼³°èµÈ ½Ã½ºÅÛÀÇ Menusreturn ¸Þ´º. ·Î°í, Á¦¸ñ ¹× ¸µÅ© Àμâ $ o_web-> menus (); href = hard_wired_urlÀÌÀÖ´Â ½Ã½ºÅÛÀÇ Logoreturn ·Î°í°¡ $ o_web-> logo (); ÇöÀç ÆäÀÌÁöÀÇ get_titlereturn Á¦¸ñ Àμâ $ o_web-> get_title (); openÀÇ ¿ä¾à / ´ÝÈù ¹ö±× Àμâ $ o_web-> summary (); ÀûÀýÇÑ °æ¿ì, ÀûÀýÇÑ ±¸¼ºµÈ ¸µÅ© ¹× °´Ã¼ °Ë»ö ¾ç½Ä¿¡ »ðÀÔ µÈ ½Ã½ºÅÛÀÇ ¸µÅ© ¸µÅ©. Print $ O_Web-> ¸µÅ© (); INDEXDISPLAY ¿©±â¼­ À妽º °á°ú ...ÀÌ ¿äû¿¡ ´ëÇÑ req °ª ³» $ req = $ self-> get_request; set_commandset ÀÔ·Â ¹× Á¶ÀÛ ³» $ cmd = $ o_web-> set_command ($ req); ¸í·É¿¡ ´ëÇÑ ¸í·É ¸Þ´º ¹öÆ° $ o_web-> ¸í·É ($ req); switchreturn ³»ºÎ CGI °´Ã¼¸¦ »ç¿ëÇÏ¿© ¿äû (ELSE INDEX)¿¡ ÀûÀýÇÑ ¸Þ¼Òµå È£Ãâ MY $ ¹æ¹ý = $ o_web-> ½ºÀ§Ä¡ (); # $ method = ($ È£Ãâ À妽º) StartReturn ÀûÀýÇÑ ½ÃÀÛ Çì´õ µ¥ÀÌÅÍ¿¡ ´ëÇÑ ½ÃÀÛ Çì´õ µ¥ÀÌÅÍ´Â ½ÃÀÛ Å×À̺íÀ» Æ÷ÇÔÇÕ´Ï´Ù. $ o_web-> start (); ÀûÀýÇÑ À̸§°ú ´ë»óÀ» °¡Áø FormReturn ¾ç½Ä. Àμâ $ o_web-> ¾ç½Ä ( '¸Þ´º'); TopReturnÀº ÀÏ°üµÈ ÆäÀÌÁö »ó´ÜÀÔ´Ï´Ù. Àμâ $ o_web-> top ($ req, $ cmd); ¸ðµç À¥ ¿äû (³»ºÎ Àμâ) $ o_web-> ¿äû ($ È£Ãâ); ÁÖ¾îÁø ´ë»ó ¹®ÀÚ¿­¿¡ ÀûÇÕÇÑ DIR / FILE.EXT ³» $ filename = $ o_base- > Target2File ( 'Çì´õ'); # -> '/home/richard/web/header.html'finishreturn ¾×ÀÚ°¡ÀÖ´Â HTMLVARIES°¡ ÀûÀýÇÑ HTMLVARIES¸¦ ¸¶¹«¸®ÇÕ´Ï´Ù. Table Finish Print $ O_Web-> ¸¶Ä§ ($ REQ); ¹ö±× ±×·ì¿¡ ´ëÇÑ DOO MethodGraphDisplay ÆÄÀÌ ¶Ç´Â È¥ÇÕ ±×·¡ÇÁ µîÀ» Æ÷ÇÔÇÕ´Ï´Ù. , °´Ã¼ ÀÛ¼ºÀ»À§ÇÑ AccessCreateWRAPPER¿¡ ´ëÇÑ °´Ã¼ ¾×¼¼½º¸¦À§ÇÑ AccessCreateWRAPPER¿¡ ´ëÇÑ OBJECT ¾×¼¼½º¸¦À§ÇÑ OBJECT_HANDLERWRAPPER : OBJECT => $ OBLECT_HANDLER ($ ME_THOD, $ OID); # o_cgi´Â ¹ö±×¿Í »ç¿ëÀÚ¸¦À§ÇÑ Heavenshisthistory ¸ÞÄ¿´ÏÁò¿¡¼­ Á¦°øµË´Ï´Ù. Æ÷¸ËÅÍ :: ¿ª»ç¸¦ Çü½ÄÈ­ÇÕ´Ï´Ù !!! id $ o_web-> ¸Ó¸®±Û ( 'ÆÐÄ¡', $ ID) ...¿¡ BUGID ¹× MessageID AccessSpecRetÀº PerlBug ½Ã½ºÅÛ¿¡ ´ëÇÑ »ç¾çÀ»À§ÇÑ BidmidWrapperÀÔ´Ï´Ù. $ dynamic = ~ s // g; $ dynamic = ~ s / b (http : +? perlbug.cgi) b / $ 1 / gi; $ dynamic = ~ s / b ( + @. +? (? :? com | org | net | edu) b / $ 1 / gi; perlbug¿¡ ´ëÇÑ webhelpweb ±â¹Ý µµ¿ò¸». Print $ Web-> WebHelp; PerlBugÀÇ MailHelpWeb ±â¹Ý ¸ÞÀÏ µµ¿ò¸». Print $ Web-> MailHelp; AccessSQLOPEN »èÁ¦ ¿ë deleteWrapper SQL Query ProcessorToDoTo Do ¸ñ·Ï, toadminfaqadminfaqweb_queryform bugid °Ë»ö À¥ Äõ¸® °á°ú # °á°ú - ±âº» :: Äõ¸® modifiedSearchConstruct Search ÆûÀ» ¼±ÅÃÇÏ¿© Äõ¸® () Äõ¸® ()¿¡ ¸ÊÇÎÇÏÁö ¸¶½Ê½Ã¿À. ±âº»°ª ... ¸ðµç ÀÀ¿ë ÇÁ·Î±×·¥ °³Ã¼ÀÇ ¾÷µ¥ÀÌÆ®, object_Handler $ o_web-> update ()¸¦ ·¡ÇÎÇÕ´Ï´Ù. # vuttons = $ o_web-> current_buttons ( '°Ë»ö ¾÷µ¥ÀÌÆ® Àç¼³Á¤', ); À¥ °Ë»ö¿¡¼­ ÄÉÀ̽º ÇÚµé ÄÉÀ̽º ¹Î°¨µµ Form.Format_QueryProduce CGI Query¿¡¼­ ¹ö±× °Ë»öÀ» À§ÇØ SQL Äõ¸®¸¦ °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù. MY $ QUERY = $ WEB-> FORMAT_QUERY; WILESCARDCONVERT '*'´Â SQLQUERY MY $ string = $ self-> ¿ÍÀϵå Ä«µå ( ' 5. * '); À¥ Äõ¸® °á°ú¿¡¼­ ºÐÇÒ ÇÒ ¸µÅ© (¼ö½Ê ¶Ç´Â ±× ÀÌ»ó)ÀÇ ¸µÅ© ¹üÀ§. $ self-> tenify (@_ ÀÔÂû°¡, '¹ö±×', 7); # 7ÀÇ Ã»Å©¿¡¼­ : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


PerlBug :: ÀÎÅÍÆäÀ̽º :: Web. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

svggraph.

SVGGraph´Â SVG ±×·¡ÇÁ / ´ÙÀ̾î±×·¥ / Â÷Æ® / Ç÷ÔÀ» »ý¼ºÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. ...

146

´Ù¿î·Îµå