| ¹®ÀÚ¿ :: BlackWhiteList. ¹®ÀÚ¿ :: BlackWhiteList´Â ºí·¢¸®½ºÆ®¿Í ÈÀÌÆ®¸®½ºÆ®¿¡ ´ëÇÑ ¹®ÀÚ¿À» ÀÏÄ¡½ÃÅ°´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¹®ÀÚ¿ :: BlackWhiteList. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Marcel Grnauer
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~marcel/Module-Install-Template-0.05/lib/Module/Install/Template.pm
¹®ÀÚ¿ :: BlackWhiteList. ű×
¹®ÀÚ¿ :: BlackWhiteList. ¼³¸í
¹®ÀÚ¿ :: BlackWhiteList´Â ºí·¢¸®½ºÆ®¿Í ÈÀÌÆ®¸®½ºÆ®¿¡ ´ëÇÑ ¹®ÀÚ¿À» ÀÏÄ¡½ÃÅ°´Â Perl ¸ðµâÀÔ´Ï´Ù. ¹®ÀÚ¿ :: BlackWhiteList´Â ºí·¢¸®½ºÆ®¿Í ÈÀÌÆ®¸®½ºÆ®¿Í ¹®ÀÚ¿À» ÀÏÄ¡½ÃÅ°´Â Perl ¸ðµâÀÔ´Ï´Ù. ¹®ÀÚ¿ :: BlackWhiteList¸¦ »ç¿ëÇÕ´Ï´Ù. ²÷ÀÓ¾ø´Â ºí·¢¸®½ºÆ® => ( 'Æ÷½ºÆ®', 'Æ÷', 'PO', 'PO ¹Ú½º', 'PO', 'POB', 'POBOX', 'PO BOX', 'PO', 'POBOX' , 'PO ¹Ú½º', 'POBOX',); ²÷ÀÓ¾ø´Â ÈÀÌÆ®¸®½ºÆ® => ( 'POST ROAD', 'POST RD', 'POST Street', 'Post St', 'Post Avenue', 'Post AV', 'Post Alley', 'Post Drive'); my @ok = ( 'Post Road 123', 'Post RD 123', 'Post Street 123', 'Post St 123', 'Post Avenue 123',)); my @not_ok = ( 'Æ÷½ºÆ®', 'p.o. »óÀÚ 37', 'p.o. »óÀÚ 37,'µå¶óÀ̺ê 9 ','Æ÷½ºÆ® ½ºÆ®¸®Æ®, p.b. ',); Å×½ºÆ® °èȹ => @OK + @NOT_OK; My $ Matcher = ¹®ÀÚ¿ :: BlackWhiteList-> New (Blacklist => , Whitelist => ) -> ¾÷µ¥ÀÌÆ®; OK ($ matcher-> À¯È¿ ($ _), " À¯È¿")¿¡ ´ëÇÑ @OK; OK (! $ matcher-> À¯È¿ ($ _), " À߸øµÈ") ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
¹®ÀÚ¿ :: BlackWhiteList. °ü·Ã ¼ÒÇÁÆ®¿þ¾î