What is happening here -
#! /usr/bin/perl use strict; use warnings;
my $count;
while(1) { (++$count) ? $count += $count-- : $count += $count++;
print "$count\n"; exit if $count > 60_000; sleep 1; }
__END__ -Sx-
That is a damn good question. I'm not sure what results I was expecting when I ran it, but it sure wasn't this:
3 15 63 255 1023 4095 16383 65535
-- Andrew Gaffney Network Administrator Skyline Aeronautics, LLC. 636-357-1548
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>