thank you Mr. davido, but again i don't get it .. it's supposed to be an easy question i know, but honestly am very week in perl.. would u plz help me correct and creat a script out of this:( using loop for)
#.............................#
@pronouns_ending=("i","you","he/she/it","we","you","they","","","","s","","");
print"Give a verb to be conjugated in present simple :\n\nVerb:\t";
$verb=<<>>;
split $verb;
print "\n";
for($i++;$i<4;){
print pop(@pronouns_endings)." ".$verb-3.shift(@pronouns_endings)."\n";
} | [reply] |
Mr. Dave
i tried to follow your instructions and that's what i got
#..................#
use strict;
use warning;
@pronouns_ending=("i","you","he/she/it","you","they","","","s","","");
print"remember :\n\nVerb:\t";
chomp $verb=<<>>;
split $verb;
print "\n";
for($i++;$i<4;){
print pop(@pronouns_endings($i))." ".$verb-3.shift(@pronouns_endings(i+5))."\n";
} | [reply] |