note
Athanasius
<p>Hello [euswdwj], and welcome to the Monastery!</p>
<p>In the case where the scope of the loop variable does not need to extend beyond the loop itself, a C-style <tt>for</tt> loop may be preferable to the more usual <tt>while</tt>:</p>
<code>
#! perl
use Modern::Perl;
my $number = 7;
print "Before the loop, \$number is $number\n\n";
for (my $number = 0; $number != 10;)
{
print 'Please enter a number (10 to quit): ';
chomp($number = <STDIN>);
print "You entered: $number\n";
}
print "\nAfter the loop, \$number is $number\n";
</code>
<p>Sample run:</p>
<code>
12:34 >perl 438_SoPW.pl
Before the loop, $number is 7
Please enter a number (10 to quit): 1
You entered: 1
Please enter a number (10 to quit): 0
You entered: 0
Please enter a number (10 to quit): 100
You entered: 100
Please enter a number (10 to quit): 10
You entered: 10
After the loop, $number is 7
12:35 >
</code>
<p>Hope that helps,</p>
<div class="pmsig"><div class="pmsig-968231">
<p>
<table width="100%">
<tr>
<td align="left">
Athanasius <font color="#008000"><</font>[href://http://www.biblegateway.com/passage/?search=John%203:16&version=NLV|<font color="#008000">°</font>]<font color="#008000">(((><</font> <i>contra mundum</i>
</td>
<td align="right">
[href://http://translate.google.com.au/#la/en/Iustus%20alius%20egestas%20vitae%2C%20eros%20Piratica%2C|<b>Iustus alius egestas vitae, eros Piratica,</b>]
</td>
</tr>
</table>
</p>
</div></div>
1009647
1009647