Question

In this program, you will write a Perl program to perform simple checks. You must use loops and if statements to complete the task.

1. Given the following numbers 10, 20, 30, 40, 50, 60, 70, 80, Put the numbers in an array and print the array

2. Assume the user will check if his input, using keyboard, is one of the numbers, the program should behavior as follows:

a. User input 100 the program prints not found

b. User input 20 program prints found

this is about linux please do it on putty app

give the source code with the result

Answer 1

#!/usr/local/bin/perl

#Declaring the arrays and the indices.
my @array = (10, 20, 30, 40, 50, 60, 70, 80);
my @indices = (0 .. 8);

#Printing the array.
print "The array is:\n";
foreach my $index (@indices)
{
   print "$array[$index] ";
}
print "\nPlease enter a number to search for: ";

#Taking the user input.
my $integer = <STDIN>;
my $flag = 0;

#Checking with each element in the array for a match.
foreach my $index (@indices)
{
   if($integer == $array[$index])
   {
       print "Found!\n";
       $flag = 1;
   }
}

#If not found.
if($flag == 0)
{
   print "Not found\n";
}