Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^2: binding server to already used port 80

by opensourcer (Monk)
on Jan 12, 2007 at 10:58 UTC ( #594346=note: print w/ replies, xml ) Need Help??


in reply to Re: binding server to already used port 80
in thread binding server to already used port 80

Bind Server code

#!/usr/bin/perl use IO::Socket; sub Start { $sock = new IO::Socket::INET (LocalAddr => 'xxxx', BindPort => 80, Proto => 'tcp', Listen => 10); die "$!" unless $sock; print "Starting Xtools\n"; my $new_sock = $sock->accept(); while(<$new_sock>) { print $_; } close($sock); } Start(); 1;
The client Code
#!/usr/bin/perl use IO::Socket; $document = "@ARGV"; print "\n"; $EOL = "\015\012"; $BLANK = $EOL x 2; my $host = "indrmlnx02"; my $sock = new IO::Socket::INET ( PeerAddr => $host, PeerPort => http(80), Proto => 'tcp', ); #or die "Could not create socket: +$!\n" unless $sock; #print $sock "Hello there!\n"; unless ($sock) { die "cannot connect to http daemon on $host" } $sock->autoflush(1); print "-------- \n"; print $sock "hello"; #print $sock "GET $document HTTP/1.1" . $BLANK; #while ( <$sock> ) { print } close $sock; #close($sock);
when i try the above code i get no errors, but when i stop the server and run the client i get error, cannot connect to http daemon on xxxx at xxxx.pl line xx.
and i don't c the print's data, and no idea where it is going.


Comment on Re^2: binding server to already used port 80
Select or Download Code
Replies are listed 'Best First'.
Re^3: binding server to already used port 80
by Aristotle (Chancellor) on Jan 12, 2007 at 11:15 UTC

    You canít bind to a port more than once. Itís not possible, no matter how often you ask. Thereís no way to do it.

    Makeshifts last the longest.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://594346]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (9)
As of 2015-07-31 06:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (274 votes), past polls