Question

Please help with the following perl program

3. Rewrite the following Perl code in a more Perl-specific programming style. Take advantage of as many Perl shortcuts as you can to make the code shorter and/or easier to read:

@words = ("good", "bad", "ugly", "nice");

for ($i = 0; $i <= $#words; $i++) {

printf("%s %s %s", "I have been very", $words[$i], "\n");

}

Answer 1

The first way is

foreach ("good", "bad", "ugly", "nice") {
print "I have been very $_ \n"
}

The second way is

# say works like the print command but it appends a newline to the printed string.
use feature qw/say/;
foreach ("good", "bad", "ugly", "nice") {
say "I have been very $_";
}

The third way is

# if you needed the @words array to use in later part of the program
# it is better to define the variable instead of using directly in foreach loop

@words = ("good", "bad", "ugly", "nice");
foreach (@words) {
print "I have been very $_ \n"
}

All of them will give similar  output

I have been very bad   
I have been very ugly
I have been very nice
I have been very good