Re: The Comma Operator

perl -lwe'$oldtime = $^T;

          print( -(($oldtime+0) - ($oldtime = time)) )
                                            while sleep 1'

Select or download this
my $tm = time; print $tm - $oldtm; $oldtm = $tm;

Select or download this
( -(($oldtime || $^T) - ($oldtime = time)) )

perl -e'$\=$,=$";$b=1;
        print $b, $a += $b += $a while $a <1000;
        print"\n"'

Select or download this
-( (x + 0) - (x = y) )

Select or download this
(x = y) - (x)

Select or download this
x - x

Select or download this
0

Select or download this
print 0;

Select Code to Download