Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Help, with loops

May 3, 1999, 2:55 AM
jacowhee
Novice (48 posts)
May 3, 1999, 2:55 AM
Post #1 of 4
Views: 500
Shortcut
Quote Reply
Help, with loops
Hi, can anyone help?

I need help making a script that will print the #'s 30-99 in a file... starting from 30.
I know it should be easy to do...
It should print them on seperate lines, like:
30
31
32 etc...

Thanks!

------------------
May 3, 1999, 5:55 AM
dahamsta
User (429 posts)
May 3, 1999, 5:55 AM
Post #2 of 4
Views: 478
Shortcut
Quote Reply
Re: Help, with loops In reply to
Code:
#!/usr/bin/perl

# Location of the file you want to print to.
$file = '/apache/htdocs/file.txt';

open(FILE,">$file");
$num = 30;
while ($num != 100) {
print FILE "$num\n";
$num++;
}

close(FILE);

# Print a confirmation to the browser.
print "Content-type: text/plain\n\n";
print "Done!";

exit;
May 3, 1999, 11:14 AM
jacowhee
Novice (48 posts)
May 3, 1999, 11:14 AM
Post #3 of 4
Views: 478
Shortcut
Quote Reply
Re: Help, with loops In reply to
Thank you very much!

------------------
May 4, 1999, 6:33 AM
Alex
Administrator (9387 posts)
May 4, 1999, 6:33 AM
Post #4 of 4
Views: 479
Shortcut
Quote Reply
Re: Help, with loops In reply to
The foreach loop is also pretty nice:

foreach $number (30 .. 99) {
print FILE $number;
}

Cheers,

Alex