Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - skappermx
Páginas: [1]
1
« en: Sábado 11 de Octubre de 2008, 19:01 »
Gracias lo que pasa es que casi no programo en perl , me dedico mas C++ pero voy a leerme a conciencia el Perl CookBook
2
« en: Sábado 11 de Octubre de 2008, 18:30 »
Hola a todos es contare de mi problema Quiero hacer un socket en perl que se conecte a mi servidor hecho en C++ y que si el servidor le manda X cadena haga tal cosa # Server Program use IO::Socket::INET; print ">> Server Program <<n"; # Create a new socket $enchufe = new IO::Socket::INET->new(PeerPort=>3460,Proto=>'tcp',PeerAddr=>'localhost'); my $buf; $enchufe->recv($buf,8); if ($buf ne 'chick' ) { print "Lo que me envio: $bufn"; } else { print "Errorn"; } $enchufe->close();
 El problema es que el servidor manda la palabra "chicken" pero si pongo en el if otra palabra distinta a alo que manda el servidor la ejecuta y no ejecuta el else Por que pasa eso? Gracias Saludos
3
« en: Martes 7 de Octubre de 2008, 20:10 »
4
« en: Martes 7 de Octubre de 2008, 03:09 »
Hola tengo un problema quisiera comunicar un servidor que hice en C y un cliente en Perl  pero cada vez que conecto el cliente de perl me manda que la conexion ha sido rechazada Aqui les dejo el code de los dos: C /* ** server.c -- Ejemplo de servidor de sockets de flujo */ #include <stdio.h> #include <stdlib.h> #include <unistd.h> #include <errno.h> #include <string.h> #include <sys/types.h> #include <sys/socket.h> #include <netinet/in.h> #include <arpa/inet.h> #include <sys/wait.h> #include <signal.h> #define MYPORT 3490 // Puerto al que conectarán los usuarios #define BACKLOG 10 // Cuántas conexiones pendientes se mantienen en cola void sigchld_handler(int s) { while(wait(NULL) > 0); } int main(void) { int sockfd, new_fd; // Escuchar sobre sock_fd, nuevas conexiones sobre new_fd struct sockaddr_in my_addr; // información sobre mi dirección struct sockaddr_in their_addr; // información sobre la dirección del cliente int sin_size; struct sigaction sa; int yes=1; if ((sockfd = socket(AF_INET, SOCK_STREAM, 6)) == -1) { perror("socket"); exit(1); } if (setsockopt(sockfd,SOL_SOCKET,SO_REUSEADDR,&yes,sizeof(int)) == -1) { perror("setsockopt"); exit(1); } my_addr.sin_family = AF_INET; // Ordenación de bytes de la máquina my_addr.sin_port = htons(MYPORT); // short, Ordenación de bytes de la red my_addr.sin_addr.s_addr = INADDR_ANY; // Rellenar con mi dirección IP memset(&(my_addr.sin_zero), ' ', 8); // Poner a cero el resto de la estructura if (bind(sockfd, (struct sockaddr *)&my_addr, sizeof(struct sockaddr)) == -1) { perror("bind"); exit(1); } if (listen(sockfd, BACKLOG) == -1) { perror("listen"); exit(1); } sa.sa_handler = sigchld_handler; // Eliminar procesos muertos sigemptyset(&sa.sa_mask); sa.sa_flags = SA_RESTART; if (sigaction(SIGCHLD, &sa, NULL) == -1) { perror("sigaction"); exit(1); } while(1) { // main accept() loop sin_size = sizeof(struct sockaddr_in); if ((new_fd = accept(sockfd, (struct sockaddr *)&their_addr, &sin_size)) == -1) { perror("accept"); continue; } printf("server: got connection from %sn", inet_ntoa(their_addr.sin_addr)); if (!fork()) { // Este es el proceso hijo close(sockfd); // El hijo no necesita este descriptor if (send(new_fd, "Hello, world!n", 14, 0) == -1) perror("send"); close(new_fd); exit(0); } close(new_fd); // El proceso padre no lo necesita } return 0; }
y PERL #! /usr/bin/perl -w # client1.pl - a simple client use strict; use Socket; # initialize host and port my $host = shift || 'xxxxx'; my $port = shift || 3460; my $proto = getprotobyname('tcp'); # get the port address my $iaddr = inet_aton($host); my $paddr = sockaddr_in($port, $iaddr); # create the socket, connect to the port socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!"; connect(SOCKET, $paddr) or die "connect: $!"; while (<SOCKET>) { print; } close SOCKET or die "close: $!";
Gracias
Páginas: [1]
|