Hi All.

I'm writing a perl script to check if every entry to an array is unique before putting it into an array.

I expected my code would give an output like this:

Enter a number: 1
2
3
3
Already exist
4
^Z
Array is: 1 2 3 4

But I'm getting an infinite loop which doesnt break when I type "^Z"

also it doesnt prompt "already exist" when I enter redudant values 

$i=1;
@arr=();
print "Enter a number";
while(1)
{ 
$val=<>;
if ($i eq 1)                          #Enter the first entry into the 
+array directly.
{
push(@arr,$val);         # push it into the array 'arr'.
}
else
{for($x=1;$x<=scalar(@arr);$x++)  #run through the 'arr'.
{ if($arr[$x] eq $val)   # check if every entry is unique.
{ print "Already exist at $x position";# if it is not, tell the user t
+o enter a unique one and ignore the present (redundant)entry.
exit;}                                 
else { 
push(@arr,$val);                          #If unique, push into the ar
+ray.
}
}
}
print" @arr \t";
}
print "Array is:", @arr;                   #display the array.

[download]

Any help would be appreciated.

Thanks

In reply to question on Arrays by hari9

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.