perl客户端程序的简单例子

发布时间:2020-12-20编辑:脚本学堂
perl实现的一个简单的客户端程序,可用于连接远程机器,并读取相关信息,有需要的朋友参考下吧。

perl实例之简单客户端程序。
代码:
 

复制代码 代码示例:

#!/usr/bin/perl
#
print "clientn";

$AF_UNIX=1;
$SOCK_STREAM=1;
$PROTOCOL=0;

socket(CLIENTSOCKET, $AF_UNIX, $SOCK_STREAM, $PROTOCOL);
$name="./greetings";

do{
   $result = connect(CLIENTSOCKET, "$name" );
   if ($result != 1 ){
      sleep(1);
   }
}while($result !=  1 ); # Loop until a connection is made

read(CLIENTSOCKET, $buf, 500);
print STDOUT "$bufn";
close (CLIENTSOCKET);
exit(0);