HELP! How would I script this in perl

[narzy]

this is psudo code from my knowlage of Qbasic I need to output this to a text file, (tab) is a tab

for count = 2 to 254
print count (tab) "PTR" (tab) "65.122.144."count".qdsl.fasternetworks.com"
count = count +1
next count

 

[vi edit]

***paging notfred***

 

[yllus]

*sigh* I had it written out and a mod moved it. Click "Back" and it was gone.

for (my $count = 2; $count <= 254; $count++)
{
print "$count\tPTR\t65.122.144.$count.qdsl.fasternetworks.com\n";
}

The \t are tabs. I'm not quite sure what you meant when you put things in quotes, I assume those are string literals.

 

[Beau]

for ($a=5;$a<254;$a++)
{
print("$a\tPTR\t65.122.144.$a.qdsl.fasternetworks.com\n");
}

 

[Beau]

Originally posted by: yllus
*sigh* I had it written out and a mod moved it. Click "Back" and it was gone.

me too :|

 

[notfred]

for(my $i = 2; $i < 255;$i++){
print qq~$i\tPTR\t65.122.144.$i.qdsl.fasternetworks.com\n~;
}

Should work. I left out the quotes, I don't know if thwyt were actually supposed to print or not. Feel free to add them back in.

 

[narzy]

no they are supposed to not be there, sorry 🙂.

 

[narzy]

big kisses to all of you! seriously you saved me hours of work. now umm how can I get it to save to a text file?

 

[notfred]

Originally posted by: narzy
big kisses to all of you! seriously you saved me hours of work. now umm how can I get it to save to a text file?

Sent the file output thing to your PMs.