Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

puudeli's scratchpad

by puudeli (Pilgrim)
on Mar 29, 2006 at 07:03 UTC ( #539883=scratchpad: print w/ replies, xml ) Need Help??

SOLVED: setsockopt(SOCKET, SOL_SOCKET, SO_LINGER, pack('II', 1,0)) SO_LINGER takes two arguments, on/off and time

Why does setsockopt give me: setsockopt: Invalid argument at ./socket_connection_flooding.pl line 55.

use Socket qw(:all); use POSIX; my ($socket, $remote,$port, $iaddr, $paddr, $proto, $line); $remote = shift || 'localhost'; $port = shift; $iaddr = inet_aton($remote) || usage("no host: $remote"); $paddr = sockaddr_in($port, $iaddr); $proto = getprotobyname('tcp'); socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die "socket: $!"; setsockopt(SOCKET, SOL_SOCKET, SO_LINGER, pack('i',0)) || die "setsockopt: $!"; connect(SOCKET, $paddr) || die "connect: $!"; close (SOCKET) || die "close: $!";

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (14)
As of 2014-09-18 16:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (119 votes), past polls