| ÅؽºÆ® :: Adjixes TEXT :: ANFIXES - ÅؽºÆ®ÀÇ Á¢µÎ»ç ¹× Á¢¹Ì»ç ºÐ¼®. |
Áö±Ý ´Ù¿î·Îµå |
ÅؽºÆ® :: Adjixes ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~cog/Acme-AsciiArt2HtmlTable-0.01/lib/Acme/AsciiArt2HtmlTable.pm
ÅؽºÆ® :: Adjixes ű×
ÅؽºÆ® :: Adjixes ¼³¸í
Text :: Appixes - ÅؽºÆ®ÀÇ Á¢µÎ»ç ¹× Á¢¹Ì»ç ºÐ¼®. text :: Appixes - Precixes ¹× confrixes text.synopsis ÅؽºÆ® :: ¾Þ±Ö·¹À̼ÇÀ» »ç¿ëÇÕ´Ï´Ù. ³» $ text = "Hello, World. ¾È³çÇϼ¼¿ä, ºò ¼¼»ó."; ³» $ prefixes = get_prefixes ($ text); # $ prefixes´Â # {# 3 => {# 'hel'=> 2, # 'wor'=> 2, #} # ¶Ç´Â $ prefixes = get_prefixes ({min => 1, max => 2} , $ text); # $ prefixes´Â Áö±Ý # {# 1 => {# 'h'=> 2, # 'w'=> 2, # 'b'=> 1, #}, # 2 => {# '=> 2, # 'wo'=> 2, # 'bi'=> 1, #} #} # get_suffixes¿¡ ´ëÇÑ »ç¿ëÀº ÅؽºÆ®¿¡¼ Á¢µÎ¾î Á¢µÎ¾îÀÔ´Ï´Ù. ¿øÇÏ´Â Á¢µÎ»çÀÇ ÃÖ¼Ò ¹× ÃÖ´ë ¹®ÀÚ ¼ö¸¦ ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. Çؽÿ¡ ´ëÇÑ ÂüÁ¶¸¦ ¹ÝÇâÇÏ¿© ÁöÁ¤µÈ ÇÑ°è°¡ Çؽÿ¡ ¸ÅÇε˴ϴÙ. ÀÌ·¯ÇÑ Çؽà °¢°¢Àº ÅؽºÆ®ÀÇ ¸ðµç Á¢µÎ»ç°¡ ¹ß°ß µÈ Ƚ¼ö·Î ¸ÅÇÎÇÕ´Ï´Ù. ±âº»°ªÀº ÃÖ¼Ò°ª°ú ÃÖ´ë ÇÑ°è°¡ ¸ðµÎ 3ÀÔ´Ï´Ù. ÃÖ¼Ò Á¦ÇÑÀÌ ÇÏÀ§º¸´Ù Å« °æ¿ì ºó Çؽð¡ ¹ÝȯµË´Ï´Ù. PREFIX´Â ´Ü¾îÀÇ ½ÃÀÛ ºÎºÐ¿¡ÀÖ´Â ´Ü¾îÀÇ ½ÃÀÛ ºÎºÐ¿¡ÀÖ´Â ´Ü¾î (Áï, "Á¤±Ô Ç¥Çö½Ä", Á¢µÎ»ç°¡ $ 1ÀÇ $ 1ÀÇ $ 1)ÀÇ ´Ü¾îÀÇ ½ÃÀÛ ºÎºÐ¿¡¼ ¿öµå ¹®ÀÚ (W)ÀÇ ÀÏ·ÃÀÇ ´Ü¾î (Áï, w +) w /). # Å©±âÀÇ Á¢µÎ»ç ÃßÃâ 3 $ prefixes = get_prefixes ($ text); # Å©±â 2 ¹× 3 $ prefixes = get_prefixes ({min => 2}, $ text)ÀÇ Á¢µÎ»ç¸¦ ÃßÃâÇÕ´Ï´Ù. # Å©±â 3 ¹× 4 $ prefixes = get_prefixes ({max => 4}, $ text)ÀÇ Á¢µÎ»ç¸¦ ÃßÃâÇÕ´Ï´Ù. # Å©±â 2, 3 ¹× 4 $ prefixes = get_prefixes ({min => 2, max => 4}, $ text)ÀÇ Á¢µÎ»ç¸¦ ÃßÃâÇÕ´Ï´Ù. get_suffixesthe get_suffixes ÇÔ¼ö´Â get_prefixes one°ú À¯»çÇÕ´Ï´Ù. ÇØ´ç ¹®¼¸¦ Àоî¾ßÇÕ´Ï´Ù.ÀÌ ½ÃÁ¡À¸·Î µ¹¾Æ ¿À´Â °ÍÀÔ´Ï´Ù. Á¢¹Ì»ç´Â ½ÃÀÛÇÏÁö ¾Ê´Â ´Ü¾î ³¡¿¡ÀÖ´Â ´Ü¾îÀÇ ³¡¿¡ÀÖ´Â ´Ü¾î ¹®ÀÚ (Áï, W)·Î °£Áֵ˴ϴÙ. ´Ü¾îÀÇ ½ÃÀÛ ( "Á¤±Ô Ç¥Çö½Ä"¸»Çϱâ, Á¢µÎ»ç´Â / w (w +) b / of / w (w +) b /)ÀÔ´Ï´Ù. # Å©±â 3 $ SUPPIXES = GET_SUFFIXES ($ text)ÀÇ Á¢¹Ì»ç ÃßÃâ; # Å©±â 2 ¹× 3 $ SUPPIXES = get_suffixes ({min => 2}, $ text)ÀÇ Á¢¹Ì»ç¸¦ ÃßÃâÇÕ´Ï´Ù. # Å©±â 3 ¹× 4 $ Á¢¹Ì»ç = GET_SUFFIXES ({MAX => 4}, $ text)ÀÇ Á¢¹Ì»ç¸¦ ÃßÃâÇÕ´Ï´Ù. # Å©±â 2, 3 ¹× 4 $ SUPPIXES = GET_SUFFIXES ({min => 2, max => 4}, $ text)ÀÇ Á¢¹Ì»ç¸¦ ÃßÃâÇÕ´Ï´Ù. optionsApart Á¢µÎ»ç ¶Ç´Â Á¢¹Ì»çÀÇ ÃÖ¼Ò ¹× ÃÖ´ë Å©±â¸¦ °áÁ¤ÇÏ´Â °Íµµ °áÁ¤ÇÒ ¼öµµ ÀÖ½À´Ï´Ù. ÀϺΠ±¸¼º ¿É¼ÇÀº ¼ýÀÚ¸¦ ´Ü¾îÀÇ ÀϺηΠ°í·ÁÇϸé 0À¸·Î ¼ýÀÚ¸¦ 0À¸·Î °£ÁÖÇÕ´Ï´Ù. ±âº»°ªÀº 1ÀÔ´Ï´Ù. #ÀÌ get_suffixes ({min => 1, max => 1, exclude_numbers => 0}, "hello,ÇÏÁö¸¸ w8"); #ÀÌ ¿É¼ÇÀ» ¹ÝȯÇÕ´Ï´Ù. {1 => {o '=> 1,'t '=> 1,'8 '=> 1}} ¼Ò¹®ÀÚ ¸ðµå·Î ¸ðµç Á¢µÎ»ç¸¦ ÃßÃâÇϵµ·Ï 1·Î ¸®ÅÏÇÕ´Ï´Ù. ±âº»°ªÀº 0ÀÌ 0ÀÔ´Ï´Ù. ÀÌ·¸°ÔÇÏ¸é ´ë±â ¹®ÀÚ°¡ÀÖ´Â Á¢µÎ»ç°¡ ÃßÃâµÇÁö ¾Ê½À´Ï´Ù. ±×°ÍÀº ±×µéÀÌ ¼ÒÁö µÈ ÈÄ¿¡ ÃßÃâ µÉ °ÍÀ̶ó´Â °ÍÀ» ÀǹÌÇÕ´Ï´Ù. #ÀÌ ... get_prefixes ({min => 2, max => 2, ¼Ò¹®ÀÚ => 1}, "Hello, Hello"); #ÀÌ ¿É¼ÇÀ» ¹ÝȯÇÕ´Ï´Ù : {2 => { '=> 2}} ¿ä±¸ »çÇ× : ¡¤ Perl
ÅؽºÆ® :: Adjixes °ü·Ã ¼ÒÇÁÆ®¿þ¾î