| CGI :: Framework. CGI :: Framework´Â »ç¿ëÇÏ´Â °¡º¿î À¥ CGI ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
CGI :: Framework. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mnaguib/EasyTCP-0.26/EasyTCP.pm
CGI :: Framework. ű×
CGI :: Framework. ¼³¸í
CGI :: Framework´Â »ç¿ëÇÏ´Â °£´ÜÇÑ °¡º¿î À¥ CGI ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. CGI :: Framework´Â »ç¿ëÇÏ´Â °£´ÜÇÑ °¡º¿î À¥ CGI ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. HTML :: ÅÛÇø´, CGI :: ¼¼¼Ç, CGI, ·ÎÄÉÀÏ :: MakeText¿Í Magic.Synopsis CGI :: Framework¸¦ »ç¿ëÇÏ´Â °ÍÀº ÁÖ·Î Á¢ÂøÁ¦ÀÔ´Ï´Ù. VARS QW ($ F)¸¦ »ç¿ëÇϽʽÿÀ. # # Ãʱâ ÇÁ·¹ÀÓ ¿öÅ© ÀνºÅϽº # $ F = »õ CGI :: ÇÁ·¹ÀÓ ¿öÅ© (sessions_dir => "/ tmp", templates_dir => "/ Ȩ / ÇÔ / MyProject / ÅÛÇø´", Initial_Template => "EnterUsername",) || DIE "»õ·Î¿î CGI :: Framework ÀνºÅϽº : $ @ n"À» ¸¸µå´Â µ¥ ½ÇÆÐÇß½À´Ï´Ù. # # just-offitting ¾ç½ÄÀÇ È®ÀÎÀ» ó¸®ÇÏ°í, ¼Û½Å ÅÛÇø´ÀÇ °ËÁõÀ» ÁغñÇÏ°í, ¸ðµç Á¤¸® # $ f-> ÆÄ°ß ()¿¡ ´ëÇÑ µ¥ÀÌÅ͸¦ ÁغñÇÏ´Â °ÍÀ» Æ÷ÇÔÇÏ¿© "¸¶¼úÀ» ¼öÇàÇϽʽÿÀ"¶ó´Â ÀνºÅϽº¸¦ ¾òÀ¸½Ê½Ã¿À. # #ÀÌ ÇÏÀ§´Â "EnterUserName"ÅÛÇø´ÀÌ Å¬¶óÀ̾ðÆ® # Sub Validate_EnterUserName¿¡ ÀÇÇØ Á¦Ãâ µÈ ÈÄ ÀÚµ¿À¸·Î È£ÃâµË´Ï´Ù. {My $ F = Shift; if (! $ F-> ¾ç½Ä ( "»ç¿ëÀÚ À̸§")) {$ F-> add_error ( "»ç¿ëÀÚ À̸§À» ÀÔ·ÂÇؾßÇÕ´Ï´Ù"); } ELSIF (! $ F-> ¾ç½Ä ( "¾ÏÈ£")) {$ F-> add_error ( "¾ÏÈ£¸¦ ÀÔ·ÂÇؾßÇÕ´Ï´Ù"); } else {($ f-> ¾ç½Ä ( "»ç¿ëÀÚ À̸§") EQ "MINA"$ F-> ¾ç½Ä ( "¾ÏÈ£") eq "verysecret") {$ F-> ¼¼¼Ç ( "»ç¿ëÀÚ À̸§", "mina"); $ F-> ¼¼¼Ç ( "ÀÎÁõ", "1"); } else {$ F-> add_error ( "ÀÎÁõ ½ÇÆÐ"); }}} # #ÀÌ ÇÏÀ§´Â "MainMenu"ÅÛÇø´ÀÌ Àü¼ÛµÇ±â Àü¿¡ ÀÚµ¿ È£ÃâµË´Ï´Ù. # Sub Pre_MainMenu {My $ F = Shift; $ f-> assert_session ( "ÀÎÁõ"); $ F-> HTML ( "SomeVariable", "SomeValue"); $ f-> html ( "name", $ f-> ¼¼¼Ç ( "»ç¿ëÀÚ À̸§")); } # #ÀÌ ÇÏÀ§´Â "·Î±× ¾Æ¿ô"ÅÛÇø´ÀÌ Àü¼Û µÈ ÈÄ ÀÚµ¿À¸·Î È£ÃâµË´Ï´Ù. # Sub Post_Logout {My $ F = Shift; $ f-> clear_session (); } ¿ä±¸ »çÇ× : ¡¤ Perl.
CGI :: Framework. °ü·Ã ¼ÒÇÁÆ®¿þ¾î