[NPWP笔记]Write a FTP client with two-process model

最新推荐文章于 2025-11-24 22:38:29 发布

原创最新推荐文章于 2025-11-24 22:38:29 发布 · 600 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#server #subprocess #command #user #ubuntu #socket

perl 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一个使用Perl编写的简单FTP客户端脚本。该脚本通过两个进程实现：一个用于从标准输入读取FTP命令并发送给服务器；另一个用于接收服务器响应并将结果显示在标准输出上。此脚本适用于Ubuntu系统连接到Windows环境下的FileZilla FTP服务器。

There are two process in this script,one for send FTP command,and another is for receiving FTP server response.

use strict; use warnings; use IO::Socket; use constant BUFSIZE => 1024; #I use FileZilla Server as FTP server on Windows 2003,use this script to connect to it on ubuntu 10.04. #usage:perl ms_ftp_client.pl #USER wanpor #PASS ##### #help #A ftp client #there are two process,the first is for reading FTP command from STDIN and then sending FTP command; #the second is for receiving FTP server response and then print it on STDOUT my $host = "192.168.1.102"; my $port = 21; my $data; my $sock = IO::Socket::INET->new("$host:$port") or die $@; my $child = fork(); die "can not fork:$!" unless defined($child); if($child){ $SIG{INT} = sub{exit 0;}; user_to_host($sock); $sock->shutdown(1); sleep; }else{ host_to_user($sock); warn "connection is closed by foreign host!/n"; } sub user_to_host{ my $s = shift; syswrite($s,$data) while sysread(STDIN,$data,BUFSIZE); } sub host_to_user{ my $s = shift; syswrite(STDOUT,$data) while sysread($s,$data,BUFSIZE); }

The subprocess receiving server's reponse rather than main-process waits for FTP server's response,they do works separately