note
CountZero
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.<p>And yet, no need to despair or re-invent the wheel when CPAN will provide you with such nice modules as [module://Lingua::EN::Conjugate]:<p><c>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
</c>Output:<c>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
---------------------
</c><!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-198160">
<p>CountZero</p><p><i>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."</i> - [http://www.canonical.org/~kragen/tao-of-programming.html|The Tao of Programming], 4.1 - Geoffrey James</p>My blog: [http://imperialdeltronics.wordpress.com|Imperial Deltronics]
</div></div>
1158428
1158428