Re: What is happening here

[WC -Sx- Jones]

WC -Sx- Jones wrote:
What is happening here -
while(1) {
  (++$count) ? $count += $count-- : $count += $count++;
:) May I ask a different way?

#! /usr/bin/perl
use strict;
use warnings;
my $count;
my $str;
while(1) {
  (++$count) ? $count += $count--
             : $count += $count++;
  $str = unpack("B32", pack("N", $count));
  print "$count \tis binary $str\n";
  exit if $count > 60_000;
  sleep 1;
}
__END__
-Sx-
PS - I am admit that I am likely in the middle of
a nervous break-down  LOL :)
BTW - Joseph was correct about the side-effects issue. :)
No one seemed to address the other data formats...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>