Rodrigo Tavares wrote:
1) Enter with a number and print asterisks (1..30)
ex: if you type six have go to screen:
******
if ( $num >= 1 and $num <= 30 ) {
print '*' x $num, "\n";
}
if (($num1 >= 1 && $num1 <= 30)
{
for (my $i=1 ; $i < 30 ; $i++)
{
while ($num1 == $i)
{
print "*";
}
}
}
This is how a loop solution might look like:
if ( $num >= 1 and $num <= 30 ) {
for my $i ( 1..30 ) {
print '*';
last if $num == $i;
}
}
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/