网页设计

网站建设.png

咸阳这个地名的由来有几种说法，一种说法是咸阳北边有山，南边有水，是“山水俱阳”，所以叫咸阳；一种说法是咸阳是咸亨和阳里两个地区合并形成的，所以叫咸阳；还有一种说法用到了“咸”的本义，因为这个地方经常发生战争，所以全民皆兵，武装御敌，因此把这个地方叫作咸阳。 [53]

建制沿革

咸阳市政区建置始于夏代，前21世纪，市境西部为有邰氏封地，东南部为有扈氏管辖地，北部为畎夷等原始氏族部落，属禹贡九州之雍州。

殷商时期，发展到邰、豳、程、犬方等方国，市区在市境东南部。

位于窑店街道的秦咸阳城遗址

西周时为毕国，后改岐周，为丰、镐二京近郊。

春秋时期属于秦，称渭阳。

战国时，秦孝公十二年（前350年），秦国都城经九次迁徙后，从栎阳（今西安市阎良区武屯镇官庄村与古城屯村之间）定都咸阳（今西咸新区秦汉新城渭城区窑店街道至正阳街道之间）。

客户端 client.pl 代码：

实例

#!/usr/bin/perl -w# Filename : client.pl
 use strict;use Socket; 
# 初始化地址与端口my $host = shift || 'localhost';my $port = shift || 7890;my $server = "localhost";  # 主机地址
 # 创建 socket 并连接socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])
   or die "无法创建 socket $!\n";connect( SOCKET, pack_sockaddr_in($port, inet_aton($server)))
   or die "无法连接：port $port! \n"; 
my $line;while ($line = <SOCKET>) {
        print "$line\n";}close SOCKET or die "close: $!";

打开另外一个终端，执行以下代码：

$ perl client.pl我是来自服务端的信息