20 lines
324 B
Perl
20 lines
324 B
Perl
|
#!c:\perl\bin
|
||
|
|
|
||
|
|
print "\n\nHere is the pre-increment example: \n";
|
||
|
|
|
||
|
|
$count = 0;
|
||
|
|
|
||
|
|
while ($count < 5)
|
||
|
|
{
|
||
|
|
print "The value of \$count is " . ++$count . "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print "\n\nHere is the post-increment example: \n";
|
||
|
|
|
||
|
|
$count = 0;
|
||
|
|
|
||
|
|
while ($count < 5)
|
||
|
|
{
|
||
|
|
print "The value of \$count is " . $count++ . "\n";
|
||
|
|
}
|