| Mail :: Sort. Mail :: Á¤·ÄÀº Çì´õ ÀÏÄ¡ Á¶°Ç¿¡ µû¶ó µé¾î¿À´Â ¸ÞÀÏÀ» ºÐÇÒÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Mail :: Sort. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Ian Zimmerman
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~thedevil/Mail-Sort-20070404/Sort.pod
Mail :: Sort. ű×
Mail :: Sort. ¼³¸í
Mail :: Sort´Â Çì´õ ÀÏÄ¡ Á¶°Ç¿¡ µû¶ó µé¾î¿À´Â ¸ÞÀÏÀ» ºÐÇÒÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Mail :: Á¤·ÄÀº Çì´õ ÀÏÄ¡ Á¶°Ç¿¡ µû¶ó ¼ö½Å ¸ÞÀÏÀ» ºÐÇÒÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .Synopsis Mail :: Sort; $ sort = »õ ¸ÞÀÏ :: Á¤·Ä (test => 0, logfile => "$ env {home} / sortlog", loglevel => 2); $ spool = "$ env {home} / mail"; $ SORT-> Àá±Ý ( "$ env {home} / one_at_a_time_please"); $ SORT-> Àá±Ý ÇØÁ¦ ( "$ env {home} / one_at_a_time_please"); $ sort-> Àü´Þ ( "| formail >> $ spool / junk") $ sort-> header_match ( 'from', 'spammer'); $ SORT-> Àü´Þ ( "| Formail >> $ spool / work", keep => 1) $ sort-> destination_address ('me@work.com '); $ SORT-> Àü´Þ ( "| Formail >> $ spool / list", label => '¸ÚÁö´Ù). $ sort-> ¾ÕÀ¸·Î ( "boss@work.com") $ sort-> header_match ( 'ÁÖÁ¦', '½Å¿ë Ä«µå ¼ö¶ô') $ sort-> grep {$ _ = ~ / money /} @ {$ Á¤·Ä -> {body}} Ãⱸ (1); ¿ä±¸ »çÇ× : ¡¤ Perl.
Mail :: Sort. °ü·Ã ¼ÒÇÁÆ®¿þ¾î