Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • Thanks for noticing Lingua::EN::Fathom ;-)

    As for that tiny wrapper, it doesn't look like trying to prove anything (more) about it's capabilities (comparing to Merlyn's article), everything besides Fathom's "report" being just "bloat".

    Some simple one-liners could have been enough to demonstrate Lingua:EN::Fathom's usefulness:

    # fog report for english_textfile:
    perl -MLingua::EN::Fathom -le 'print Lingua::EN::Fathom->new->analyse_file(shift)->report;' english_textfile

    # fog report, "pipe" style:
    perl -MLingua::EN::Fathom -le 'undef $/; print Lingua::EN::Fathom->new->analyse_block(<>)->report;' < english_textfile

    # fog report for multiple files:
    perl -MLingua::EN::Fathom -le 'print Lingua::EN::Fathom->new->analyse_file($_)->report for @ARGV' english_textfile1 english_textfile2 english_textfile3

    etc