Re: What is happening here

[WC -Sx- Jones]

#! /usr/bin/perl
use strict;
use warnings;
my $count;
my $index;
my $str;
while (++$index) {
  $count = $index;
  while(1) {
    (++$count) ? $count += $count--
               : $count += $count++;
    $str = unpack("B32", pack("N", $count));
    print "$count \tis binary $str\n";
    last if $count > 60_000;
    sleep 1;
  }
exit if $index > 255;
}
__END__
-Sx-
OK, I am done  :)

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>