高分请教perl网络编程的方法(IO::Socket::INET方式）! --- 在线等待 ---

2003-10-28 08:46:52 548 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Perl语言的网络编程本文介绍了Perl语言在网络编程中的应用与实践，通过IO::SocketLWP和Net::HTTP模块构建了TCP服务器和客户端、Web请求、简单的聊天程序以及Web爬虫等实例。Perl灵活的语法和强大的库支持，使得开发者能够快速高效地构建网络应用。尽管Perl在某些领域面临挑战，但其在网络编程领域的能力依然值得重视，许多系统管理员和开发者仍在日常工作中依赖于这门语言。希望本文能够为读者在Perl网络编程的学习与使用上提供一定的帮助与启发。阅读详情

各位大侠：
小弟想请教perl网络编程的方法，采用IO::Socket::INET方式实现，最好有一个客户端和服务器端的简单源码的例子，不胜感激！！！

...全文

第1章＞＞1.5：神电测控为什么开发LabVIEW ZYNQ FPGA软件工具包？(ZYNQ芯片的特点与优势)《LabVIEW ZYNQ FPGA宝典》 ZYNQ是赛灵思公司（Xilinx）推出的新一代全可编程片上系统（APSoC，All-Programmable SoC），它将处理器的软件可编程性与FPGA的硬件可编程性进行完美整合，以提供无与伦比的系统性能、灵活性与可扩展性。Zynq-7000系列是Xilinx于2010年4月推出的行业第一个可扩展处理平台，旨在为视频监视、汽车驾驶员辅助、工厂自动化、医疗器械等高端嵌入式应用提供所需的处理能力与计算性能。这款基于ARM处理器的SoC可满足复杂嵌入式系统的高性能、低功耗和多核处理能力等要求。阅读详情

jasonloo

脚本语言 37,737 成员 34,208 内容

+ 关注 + 加入社区

切换为时间正序

Wolf0403 2003-10-30

打赏
举报

#!/usr/bin/perl -w
use strict;
use IO::Socket;
my ($host, $port, $kidpid, $handle, $line); unless (@ARGV == 2) { die "usage: $0 host port" }
($host, $port) = @ARGV; # create a tcp connection to the specified host and port
$handle = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => $host,
PeerPort => $port)
or die "can't connect to port $port on $host: $!"; $handle->autoflush(1); # so output gets there right away
print STDERR "[Connected to $host:$port]\n"; # split the program into two processes, identical twins
die "can't fork: $!" unless defined($kidpid = fork()); # the if{} block runs only in the parent process
if ($kidpid) {
# copy the socket to standard output
while (defined ($line = <$handle>)) {
print STDOUT $line;
}
kill("TERM", $kidpid); # send SIGTERM to child
}
# the else{} block runs only in the child process
else {
# copy standard input to the socket
while (defined ($line = <STDIN>)) {
print $handle $line;
}
}

Server:

#!/usr/bin/perl -w
use IO::Socket;
use Net::hostent; # for OO version of gethostbyaddr $PORT = 9000; # pick something not in use $server = IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $PORT,
Listen => SOMAXCONN,
Reuse => 1); die "can't setup server" unless $server;
print "[Server $0 accepting clients]\n"; while ($client = $server->accept()) {
$client->autoflush(1);
print $client "Welcome to $0; type help for command list.\n";
$hostinfo = gethostbyaddr($client->peeraddr);
printf "[Connect from %s]\n", $hostinfo->name || $client->peerhost;
print $client "Command? ";
while ( <$client>) {
next unless /\S/; # blank line
if (/quit|exit/i) { last; }
elsif (/date|time/i) { printf $client "%s\n", scalar localtime; }
elsif (/who/i ) { print $client `who 2>&1`; }
elsif (/cookie/i ) { print $client `/usr/games/fortune 2>&1`; }
elsif (/motd/i ) { print $client `cat /etc/motd 2>&1`; }
else {
print $client "Commands: quit date who cookie motd\n";
}
} continue {
print $client "Command? ";
}
close $client;
}

不过代码在 ActivePerl 下需要修改。

Wolf0403 2003-10-30

打赏
举报

perldoc perlipc 文档中有很详细的代码实例，可以参考。

klbt 2003-10-29

打赏
举报

我没有例子，帮你顶。

高分请教perl网络编程的方法(IO::Socket::INET方式）! --- 在线等待 ---

相关推荐