Softpedia
 


LINUX CATEGORIES:



GLOBAL PAGES >>
NEWS ARCHIVE >>
SOFTPEDIA REVIEWS >>
MEET THE EDITORS >>
WEEK'S BEST
  • Linux Kernel 3.9.2 / 3....
  • LibreOffice 3.6.6 / 4.0.3
  • MPlayer 1.1.1
  • systemd 204
  • Arch Linux 2013.05.01
  • Blender 2.67
  • KDE Software Compilatio...
  • CrunchBang Linux Stable...
  • Elementary OS 0.1 / 0.2...
  • SystemRescueCd 3.6.0
  • Home > Linux > Programming > Perl Modules

    Lingua::EN::Fathom 1.15

    Download button

    No screenshots available
    Downloads: 229  View global page NEW!  Tell us about an update
    User Rating:
    Rated by:
    NOT RATED
    0 user(s)
    Developer:

    License / Price:

    Last Updated:

    Category:
    Kim Ryan | More programs
    Perl Artistic License / FREE
    November 1st, 2011, 17:23 GMT
    ROOT / Programming / Perl Modules

     Read user reviews (0)  Refer to a friend  Subscribe

    Lingua::EN::Fathom description

    Measure readability of English text

    Lingua::EN::Fathom is a Perl module that analyses English text in either a string or file. Totals are then calculated for the number of characters, words, sentences, blank and non blank (text) lines and paragraphs.

    Three common readability statistics are also derived, the Fog, Flesch and Kincaid indices.

    All of these properties can be accessed through individual methods, or by generating a text report.

    A hash of all unique words and the number of times they occur is generated.

    SYNOPSIS

     use Lingua::EN::Fathom;

     my $text = new Lingua::EN::Fathom;

     $text->analyse_file("sample.txt");

     $accumulate = 1;
     $text->analyse_block($text_string,$accumulate);

     $num_chars = $text->num_chars;
     $num_words = $text->num_words;
     $percent_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_paragraphs;
     $syllables_per_word = $text->syllables_per_word;
     $words_per_sentence = $text->words_per_sentence;


     %words = $text->unique_words;
     foreach $word ( sort keys %words )
     {
     print("$words{$word} :$word\n");
     }

     $fog = $text->fog;
     $flesch = $text->flesch;
     $kincaid = $text->kincaid;

     print($text->report);



    Product's homepage

    Requirements:

    · Perl

      


    TAGS:

    measure readability | text analyzer | Perl module | text | analyzer | readability

    Go to top

    WindowsGamesDriversMacLinuxScriptsMobileHandheldNews

    SUBMIT PROGRAM   |   ADVERTISE   |   GET HELP   |   SEND US FEEDBACK   |   RSS FEEDS   |   UPDATE YOUR SOFTWARE   |   ROMANIAN FORUM