Programming Forums > Script Programming > Perl

sonson · Jun 12th, 2005, 5:07 PM

iam currently just writing a little script which loooks up ip addresses in a specfic location...
so what i will have is something like this..
Enter ip adresss

*************...then it goes to a the location looks up the address and connects to the specifc port
to connect to the server..
any ideas?

Cerulean · Jun 23rd, 2005, 7:23 PM

You don't need a domain name to connect to a box on a port. If you have the IP, you can connect already.

mackenga · Jul 3rd, 2005, 9:15 AM

Well, the dotted-decimal IP isn't enough to connect to; it's been a year or two since I did any socket programming with Perl, but I seem to recall you need to use inet_pton() (or is it inet_aton()? Presentation or alpha? I think it's inet_aton() actually), kinda like:

(Toggle Plain Text)

socket(SOCK, AF_INET, getprotobyname('tcp'));
connect(SOCK, sockaddr_in($port, inet_aton($ipOrHostname)));

I may be mixing my C and Perl by this point but I hope that's helpful. If in doubt, perlfunc is always a handy man page. Interestingly, I seem to recall Perl's inet_aton() doesn't mind if you give it a hostname; it'll do the lookup transparently for you.

Cerulean · Jul 10th, 2005, 10:11 AM

Quote:

Well, the dotted-decimal IP isn't enough to connect to;

Am I missing something? All you need is the IP and port number. He already has the port number.

mackenga · Jul 12th, 2005, 5:45 PM

It's enough information, yes; what I was getting at was that it would need a little translation from inet_aton() before it could go anywhere near connect(). Sorry for any confusion!

Jun 12th, 2005, 5:07 PM	#1
sonson Newbie Join Date: Jun 2005 Posts: 8 Rep Power: 0	ip address lookup iam currently just writing a little script which loooks up ip addresses in a specfic location... so what i will have is something like this.. Enter ip adresss*************...then it goes to a the location looks up the address and connects to the specifc port to connect to the server.. any ideas?

Jul 3rd, 2005, 9:15 AM	#3
mackenga Professional Programmer Join Date: Mar 2005 Location: Glasgow, Scotland Posts: 317 Rep Power: 4	Well, the dotted-decimal IP isn't enough to connect to; it's been a year or two since I did any socket programming with Perl, but I seem to recall you need to use inet_pton() (or is it inet_aton()? Presentation or alpha? I think it's inet_aton() actually), kinda like: (Toggle Plain Text) socket(SOCK, AF_INET, getprotobyname('tcp')); connect(SOCK, sockaddr_in($port, inet_aton($ipOrHostname))); socket(SOCK, AF_INET, getprotobyname('tcp')); connect(SOCK, sockaddr_in($port, inet_aton($ipOrHostname))); I may be mixing my C and Perl by this point but I hope that's helpful. If in doubt, perlfunc is always a handy man page. Interestingly, I seem to recall Perl's inet_aton() doesn't mind if you give it a hostname; it'll do the lookup transparently for you.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Jun 23rd, 2005, 7:23 PM	#2
Cerulean Professional Programmer Join Date: Apr 2005 Location: London, England Posts: 459 Rep Power: 4	You don't need a domain name to connect to a box on a port. If you have the IP, you can connect already.

Jul 12th, 2005, 5:45 PM	#5
mackenga Professional Programmer Join Date: Mar 2005 Location: Glasgow, Scotland Posts: 317 Rep Power: 4	It's enough information, yes; what I was getting at was that it would need a little translation from inet_aton() before it could go anywhere near connect(). Sorry for any confusion!

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

ip address lookup