| syslogscan :: ¿ä¾à syslogscan :: ¿ä¾à SendmailÀ» ÅëÇØ ¾ó¸¶³ª ¸¹Àº ¹ÙÀÌÆ®¸¦ º¸³»°í¹ÞÀº ¼öÁØÀÇ ¹ÙÀÌÆ®¸¦ ĸ½¶ÈÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
syslogscan :: ¿ä¾à ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Rolf Harold Nelson
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rhnelson/SyslogScan-0.32/SyslogScan/Summary.pm
syslogscan :: ¿ä¾à ű×
syslogscan :: ¿ä¾à ¼³¸í
syslogscan :: ¿ä¾à SendmailÀ» ÅëÇØ »ç¶÷µéÀÌ º¸³½ ¹ÙÀÌÆ®¸¦ ¾ó¸¶³ª ¸¹Àº ¹ÙÀÌÆ®¸¦ ¼ö½ÅÇß´ÂÁöÀÇ Áý°è¸¦ ĸ½¶ÈÇÕ´Ï´Ù. syslogscan :: ¿ä¾à sendmailÀ» ÅëÇØ »ç¶÷µéÀÌ º¸³½ ¹ÙÀÌÆ®¸¦ ¾ó¸¶³ª ¸¹Àº ¹ÙÀÌÆ®¸¦ ¼ö½ÅÇß´ÂÁöÀÇ Áý°è¸¦ ĸ½¶ÈÇÕ´Ï´Ù. Synopsis syslogscan :: ¿ä¾à; syslogscan :: DeliveryTerator¸¦ »ç¿ëÇϽʽÿÀ. MY $ ITER = NEW syslogscan :: DeliveryTerator (sysloglist => ); ³» $ ¿ä¾à; if (defined $ dome_tr_the_hard_way_for_no_particular_reason) {# ÀÏ·ÃÀÇ syslogscan :: ¹è´Þ °³Ã¼ $ summary = new syslogscan :: summary (); ³» $ ¹è´Þ; while ($ Delivery = $ Iter -> next ()) {$ ¿ä¾à -> registerDelivery ($ ¹è´Þ); # ´ë½Å »ç¿ëÇÒ °ÍÀÔ´Ï´Ù : # $ ¿ä¾à -> registerdelivery ($ Delivery, 'foo.com. $') #¸¸ÀÌ comet ¶Ç´Â¹ÞÀº foo.comÀÇ ¸ÞÀÏ »ç¿ëÀÚ°¡ ¾ó¸¶³ª ¸¹Àº ¸ÞÀÏ »ç¿ëÀÚ°¡ ¹Þ¾Æ µé¿©Áö°í ¹Þ´ÂÁö¿¡ ´ëÇÑ Åë°è¸¦ ¾òÀ¸·Á¸é # $. }} else {# iterator¿¡¼ ¸ðµç ¹è´ÞÀ» ´Ã¸®½Ê½Ã¿À. # $ summary À§ÀÇ ºí·Ï°ú µ¿ÀÏÇÑ È¿°ú¸¦ »ý¼ºÇÕ´Ï´Ù = »õ·Î¿î syslogscan :: ¿ä¾à ($ iter); } $ ¿ä¾à Àμâ -> ´ýÇÁ (); syslogscan :: »ç¿ë¹ý; MY $ USAGE = $$SUMMARY ( 'john_doe@foo.com'}; (Á¤ÀÇ µÈ $ »ç¿ë·®) {print "if {print"´Â foo.com¿¡¼ John DoeÀÇ »ç¿ë¹ýÀÔ´Ï´Ù. $ USAGE Àμâ -> ´ýÇÁ (); } else {Print "John Doe´Â ÃÖ±Ù¿¡ ¸Þ½ÃÁö¸¦ ¹Þ°Å³ª¹ÞÁö ¸øÇß½À´Ï´Ù .N"; } ¿ä±¸ »çÇ× : ¡¤ Perl.
syslogscan :: ¿ä¾à °ü·Ã ¼ÒÇÁÆ®¿þ¾î