16 lines
297 B
Perl
16 lines
297 B
Perl
|
|
||
|
|
#!/usr/bin/perl
|
||
|
|
$x=5; $y=0;
|
||
|
|
$y=++$x; # Add 1 to $x first; then assign to $y
|
||
|
|
print "Pre-increment:\n";
|
||
|
|
print "y is $y\n";
|
||
|
|
print "x is $x\n";
|
||
|
|
|
||
|
|
|
||
|
|
$x=5;
|
||
|
|
$y=0;
|
||
|
|
print "Post-increment:\n";
|
||
|
|
$y=$x++; # Assign value in $x to $y; then add 1 to $x
|
||
|
|
print "y is $y\n";
|
||
|
|
print "x is $x\n";
|