in reply to Adding command line arguments.
Easy. Dunno why it matters how many command-line arguments there are. But hey! -- We all have to make some effort...
#!/usr/local/bin/perl use strict; use warnings; use integer; my $even = -1<<31; do { print "$even\n"; $even += 2; } while ($even != -1<<31);
NOTES
- Untested code.
- You might run out of paper if you print the output.
- Only works for 32-bit 2's complement machines.
- Even there, it doesn't really print all the even numbers.
- 1's complement machines (does Perl run on any?) will print odd numbers too
- Doesn't test the generated numbers for evenness.
|
---|
In Section
Seekers of Perl Wisdom