[reseaux] IO::Socket::Inet et transferts de fichiers

Version imprimable

17/05/2005, 05h30
jp_sympa

[reseaux] IO::Socket::Inet et transferts de fichiers

Salut, je debute en PERL et doit realiser un programme client/serveur avec l'utilisation de socket.
J'ai reussi a creer mes 2 sockets du cote client et serveur, les 2 communiquent, si quelqu'un pouvait me guider a comment par la suite realiser un transfert de fichier depuis le serveur vers le client?
Les sockets permettent'ils le transfert de fichier en binaire ou autre?

Merci d'avance...

JP
17/05/2005, 08h56
Thomas Lebrun

c'est du Perl...

Aucun rapport avec Dotnet :roll:

Je déplace :)
17/05/2005, 18h16
Jedai

Bah à priori, tu écris sur les sockets ou tu lis, non ? Après y a des très bons tutos sur ce genre de sujet qui traînent sur internet.

--
Jedaï

un ptite exemple simple le serveur envoie un simple texte vers le client

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
#!/usr/bin/perl -w
#servhello.pl
use strict;
use diagnostics;
diagnostics::enable();
use IO::Socket;
 
my $port=$ARGV[0];
my $server = IO::Socket::INET->new(LocalPort => $port,
                                   Type => SOCK_STREAM,
                                   Listen => 5)
   || die "Cannot initialize server: $!";
 
my $client = $server->accept();
print $client "Bonjour, utilisateur de ", $client->peerhost(),
   " appelant du port : ", $client->peerport(),"\n";
 
 
$client->close();
 
#---------------------
#!/usr/bin/perl -w
#clienthello.pl
use strict;
use diagnostics;
diagnostics::enable();
use IO::Socket;
my $hoteserv=$ARGV[0];
my $portserv=$ARGV[1];
my $request=$ARGV[2];
 
   my $server = IO::Socket::INET->new(PeerPort => $portserv,
                                      PeerAddr => $hoteserv,
                                       Type => SOCK_STREAM,
                                      )
       || die "Cannot connect server: $!";
 
 
print $server $request;
print $server "\n";
print $request, "envoyé\n";
my $reponse=<$server>;
$reponse =~ s/[\r\l\n]//g;
print $reponse,"\n";