Re: new to perl, need some help

[NetWallah]

in reply to new to perl, need some help

Welcome!

The first thing monks will tell new perl programmers is to always
use strict;
use warnings
at the start of each program.

That said, your problem is the use of

@values = ();

inside the loop. That re-initializes the @values array each time.
Move that outside the loop, and initialize it like this:

my @values = ();

The Parens are not necessary - perl initializes it to an empty array anyway.
Also, you code could be shortened if you used the "map" and "grep" functions, but I expect you have a ways to go before you are comfortable with them.
But first - get your program working.
Cheers, and all the best.

[kingpin007]

Ah okay, thank you so much for that! What a silly mistake I didnt even realize that. And yes, i had actually used grep/map in my code as well to get the same output

@number = qw(1 2 3 4 5 10 11 12 13 14);

@num = map ($_ *$_, (@number)), "\n";
@square = grep ($_ >=100 && $_ <=200, @num);

print "Obtaining square values using map/grep: @square \n";

I just wanted to learn how to do it through a foreach loop. Thanks again for the quick response and help! :)

[bimleshsharma]

Here is issue with initialisation of array(@values = ();). It is reinitialising on every iteration of loop and ultimately storing last value. Use below hope that will fulfil your requirement

!#/usr/bin/perl

use strict;
use warnings;

@number = qw(1 2 3 4 5 10 11 12 13 14);

print "The values within the array are @number\n\n";

print "We will now print the square root of each number in the array a
+s long as it falls between the range of 100-200 \n\n";
my @values = ();
foreach $num (@number)
{
$sq = $num * $num;
if ($sq >= 100 && $sq <= 200)
{

push(@values, $sq);
}
}
print "Obtaining square values using foreach loop: @values\n";