Nhờ giúp đỡ về lập trình perl

English | Vietnamese

Rules

Main Forum

Portal

Member Listing

Statistics

Search

Reading Room
[Register]

Login [ | https ]

Forum Index

Thảo luận hệ điều hành Windows

Nhờ giúp đỡ về lập trình perl

[Question] Nhờ giúp đỡ về lập trình perl	25/08/2007 07:09:49 (+0700) \| #1 \| 81039

LimitExceed
Member

Joined: 10/09/2006 19:49:05
Messages: 23
Location: Số 1 Đại Cồ Việt
Offline

Em đã cài Perl và chay đc đoạn code hello.pl như thế này bằng browser
#!c:\perl\bin\perl.exe
print "Content-type: text/html\n\n";
print "Hello, world!";
Nhưng sau đó lập trình socket thì ko thể chạy đc,báo lỗi.Đoạn code như này:
#!/usr/local/bin/perl
# file:tcp_echo_cli1.pl
# usage:tcp_echo_cli1.pl [host] [port]
# echo client,tcp version
use strict;
use Socket;
use IO::Handle;
my ($byte_out,$byte_in)=(0,0);//declare globals,create 2 global variables for keeping track of the number of bytes we send and receive.
my $host =shift || 'localhost' ;
my $port =shift ||getservbyname('echo','tcp');
my $protocol = getprotobyname('tcp') ;
$host =inet_aton($host) or die "$host :unknown host";
socket (SOCK,AF_INET,SOCK_STREAM,$protocol) or die "socket() failed:$!";
my $dest_addr=sockaddr_in($port,$host)
connect (SOCK,$dest_addr) or die "connect() failed: $!";
SOCK ->autoflush(1);
while (my $msg_out=<> smilie

{
print SOCK $msg_out;
my $msg_in=<SOCK>;
print $msg_in;
$bytes_out +=length($msg_out);
$bytes_in +=length($msg_in);
}
close SOCK
print STDERR "bytes_sent=$bytes_out,bytes_received=$bytes_in\n";
Vậy em phải làm gì để chạy đc code nay??Và có công cụ phát triển PERL nào giống PHP Expert hố trợ cho PHP ko ạ?

Go to:

Users currently in here
1 Anonymous