Probleme avec perl
fah000
Messages postés
6
Statut
Membre
-
Char Snipeur Messages postés 10112 Statut Contributeur -
Char Snipeur Messages postés 10112 Statut Contributeur -
Bonjour,
je suis débutant avec perl; j'écris ce code de perl sous UNIX mais il ne vient pas de s'executer ce code est a propos de:: Code Perl d ’un Serveur sil vous plait m'aider j'attend une reponse
#!usr/bin/perl
require './socket.ph';
($port) = @ARGV; $port = 8888 unless $port;
$sockaddr = 'S n a4 x8';
($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $port) = getservbyname($port, 'tcp') unless $port =~ /^\d+$/;
$this = pack($sockaddr, &AF_INET, $port, "\0\0\0\0");
select(NS); $| = 1; select(stdout);
socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
bind(S, $this) || die "bind: $!";
listen(S, 5) || die "listen: $!";
select(S); $| = 1; select(stdout);
for (;;) { print "Listening again\n";
($addr = accept(NS,S)) || die $!; print "accept ok\n";
($af,$port,$inetaddr) = unpack($sockaddr,$addr);
@inetaddr = unpack('C4',$inetaddr); print "$af $port @inetaddr\n";
while (<NS>) { print; print NS; } }
je suis débutant avec perl; j'écris ce code de perl sous UNIX mais il ne vient pas de s'executer ce code est a propos de:: Code Perl d ’un Serveur sil vous plait m'aider j'attend une reponse
#!usr/bin/perl
require './socket.ph';
($port) = @ARGV; $port = 8888 unless $port;
$sockaddr = 'S n a4 x8';
($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $port) = getservbyname($port, 'tcp') unless $port =~ /^\d+$/;
$this = pack($sockaddr, &AF_INET, $port, "\0\0\0\0");
select(NS); $| = 1; select(stdout);
socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
bind(S, $this) || die "bind: $!";
listen(S, 5) || die "listen: $!";
select(S); $| = 1; select(stdout);
for (;;) { print "Listening again\n";
($addr = accept(NS,S)) || die $!; print "accept ok\n";
($af,$port,$inetaddr) = unpack($sockaddr,$addr);
@inetaddr = unpack('C4',$inetaddr); print "$af $port @inetaddr\n";
while (<NS>) { print; print NS; } }
A voir également:
- Probleme avec perl
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- DzSoft Perl Editor - Télécharger - Édition & Programmation
- Lancer fichier .pl avec perl sous dos !! - Forum Perl
- [Perl] "Unitialized value" avec Open (HA ✓ - Forum Perl
3 réponses
Bonjour,
je suis débutant avec perl; j'écris ce code de perl sous UNIX mais il ne vient pas de s'executer ce code est a propos de:: Code Perl d ’un Serveur sil vous plait m'aider j'attend une reponse
#!usr/bin/perl
require './socket.ph';
($port) = @ARGV; $port = 8888 unless $port;
$sockaddr = 'S n a4 x8';
($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $port) = getservbyname($port, 'tcp') unless $port =~ /^\d+$/;
$this = pack($sockaddr, &AF_INET, $port, "\0\0\0\0");
select(NS); $| = 1; select(stdout);
socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
bind(S, $this) || die "bind: $!";
listen(S, 5) || die "listen: $!";
select(S); $| = 1; select(stdout);
for (;;) { print "Listening again\n";
($addr = accept(NS,S)) || die $!; print "accept ok\n";
($af,$port,$inetaddr) = unpack($sockaddr,$addr);
@inetaddr = unpack('C4',$inetaddr); print "$af $port @inetaddr\n";
while (<NS>) { print; print NS; } }
je suis débutant avec perl; j'écris ce code de perl sous UNIX mais il ne vient pas de s'executer ce code est a propos de:: Code Perl d ’un Serveur sil vous plait m'aider j'attend une reponse
#!usr/bin/perl
require './socket.ph';
($port) = @ARGV; $port = 8888 unless $port;
$sockaddr = 'S n a4 x8';
($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $port) = getservbyname($port, 'tcp') unless $port =~ /^\d+$/;
$this = pack($sockaddr, &AF_INET, $port, "\0\0\0\0");
select(NS); $| = 1; select(stdout);
socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
bind(S, $this) || die "bind: $!";
listen(S, 5) || die "listen: $!";
select(S); $| = 1; select(stdout);
for (;;) { print "Listening again\n";
($addr = accept(NS,S)) || die $!; print "accept ok\n";
($af,$port,$inetaddr) = unpack($sockaddr,$addr);
@inetaddr = unpack('C4',$inetaddr); print "$af $port @inetaddr\n";
while (<NS>) { print; print NS; } }
