Lingua :: EN :: FATHOM. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kimryan/
Lingua :: EN :: FATHOM. ű×
Lingua :: EN :: FATHOM. ¼³¸í
¿µ¾î ÅؽºÆ®ÀÇ °¡µ¶¼ºÀ» ÃøÁ¤ÇÕ´Ï´Ù Lingua :: EN :: FathomÀº ¹®ÀÚ¿ ¶Ç´Â ÆÄÀÏ·Î ¿µ¾î ÅؽºÆ®¸¦ ºÐ¼®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ±×·± ´ÙÀ½ ÇÕ°è´Â ¹®ÀÚ, ´Ü¾î, ¹®Àå, °ø¹é ¹× ºñ °ø¹é (ÅؽºÆ®) ¼± ¹× ´Ü¶ôÀÇ ¼ö (ÅؽºÆ®) ¶óÀÎ ¹× ´Ü¶ô¿¡ µû¶ó °è»êµË´Ï´Ù. Åë°èµµ ÆÄ»ýµÇ¸ç ¾È°³, Ç÷ÎÁî ¹× kincaid À妽º°¡ °³º°ÀûÀ¸·Î ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¹æ¹ý ¶Ç´Â ÅؽºÆ® Report.aÀÇ Çؽø¦ »ý¼ºÇÏ¿© ¸ðµç °íÀ¯ ÇÑ ´Ü¾îÀÇ ÇØ½Ã¿Í ¹ß»ýÇϴ Ƚ¼ö°¡ »ý¼ºµË´Ï´Ù. Synopsis »ç¿ë Lingua :: EN :: FATHOM; ³» $ text = »õ·Î¿î ¸µ±¸ :: en :: fathom; $ text-> analyse_file ( "sample.txt"); $ Accumulate = 1; $ text-> analyse_block ($ text_string, $ acumulate); $ num_chars = $ text-> num_chars; $ num_words = $ text-> num_words; $ percant_complex_words = $ text-> percent_complex_words; $ num_sentences = $ text-> num_sentences; $ num_text_lines = $ text-> num_text_lines; $ num_blank_lines = $ text-> num_blank_lines; $ num_paragraphs = $ text-> num_paraphs; $ syllables_per_word = $ text-> syllables_per_word; $ words_per_sentence = $ text-> words_per_sentence; % words = $ text-> unique_words; $ ´Ü¾î (Å° % ´Ü¾î Á¤·Ä) {Àμâ ( "$ words {$ word} : $ word \ n"); } $ fog = $ text-> ¾È°³; $ flesch = $ text-> flesch; $ kincaid = $ text-> kincaid; Àμâ ($ text-> º¸°í¼); ¿ä±¸ »çÇ× : ¡¤ Perl.
Lingua :: EN :: FATHOM. °ü·Ã ¼ÒÇÁÆ®¿þ¾î