咸阳网页设计

网站建设.png

咸阳，陕西省辖地级市，咸阳是中国大地原点所在地，东邻省会西安，西接国家级“杨凌农业高新技术产业示范区”，西北与甘肃接壤。辖3区2市9县，全市总面积10196平方公里 [52] 。根据第七次人口普查数据，截至2020年11月1日零时，咸阳市常住人口为3959842人。 [51] 2020年全市实现生产总值2204.81亿元。 [49]

咸阳是中国首个封建王朝“秦帝国”的都城，位于陕西省八百里秦川腹地，渭水穿南，嵕山亘北，山水俱阳，故称咸阳。咸阳身处华夏历史文化长河的发端，是秦汉文化的重要发祥地。境内文物景点达4951处，五陵塬上汉高祖长陵、汉景帝阳陵、汉武帝茂陵、唐太宗昭陵、唐高宗和武则天合葬的乾陵等28位汉唐帝王陵寝连绵百里。咸阳孕育了中国的农耕文明，农业始祖后稷在此教民稼穑。

咸阳是中国甲级对外开放城市、国家级历史文化名城、全国双拥模范城市、国家卫生城市、中国魅力城市、中国地热城、全国十佳宜居城市、首批中国优秀旅游城市、全国精神文明创建工作先进市及中华养生文化名城。2017年11月，咸阳获评第五届全国文明城市。 [4] 2018年重新确认国家卫生城市。

客户端函数

connect() 函数

connect()系统调用为一个套接字设置连接，参数有文件描述符和主机地址。

connect( SOCKET, ADDRESS );

以下创建一个连接到服务端 socket 的实例：

$port = 21;    #  ftp 端口$server_ip_address = "10.12.12.168";connect( SOCKET, pack_sockaddr_in($port, inet_aton($server_ip_address)))
    or die "无法绑定端口! \n";

完整实例

接下来我们通过一个完整实例来了解下所有 socket 函数的应用：

服务端 server.pl 代码：

实例

#!/usr/bin/perl -w# Filename : server.pl
 use strict;use Socket; 
# 使用端口 7890 作为默认值my $port = shift || 7890;my $proto = getprotobyname('tcp');my $server = "localhost";  # 设置本地地址
 # 创建 socket, 端口可重复使用，创建多个连接socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
   or die "无法打开 socket $!\n";setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1)
   or die "无法设置 SO_REUSEADDR $!\n"; 
# 绑定端口并监听bind( SOCKET, pack_sockaddr_in($port, inet_aton($server)))
   or die "无法绑定端口 $port! \n"; 
listen(SOCKET, 5) or die "listen: $!";print "访问启动：$port\n"; 
# 接收请求my $client_addr;while ($client_addr = accept(NEW_SOCKET, SOCKET)) {
   # send them a message, close connection
   my $name = gethostbyaddr($client_addr, AF_INET );   print NEW_SOCKET "我是来自服务端的信息";   print "Connection recieved from $name\n";   close NEW_SOCKET;}