Loop structures: Difference between revisions
Content added Content deleted
(Added Pascal) |
(Added Perl) |
||
| Line 112: | Line 112: | ||
procedure2; |
procedure2; |
||
END; |
END; |
||
==[[Perl]]== |
|||
[[Category:Perl]] |
|||
===while=== |
|||
'''Interpreter:''' [[Perl]] 5.8.8 |
|||
#!/usr/bin/perl -w |
|||
use strict; |
|||
my $condition1 = 0; |
|||
while ( $condition1 ) { |
|||
# Do something. |
|||
# Remember to change the value of condition1 at some point. |
|||
} |
|||
===do-while=== |
|||
'''Interpreter:''' [[Perl]] 5.8.8 |
|||
#!/usr/bin/perl -w |
|||
use strict; |
|||
my $condition1 = 0; |
|||
do { |
|||
# Do something. |
|||
# Remember to change the value of condition1 at some point. |
|||
} while ( $condition1 ); |
|||
===until=== |
|||
'''Interpreter:''' [[Perl]] 5.8.8 |
|||
#!/usr/bin/perl -w |
|||
use strict; |
|||
my $condition1 = 1; |
|||
until ( $condition1 ) { |
|||
# Do something. |
|||
# Remember to change the value of condition1 at some point. |
|||
} |
|||
===do-until=== |
|||
'''Interpreter:''' [[Perl]] 5.8.8 |
|||
#!/usr/bin/perl -w |
|||
use strict; |
|||
my $condition1 = 1; |
|||
do { |
|||
# Do something. |
|||
# Remember to change the value of condition1 at some point. |
|||
} until ( $condition1 ); |
|||