bzr branch
http://darksoft.org/webbzr/docs/MyDocs
1 2 3 4 5 6 7 8 9 10 11 |
#!/usr/bin/perl use Socket; socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')); # S is file handle $dest=sockaddr_in(23,inet_aton('crdlx9')); connect(S,$dest); recv(S,$buffer,1024,0); # SOCKET,BUF,LENGTH,FLAGS $data="Help"; send(S,$data,0); # SOCKET,MSG,FLAGS[,TO] recv(S,$buffer,1024,0); # SOCKET,BUF,LENGTH,FLAGS print $buffer |