<div>
#!/usr/local/bin/perl<br />
<br />
<br />
$numbers[0] = 2;<br />
<br />
$numbers[1] = 1;<br />
<br />
@sorted_numbers = sort { $a &lt;=&gt; $b } @numbers;<br />
<br />
print $sorted_numbers[0]; &nbsp;#this is the lowest<br />
<br />

</div>


#!/usr/local/bin/perl


$numbers[0] = 2;

$numbers[1] = 1;

@sorted_numbers = sort { $a <=> $b } @numbers;

print $sorted_numbers[0];  #this is the lowest



<div>
Hi!<br />
<br />
I tested the program (using @numbers=(2,4,1,6} and it just shows me the lowest number which is 1. &nbsp;I need it to print the lowest AVAIABLE number (ie, the lowest number which isn't there).<br />
<br />
Thanks!<br />
<br />
Graeme
</div>


Hi!

I tested the program (using @numbers=(2,4,1,6} and it just shows me the lowest number which is 1.  I need it to print the lowest AVAIABLE number (ie, the lowest number which isn't there).

Thanks!

Graeme

<div>
@numbers{@numbers} = ();<br />
@available = grep{!exists$numbers{$_}}(<wbr />1..(sort{$<wbr />a&lt;=&gt;$b}@nu<wbr />mbers)[-1]<wbr />+1);<br />
$lowest = @available[0];
</div>


@numbers{@numbers} = ();
@available = grep{!exists$numbers{$_}}(1..(sort{$a<=>$b}@numbers)[-1]+1);
$lowest = @available[0];

<div>
@numbers{@numbers} = ();<br />
@available = grep{!exists $numbers{$_}}(1..($#number<wbr />s+2)); <br />
$lowest = $available[0];<br />

</div>


@numbers{@numbers} = ();
@available = grep{!exists $numbers{$_}}(1..($#numbers+2));
$lowest = $available[0];


<div>
@numbers{@numbers} = ();<br />
($lowest, $others) = grep {!exists $numbers{$_}}(1..$#numbers<wbr />+2); <br />

</div>


@numbers{@numbers} = ();
($lowest, $others) = grep {!exists $numbers{$_}}(1..$#numbers+2);


<div>
Hi!<br />
<br />
It worked. &nbsp;Thanks a lot for everyones help!<br />
<br />
Graeme Sandwell
</div>


Hi!

It worked.  Thanks a lot for everyones help!

Graeme Sandwell

<div>
<div class="content wysiwyg-content">
Hi!<br />
<br />
There are numbers stored in the @numbers (for example - @numbers={2,4,1,6))<br />
<br />
How do I search though the @numbers and look for the lowest avaible number (only whole numbers and no negtives) and assign the lowest number to $lowest.<br />
<br />
So in this example, the number 3 would be stored in $lowest.<br />
<br />
Thanks in advance!<br />
<br />
Graeme Sandwell
</div>
</div>


Hi!

There are numbers stored in the @numbers (for example - @numbers={2,4,1,6))

How do I search though the @numbers and look for the lowest avaible number (only whole numbers and no negtives) and assign the lowest number to $lowest.

So in this example, the number 3 would be stored in $lowest.

Thanks in advance!

Graeme Sandwell

Lowest number in @numbers

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.