/docs/MyDocs

To get this branch, use:
bzr branch http://darksoft.org/webbzr/docs/MyDocs

« back to all changes in this revision

Viewing changes to Development/languages/perl/Examples/sendrecv.pl

  • Committer: Suren A. Chilingaryan
  • Date: 2009-04-09 03:21:08 UTC
  • Revision ID: csa@dside.dyndns.org-20090409032108-w4edamdh4adrgdu3
import

Show diffs side-by-side

added added

removed removed

Lines of Context:
Development/languages/perl/Examples/sendrecv.pl
 
1
#!/usr/bin/perl
 
2
use Socket;
 
3
 
 
4
socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')); # S is file handle
 
5
$dest=sockaddr_in(23,inet_aton('crdlx9'));
 
6
connect(S,$dest);
 
7
recv(S,$buffer,1024,0);                         # SOCKET,BUF,LENGTH,FLAGS
 
8
$data="Help";
 
9
send(S,$data,0);                                # SOCKET,MSG,FLAGS[,TO]
 
10
recv(S,$buffer,1024,0);                         # SOCKET,BUF,LENGTH,FLAGS
 
11
print $buffer
 
 
b'\\ No newline at end of file'