Catalyst :: Plugin :: Message.

CATALYST :: PLUGIN :: MESSAGE´Â ÈǸ¢ÇÑ »õ·Î¿î Catalyst :: Plugin :: Message¸¦ Æ÷ÇÔÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù!
Áö±Ý ´Ù¿î·Îµå

Catalyst :: Plugin :: Message. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Chunzi
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~chunzi/Catalyst-Plugin-Message-0.03/lib/Catalyst/Plugin/Message.pm

Catalyst :: Plugin :: Message. ű×


Catalyst :: Plugin :: Message. ¼³¸í

catalyst :: plugin :: message´Â »õ·Î¿î atalyst :: plugin :: message¸¦ Æ÷ÇÔÇÏ´Â perl ¸ðµâÀÔ´Ï´Ù! Catalyst :: Plugin :: Message´Â ÈǸ¢ÇÑ »õ·Î¿î Ã˸Š¸Þ½ÃÁö Ç÷¯±×ÀÎÀ» Æ÷ÇÔÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù! ÄÁÆ®·Ñ·¯¿¡¼­ °³¿ä # Ã˸ŠQW / Message /; ÇÏÀ§ ·¹Áö½ºÅÍ : ·ÎÄà {My ($ self, $ c) = @_; if ($ c-> req-> ¸Þ¼Òµå Eq 'post') {my $ Email = $ c-> req-> param ( 'À̸ÞÀÏ'); $ c-> errmsg (À̸ÞÀÏ => 'À̸ÞÀÏÀÌ ºñ¾î ÀÖÁö ¾Ê½À´Ï´Ù.). $ C-> ERRMSG (À̸ÞÀÏ => 'À̸ÞÀÏ À¯È¿ÇÏÁö ¾ÊÀº) $ EMAIL = ~ / @ /; if ($ c-> errmsg) {# ÀúÀå µ¥ÀÌÅÍ}} $ C-> stash -> { 'ÅÛÇø´'} = 'register.tpl'; } # register.tpl ¿ä±¸ »çÇ× : ¡¤ Perl.


Catalyst :: Plugin :: Message. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

DBD :: WTSPRITE.

DBD :: WTSPRITE´Â DBI ¿ë PERL È®ÀåÀÚÀ̸ç Ç÷§ ÆÄÀÏÀ» ÅëÇØ µ¥ÀÌÅͺ£À̽º eDrumulationÀ» Á¦°øÇÕ´Ï´Ù. ...

142

´Ù¿î·Îµå