Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Lingua /
EN /
[ HOME SHELL ]
Name
Size
Permission
Action
Fathom.pm
17.91
KB
-rw-r--r--
Sentence.pm
14.15
KB
-rw-r--r--
Syllable.pm
4.84
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Syllable.pm
package Lingua::EN::Syllable; $Lingua::EN::Syllable::VERSION = '0.30'; # ABSTRACT: count the number of syllables in English words use 5.006; use strict; use warnings; # note that this is not infallible. it does fail for some percentage of # words (10% seems a good guess)... so it's useful for approximation, but # don't use this for running your nuclear reactor... require Exporter; our @ISA = qw/ Exporter /; our @EXPORT = qw/ syllable /; our @EXPORT_OK = qw/ @AddSyl @SubSyl /; our @AddSyl; our @SubSyl; # basic algortithm: # each vowel-group indicates a syllable, except for: # final (silent) e # 'ia' ind two syl # @AddSyl and @SubSyl list regexps to massage the basic count. # Each match from @AddSyl adds 1 to the basic count, each @SubSyl match -1 # Keep in mind that when the regexps are checked, any final 'e' will have # been removed, and all '\'' will have been removed. @SubSyl = ( 'cial', 'tia', 'cius', 'cious', 'giu', # belgium! 'ion', 'iou', 'sia$', '.ely$', # absolutely! (but not ely!) '[^td]ed$', # accused is 2, but executed is 4 ); @AddSyl = ( 'ia', 'riet', 'dien', 'iu', 'io', 'ii', 'microor', '[aeiouym]bl$', # -Vble, plus -mble '[aeiou]{3}', # agreeable '^mc', 'ism$', # -ism 'isms$', # -isms '([^aeiouy])\1l$', # middle twiddle battle bottle, etc. '[^l]lien', # alien, salient [1] '^coa[dglx].', # [2] '[^gq]ua[^auieo]', # i think this fixes more than it breaks 'dnt$', # couldn't ); # (comments refer to titan's /usr/dict/words) # [1] alien, salient, but not lien or ebbullient... # (those are the only 2 exceptions i found, there may be others) # [2] exception for 7 words: # coadjutor coagulable coagulate coalesce coalescent coalition coaxial #---------------------------------------- sub syllable { my $word = shift; my(@scrugg,$syl); $word =~ tr/A-Z/a-z/; return 2 if $word eq 'w'; return 1 if length($word) == 1; $word =~ s/\'//g; # fold contractions. not very effective. $word =~ s/e$//; @scrugg = split(/[^aeiouy]+/, $word); # '-' should perhaps be added? shift(@scrugg) unless ($scrugg[0]); $syl = 0; # special cases foreach (@SubSyl) { $syl-- if $word=~/$_/; } foreach (@AddSyl) { $syl++ if $word=~/$_/; } # count vowel groupings $syl += scalar(@scrugg); $syl=1 if $syl==0; # got no vowels? ("the", "crwth") return $syl; } # syllable 1; __END__ =head1 NAME Lingua::EN::Syllable - count the number of syllables in English words =head1 SYNOPSIS use Lingua::EN::Syllable; $count = syllable('supercalifragilisticexpialidocious'); # 14 =head1 DESCRIPTION Lingua::EN::Syllable::syllable() estimates the number of syllables in the word passed to it. Note that it isn't entirely accurate... it fails (by one syllable) for about 10-15% of my /usr/dict/words. The only way to get a 100% accurate count is to do a dictionary lookup, so this is a small and fast alternative where more-or-less accurate results will suffice, such as estimating the reading level of a document. I welcome pointers to more accurate algorithms, since this one is pretty quick-and-dirty. This was designed for English (well, American at least) words, but sometimes guesses well for other languages. =head1 KNOWN LIMITATIONS Accuracy for words with non-alpha characters is somewhat undefined. In general, punctuation characters, et al, should be trimmed off before handing the word to syllable(), and hyphenated compounds should be broken into their separate parts. Syllables for all-digit words (eg, "1998"; some call them "numbers") are often counted as the number of digits. A cooler solution would be converting "1998" to "nineteen eighty eight" (or "one thousand nine hundred eighty eight", or...), but that is left as an exercise for the reader. Contractions are not well supported. Compound words (like "lifeboat"), where the first word ends in a silent 'e' are counted with an extra syllable. =head1 SEE ALSO L<Lingua::Phonology> - a framework of classes that provide "an object model for lingistic phonology and sound change". That includes syllables, and it looks like you can use it to get syllables for words, but from a quick skim of the doc I can't see exactly how. L<Text::Info> - a new module (as of late 2015) that provides information about text in Germanic languages, including syllable count. =head1 REPOSITORY L<https://github.com/neilb/Lingua-EN-Syllable> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 1999 by Greg Fast E<lt>gdf@imsa.eduE<gt> This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =head1 AUTHOR Greg Fast (gdf@imsa.edu) =cut
Close