in reply to perl experts .. plz
Further to the comments already given, your program is a very naive implementation of a conjugation script. Of course, it will give the wrong answer for lots of more or less irregular verbs. So even when you correct all the syntax errors, it will still not run "correctly" in the sense that it will not give you the right answers.
And yet, no need to despair or re-invent the wheel when CPAN will provide you with such nice modules as Lingua::EN::Conjugate:
Output:use Modern::Perl qw/2015/; use Lingua::EN::Conjugate qw/conjugate/; while ( my $verb = <DATA> ) { chomp $verb; for my $pronoun (qw/I you he we you they/) { say conjugate( verb => $verb, pronoun => $pronoun, allow_contractions => 1, tense => 'present', ); } say '---------------------'; } __DATA__ walk hear be have go try sing may
I walk you walk he walks we walk you walk they walk --------------------- I hear you hear he hears we hear you hear they hear --------------------- I'm you're he's we're you're they're --------------------- I've you've he's we've you've they've --------------------- I go you go he goes we go you go they go --------------------- I try you try he tries we try you try they try --------------------- I sing you sing he sings we sing you sing they sing --------------------- I may you may he may we may you may they may ---------------------
CountZero
A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James
My blog: Imperial Deltronics
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: perl experts .. plz
by blueberry (Initiate) on Mar 21, 2016 at 20:18 UTC | |
by davido (Cardinal) on Mar 22, 2016 at 04:06 UTC | |
by Anonymous Monk on Mar 22, 2016 at 10:13 UTC | |
by CountZero (Bishop) on Mar 22, 2016 at 16:37 UTC | |
by GotToBTru (Prior) on Mar 25, 2016 at 18:28 UTC | |
by CountZero (Bishop) on Mar 25, 2016 at 19:13 UTC | |
by Mr. Muskrat (Canon) on Mar 22, 2016 at 16:51 UTC | |
by CountZero (Bishop) on Mar 22, 2016 at 19:28 UTC |
In Section
Seekers of Perl Wisdom