
平台论坛博客文库

› 论坛 › 程序设计 › Perl › vncserver注释，不当之处请指正(1)

vncserver注释，不当之处请指正(1) [复制链接]

xiaozi0lei

白手起家

论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2013-03-05 13:24 |只看该作者 |倒序浏览

本帖最后由 xiaozi0lei 于 2013-03-05 13:32 编辑

转载请注明出处，谢谢！
http://blog.sina.com.cn/s/blog_5e2308c80101hssf.html

#!/usr/bin//perl
#
# Copyright (C) 2002-2003 RealVNC Ltd.
# Copyright (C) 1999 AT&T Laboratories Cambridge. All Rights Reserved.
#
# This is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This software is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this software; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
# USA.
#
# # # # # # # # # # # # # # # # # # # # # # # # # #
# This document is translated and commented by 弦上风.
# 本文档由弦上风注释翻译。
# If you have any questions and good comments, please feel free to tell me.
# 如果你有任何问题或者好的建议，请积极联系我。
# @弦上风
# # # # # # # # # # # # # # # # # # # # # # # # # #
#此脚本用来启动一个X VNC 服务器
# vncserver - wrapper script to start an X VNC server.
#
#首先，保证我们在一个稳定可靠的环境进行操作
# First make sure we're operating in a sane environment.
#
#调用脚本下方的SanityCheck子过程
&SanityCheck();
#全局变量，可以针对自己的site进行自定义配置
# Global variables. You may want to configure some of these for your site.
#
#初始化显示的分辨率，默认分辨率
$geometry = "1024x768";
#颜色深度，默认色深
$depth = 16;
#定义vncJavaFiles的目录
$vncJavaFiles = (((-d "/usr/share/vnc/classes") && "/usr/share/vnc/classes") ||
((-d "/usr/local/vnc/classes") && "/usr/local/vnc/classes"));
#定义用户vnc目录
$vncUserDir = "$ENV{HOME}/.vnc";
#定义X验证文件目录
$xauthorityFile = "$ENV{XAUTHORITY}" || "$ENV{HOME}/.Xauthority";
#定义默认的Xstartup启动脚本
$defaultXStartup
= ("#!/bin/sh\n\n".
"[ -r \$HOME/.Xresources ] && xrdb \$HOME/.Xresources\n".
"xsetroot -solid grey\n".
"vncconfig -iconic &\n".
"xterm -geometry 80x24+10+10 -ls -title \"\$VNCDESKTOP Desktop\" &\n".
"twm &\n");
#获取hostname
chop($host = `uname -n`);
#检查命令行选项
# Check command line options
#分析命令行中的参数
&ParseOptions("-geometry",1,"-depth",1,"-pixelformat",1,"-name",1,"-kill",1,
"-help",0,"-h",0,"--help",0);
#如果命令行中包括"-help","-h","--help"，输出使用帮助
&Usage() if ($opt{'-help'} || $opt{'-h'} || $opt{'--help'});
#如果命令行中带有"-kill"参数，调用Kill子过程
&Kill() if ($opt{'-kill'});
#如果你想使用默认的分辨率，颜色深度和像素格式来匹配当前的X显示，请去掉下面这行注释
# Uncomment this line if you want default geometry, depth and pixelformat
# to match the current X display:
# &GetXDisplayDefaults();
#读取命令行中的分辨率设置，赋给分辨率全局变量
if ($opt{'-geometry'}) {
$geometry = $opt{'-geometry'};
}
#读取命令行中的颜色深度设置，赋给颜色深度全局变量
if ($opt{'-depth'}) {
$depth = $opt{'-depth'};
$pixelformat = "";
}
#读取命令行中的像素格式设置，赋给像素格式全局变量
if ($opt{'-pixelformat'}) {
$pixelformat = $opt{'-pixelformat'};
}
#调用检查分辨率和色深的子过程
&CheckGeometryAndDepth();
#如果没有则创建用户的vnc目录
# Create the user's vnc directory if necessary.
#如果不存在用户的vnc目录
if (!(-e $vncUserDir)) {
#如果无法创建用户的vnc目录，退出并输出错误提示信息
if (!mkdir($vncUserDir,0755)) {
die "$prog: Could not create $vncUserDir.\n";
}
}
#保证用户有密码
# Make sure the user has a password.
#获取passwd文件的权限属性
($z,$z,$mode) = stat("$vncUserDir/passwd");
#如果不存在passwd文件或者非拥有者对该文件具有可读写权限，提示用户需要设置密码
if (!(-e "$vncUserDir/passwd") || ($mode & 077)) {
warn "\nYou will require a password to access your desktops.\n\n";
#从外部系统执行vncpasswd -q $vncUserDir/passwd命令
system("vncpasswd -q $vncUserDir/passwd");
#判断外部系统退出状态是否为O，不为0则提示错误退出,0是正常退出状态
if (($? >> 8) != 0) {
exit 1;
}
}
#拿到display号
# Find display number.
#如果剩余的命令参数的数量大于0且第一个参数是以：开头，后面是整数
if ((@ARGV > 0) && ($ARGV[0] =~ /^:(\d+)$/)) {
#将$1中的值赋给变量$displayNumber
$displayNumber = $1;
#从左边弹出一个参数
shift(@ARGV);
#检查输入的display号是否被占用，若被占用，则退出并输出错误提示信息
if (!&CheckDisplayNumber($displayNumber)) {
die "A VNC server is already running as :$displayNumber\n";
}
#如果剩余的命令参数的数量大于0且第一个参数不是-开头，则输出使用说明
} elsif ((@ARGV > 0) && ($ARGV[0] !~ /^-/)) {
&Usage();
#如果以上都不符号，则自动分配display号
} else {
$displayNumber = &GetDisplayNumber();
}
#将5900加上有效的displaynumber赋给变量vncPort
$vncPort = 5900 + $displayNumber;
#定义用户vnc的log路径
$desktopLog = "$vncUserDir/$host:$displayNumber.log";
#删除之前的vnc log
unlink($desktopLog);
#制作一个X server的cookie，作为种子，当前时间，我们的PID，passwd加密格式的一部分
# Make an X server cookie - use as the seed the sum of the current time, our
# PID and part of the encrypted form of the password. Ideally we'd use
# /dev/urandom, but that's only available on Linux.
#用srand函数生成随机数种子提供给rand函数使用
srand(time+$+unpack("L",`cat $vncUserDir/passwd`));
$cookie = "";
for (1..16) {
#生成32位的随机数作为cookie
$cookie .= sprintf("%02x", int(rand(256)) % 256);
}
#调用外部命令为当前的displayNumber在xauth验证文件添加cookie
system("xauth -f $xauthorityFile add $host:$displayNumber . $cookie");
system("xauth -f $xauthorityFile add $host/unix:$displayNumber . $cookie");
#如果数组%opt中的-name参数有值，则将值赋给变量$desktopName
if ($opt{'-name'}) {
$desktopName = $opt{'-name'};
#如果没有，则取默认的组合值
} else {
$desktopName = "$host:$displayNumber ($ENV{USER})";
}
#开始启动X VNC服务器
# Now start the X VNC Server
#将之前得到的所有变量连接起来，形成一条完整的命令
$cmd = "Xvnc :$displayNumber";
$cmd .= " -desktop " . "edString($desktopName);
$cmd .= " -httpd $vncJavaFiles" if ($vncJavaFiles);
$cmd .= " -auth $xauthorityFile";
$cmd .= " -geometry $geometry" if ($geometry);
$cmd .= " -depth $depth" if ($depth);
$cmd .= " -pixelformat $pixelformat" if ($pixelformat);
$cmd .= " -rfbwait 30000";
$cmd .= " -rfbauth $vncUserDir/passwd";
$cmd .= " -rfbport $vncPort";
$cmd .= " -pn";
#添加字库和颜色相关
# Add font path and color database stuff here, e.g.:
#
# $cmd .= " -fp /usr/lib/X11/fonts/misc/,/usr/lib/X11/fonts/75dpi/";
# $cmd .= " -co /usr/lib/X11/rgb";
#
#循环取出剩余的命令行参数加到命令的末尾
foreach $arg (@ARGV) {
$cmd .= " " . "edString($arg);
}
#将命令执行结果输出到vnc目录下的log中，包括标准错误输出
$cmd .= " >> " . "edString($desktopLog) . " 2>&1";
#运行cmd命令并记录进程ID
# Run $cmd and record the process ID.
#定义进程ID文件路径
$pidFile = "$vncUserDir/$host:$displayNumber.pid";
#执行cmd中的命令并将进程ID写入文件$pidFile
system("$cmd & echo \$! >$pidFile");
#启动Xvnc
# Give Xvnc a chance to start up
#等待3秒
sleep(3);
#提示vncserver启动成功
warn "\nNew '$desktopName' desktop is $host:$displayNumber\n\n";
#创建用户的启动脚本
# Create the user's xstartup script if necessary.
#如果用户启动脚本不存在
if (!(-e "$vncUserDir/xstartup")) {
#提示创建默认的启动脚本，存放在vnc用户目录下
warn "Creating default startup script $vncUserDir/xstartup\n";
#以写权限打开用户启动脚本
open(XSTARTUP, ">$vncUserDir/xstartup");
#将默认启动参数写入启动脚本中
print XSTARTUP $defaultXStartup;
#关闭脚本文件
close(XSTARTUP);
#给脚本文件增加755的权限
chmod 0755, "$vncUserDir/xstartup";
}
#运行用户脚本文件
# Run the X startup script.
#提示按照用户目录下的脚本启动程序
warn "Starting applications specified in $vncUserDir/xstartup\n";
#提示log文件存放在用户目录下
warn "Log file is $desktopLog\n\n";
#如果存在unix domain socket，则设置环境变量$DISPLAY=:n，否则使用TCP socket，设置环境变量$DISPLAY=host:n
# If the unix domain socket exists then use that (DISPLAY=:n) otherwise use
# TCP (DISPLAY=host:n)
#如果tmp目录下存在对应的socket文件或者usr的sockets目录下存在对应的文件
if (-e "/tmp/.X11-unix/X$displayNumber" ||
-e "/usr/spool/sockets/X11/$displayNumber")
{
#设置环境变量DISPLAY=:n
$ENV{DISPLAY}= ":$displayNumber";
} else {
#否则设置环境变量DISPLAY=host:n
$ENV{DISPLAY}= "$host:$displayNumber";
}
#设置环境变量$VNCDESKTOP
$ENV{VNCDESKTOP}= $desktopName;
#调用外部命令执行xstartup脚本并将标准输出和错误追加到日志里
system("$vncUserDir/xstartup >> " . "edString($desktopLog) . " 2>&1 &");
exit;
###############################################################################
#
# CheckGeometryAndDepth simply makes sure that the geometry and depth values
# are sensible.
#简单的检查分辨率和颜色深度
sub CheckGeometryAndDepth
{
#如果分辨率是按照整数x整数格式
if ($geometry =~ /^(\d+)x(\d+)$/) {
#取第一个整数作为宽，第二个整数作为高
$width = $1; $height = $2;
#如果宽和高其中一个小于1，退出并提示错误信息
if (($width<1) || ($height<1)) {
die "$prog: geometry $geometry is invalid\n";
}
#保证分辨率的宽是4的倍数
while (($width % 4)!=0) {
$width = $width + 1;
}
#保证分辨率的高是2的倍数
while (($height % 2)!=0) {
$height = $height + 1;
}
#算出分辨率并赋给变量$geometry
$geometry = "${width}x$height";
} else {
#如果分辨率格式不对，退出并提示错误
die "$prog: geometry $geometry is invalid\n";
}
#如果颜色深度不是8到32，退出并提示错误
if (($depth < 8) || ($depth > 32)) {
die "Depth must be between 8 and 32\n";
}
}
#从最低有效的display号匹配
# GetDisplayNumber gets the lowest available display number. A display number
# n is taken if something is listening on the VNC server port (5900+n) or the
# X server port (6000+n).
#
sub GetDisplayNumber
{
#检查1到99的display号是否被占用，没被占用就返回该号码，全被占用则退出输出错误提示信息
foreach $n (1..99) {
if (&CheckDisplayNumber($n)) {
return $n+0; # Bruce Mah's workaround for bug in perl 5.005_02
}
}
die "$prog: no free display number on $host.\n";
}
#检查DisplayNumber，判断是否命令行给定的DisplayNumber是可用的。判断给定端口是否被其他程序占用
# CheckDisplayNumber checks if the given display number is available. A
# display number n is taken if something is listening on the VNC server port
# (5900+n) or the X server port (6000+n).
#
sub CheckDisplayNumber
{
local ($n) = @_;
#Perl的函数Socket的格式为：Socket(FILE,Domain,Type,Protocol);
#其中：
#FILE 绑定一个套接字句柄（类似于打开文件的句柄）；
#Domain 表示套接字的协议域类型。它可以定义为Internet域，其值为2，也可以定义为UNIX域,如果把这个变量赋值为1表示域的类型为UNIX域。如果这个变量付值为2，则表示定义类型为Internet。我们常用的是的套接字协议族为Internet协议族。
#Type 表示套接字类型，定义为SOCK_STREAM类型，表示的是基于流传输模式的TCP套接字。定义为SOCK_DGRAM类型，表示为基于简单数据传递的UDP套接字。
#Protocol 表示套接字的协议号，这个协议号可以通过Perl内置函数getprotobyname()得到
#打开一个internet域的TCP套接字，如果失败，退出并提示错误信息
socket(S, $AF_INET, $SOCK_STREAM, 0) || die "$prog: socket failed: $!\n";
#设置socket选项，并捕获错误信息
eval 'setsockopt(S, &SOL_SOCKET, &SO_REUSEADDR, pack("l", 1))';
#如果绑定失败，关闭套接字，返回0
if (!bind(S, pack('S n x12', $AF_INET, 6000 + $n))) {
close(S);
return 0;
}
close(S);
#打开一个internet域的TCP套接字，如果失败，退出并提示错误信息
socket(S, $AF_INET, $SOCK_STREAM, 0) || die "$prog: socket failed: $!\n";
#设置socket选项，并捕获错误信息
eval 'setsockopt(S, &SOL_SOCKET, &SO_REUSEADDR, pack("l", 1))';
#如果绑定失败，关闭套接字，返回0
if (!bind(S, pack('S n x12', $AF_INET, 5900 + $n))) {
close(S);
return 0;
}
close(S);
#如果tmp目录下存在-lock，提示警告信息
if (-e "/tmp/.X$n-lock") {
warn "\nWarning: $host:$n is taken because of /tmp/.X$n-lock\n";
warn "Remove this file if there is no X server $host:$n\n";
return 0;
}
#如果tmp目录下存在socket文件，提示警告信息
if (-e "/tmp/.X11-unix/X$n") {
warn "\nWarning: $host:$n is taken because of /tmp/.X11-unix/X$n\n";
warn "Remove this file if there is no X server $host:$n\n";
return 0;
}
#如果/usr/spool/sockets目录下存在socket文件，提示警告信息
if (-e "/usr/spool/sockets/X11/$n") {
warn("\nWarning: $host:$n is taken because of ".
"/usr/spool/sockets/X11/$n\n");
warn "Remove this file if there is no X server $host:$n\n";
return 0;
}
return 1;
}

复制代码

文库|博客

xiaozi0lei

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2013-03-05 13:29 |只看该作者

#
# GetXDisplayDefaults uses xdpyinfo to find out the geometry, depth and pixel
# format of the current X display being used. If successful, it sets the
# options as appropriate so that the X VNC server will use the same settings
# (minus an allowance for window manager decorations on the geometry). Using
# the same depth and pixel format means that the VNC server won't have to
# translate pixels when the desktop is being viewed on this X display (for
# TrueColor displays anyway).
#
sub GetXDisplayDefaults
{
#定义本地标量和列表变量
local (@lines, @matchlines, $width, $height, $defaultVisualId, $i,
$red, $green, $blue);
#wmDecorationWidth (class WmDecorationWidth)
#For calculating maximum VNC window size. Default 4.
#wmDecorationHeight (class WmDecorationHeight)
#For calculating maximum VNC window size. Default 24.
#不明白这两个变量是用来干嘛的，个人猜测是窗口的边框。decoration是装饰的意思，窗口渲染时，大小必须去掉装饰的长宽
$wmDecorationWidth = 4; # a guess at typical size for window manager
$wmDecorationHeight = 24; # decoration size
#如果没有定义环境变量DISPLAY，就直接返回
return if (!defined($ENV{DISPLAY}));
#利用unix下的xdpyinfo工具读取相关的显示信息，赋给数组@lines
@lines = `xdpyinfo 2>/dev/null`;
#如果上一个外部命令执行错误，则直接返回
return if ($? != 0);
#找到分辨率，将分辨率赋值给数组
@matchlines = grep(/dimensions/, @lines);
#如果数组里有值
if (@matchlines) {
#将数组中字符串通过正则表达式将宽和高取出赋给列表中的两个变量
($width, $height) = ($matchlines[0] =~ /(\d+)x(\d+) pixels/);
#去掉装饰的长宽，个人理解是去掉边框
$width -= $wmDecorationWidth;
$height -= $wmDecorationHeight;
#将得到的宽高赋给分辨率变量
$geometry = "${width}x$height";
}
#找到默认图像ID
@matchlines = grep(/default visual id/, @lines);
if (@matchlines) {
#取出默认图像ID
($defaultVisualId) = ($matchlines[0] =~ /id:\s+(\S+)/);
#遍历数组@lines中所有的元素，查找默认图像ID对应的TrueColor，depth以及RGB
for ($i = 0; $i < @lines; $i++) {
if ($lines[$i] =~ /^\s*visual id:\s+$defaultVisualId$/) {
#如果找不到TrueColor,depth,RGB任何一个，直接返回
if (($lines[$i+1] !~ /TrueColor/) ||
($lines[$i+2] !~ /depth/) ||
($lines[$i+4] !~ /red, green, blue masks/))
{
return;
}
last;
}
}
#如果遍历的所有的元素，找不到匹配的元素，直接返回
return if ($i >= @lines);
#将找到的默认色深赋给变量$depth
($depth) = ($lines[$i+2] =~ /depth:\s+(\d+)/);
#将找到的默认RGB色彩模式值赋给变量
($red,$green,$blue)
= ($lines[$i+4]
=~ /masks:\s+0x([0-9a-f]+), 0x([0-9a-f]+), 0x([0-9a-f]+)/);
#将十六进制转换成十进制
$red = hex($red);
$green = hex($green);
$blue = hex($blue);
#计算红绿蓝然后得出像素格式，不懂图形学，不知道这些公式干嘛的...囧
if ($red > $blue) {
$red = int(log($red) / log(2)) - int(log($green) / log(2));
$green = int(log($green) / log(2)) - int(log($blue) / log(2));
$blue = int(log($blue) / log(2)) + 1;
$pixelformat = "rgb$red$green$blue";
} else {
$blue = int(log($blue) / log(2)) - int(log($green) / log(2));
$green = int(log($green) / log(2)) - int(log($red) / log(2));
$red = int(log($red) / log(2)) + 1;
$pixelformat = "bgr$blue$green$red";
}
}
}
#没明白这个子过程有什么用...把'替换成'"'"'，然后再加上''，不明白意图~囧
# quotedString returns a string which yields the original string when parsed
# by a shell.
#
sub quotedString
{
local ($in) = @_;
$in =~ s/\'/\'\"\'\"\'/g;
return "'$in'";
}
#移除斜线号，用下划线取代
# removeSlashes turns slashes into underscores for use as a file name.
#
sub removeSlashes
{
local ($in) = @_;
#将斜线替换成下划线
$in =~ s|/|_|g;
return "$in";
}
#
# Usage
#
#输入格式错误时，提示使用方法
sub Usage
{
die("\nusage: $prog [:<number>] [-name <desktop-name>] [-depth <depth>]\n".
" [-geometry <width>x<height>]\n".
" [-pixelformat rgbNNN|bgrNNN]\n".
" <Xvnc-options>...\n\n".
" $prog -kill <X-display>\n\n");
}
#
# Kill
#
sub Kill
{
#转换格式，看句末注释
$opt{'-kill'} =~ s/(:\d+)\.\d+$/$1/; # e.g. turn :1.0 into :1
#如果-kill参数值合法
if ($opt{'-kill'} =~ /^:\d+$/) {
#将对应的pid文件路径赋给变量$pidFile
$pidFile = "$vncUserDir/$host$opt{'-kill'}.pid";
} else {
#如果-kill参数值不以$host:开头，退出并提示错误信息
if ($opt{'-kill'} !~ /^$host:/) {
die "\nCan't tell if $opt{'-kill'} is on $host\n".
"Use -kill :<number> instead\n\n";
}
#将对应的pid文件路径赋给变量
$pidFile = "$vncUserDir/$opt{'-kill'}.pid";
}
#如果pid文件不可读，退出并提示错误信息
if (! -r $pidFile) {
die "\nCan't find file $pidFile\n".
"You'll have to kill the Xvnc process manually\n\n";
}
#
$SIG{'HUP'} = 'IGNORE';
#读出pid并去除末尾的回车符
chop($pid = `cat $pidFile`);
#提示杀死Xvnc进行
warn "Killing Xvnc process ID $pid\n";
#调用外部系统杀死进程
system("kill $pid");
#删除进程文件
unlink $pidFile;
#退出
exit;
}
#
# ParseOptions takes a list of possible options and a boolean indicating
# whether the option has a value following, and sets up an associative array
# %opt of the values of the options given on the command line. It removes all
# the arguments it uses from @ARGV and returns them in @optArgs.
#
#分析选项
sub ParseOptions
{
#将模板里的参数读到数组@optval
local (@optval) = @_;
#定义局部变量$opt,数组@opts,@newargs,哈希表%valFollows
local ($opt, @opts, %valFollows, @newargs);
#利用while循环取出数组中下标为单数的标量值作为哈希表的键，下标为双数的标量值作为哈希表的值
while (@optval) {
#从左侧弹出下标为单数的标量值赋给变量$opt
$opt = shift(@optval);
#将弹出的标量值从右侧弹入数组@opts
push(@opts,$opt);
#从左侧弹出下标为双数的标量值赋给对应的哈希表的键
$valFollows{$opt} = shift(@optval);
}
#定义空的数组和哈希表
@optArgs = ();
%opt = ();
#利用while循环读取命令行参数
arg: while (defined($arg = shift(@ARGV))) {
#利用foreach循环读取数组@opts中的值与命令行中对应的值
foreach $opt (@opts) {
if ($arg eq $opt) {
#将命令行中的参数从右侧弹入数组@optArgs
push(@optArgs, $arg);
#如果哈希表%valFollows中键的预设值不为0
if ($valFollows{$opt}) {
#如果命令行中只输入了一个参数且不带参数值(如果两个参数连在一起，中间没有参数值怎么办？)
if (@ARGV == 0) {
#提示使用方法
&Usage();
}
#将命令行中的参数值赋给哈希表%opt对应的键
$opt{$opt} = shift(@ARGV);
#将哈希表中的值存入数组@optArgs中
push(@optArgs, $opt{$opt});
} else {
#如果哈希表%valFollows中键的预设值为0
$opt{$opt} = 1;
}
#读取下一个命令行参数
next arg;
}
}
#将命令行中无法匹配模板的参数存入数组@newargs
push(@newargs,$arg);
}
#将没能匹配上的命令行参数重新赋给@ARGV
@ARGV = @newargs;
}
#例行检查，保证我们在一个可靠的环境中操作
# Routine to make sure we're operating in a sane environment.
#
sub SanityCheck
{
#定义本地变量，local相当于my
local ($cmd);
#下面的正则表达将获取程序的名字
# Get the program name
#
#"=~"叫做绑定操作符，绑定右侧的正则表达式与左侧的$0，默认的右侧正则表达式会与perl默认的变量$_进行匹配。
#m||,m是perl正则表达式（模式匹配）操作符的缩写match
($prog) = ($0 =~ m|([^/]+)$|);
#检查环境变量PATH中包含我们所需要的命令
# Check we have all the commands we'll need on the path.
#
cmd:
#foreach循环，每次取括号中的一个参数赋给$cmd
foreach $cmd ("uname","xauth","Xvnc","vncpasswd") {
#用split操作符将PATH环境变量通过符号":"拆分开，通过循环取出环境变量赋给$_，判断$_目录中的$cmd是否有可执行权限，$_是perl的默认变量
for (split(/:/,$ENV{PATH})) {
#检查当前用户对$cmd命令是否具有可执行的权限
if (-x "$_/$cmd") {
#如果找到了第一个可执行的$cmd，就检查下一个$cmd
next cmd;
}
}
#如果遍历了PATH环境变量，找不到可执行的$cmd，则打印出没找到的$cmd并退出程序
#函数名:die
#调用语法:die (message);
#解说:终止程序并向STDERR输出错误信息。message可以为字符串或列表。如果最后一个参数不包含换行符，则程序文件名和行号也被输出。
die "$prog: couldn't find \"$cmd\" on your PATH.\n";
}
#
# Check the HOME environment variable is set
#检查家目录环境变量已经设置好了
#如果查询发现家目录的环境变量没有定义，则打印出家目录环境变量没设置并退出程序
if (!defined($ENV{HOME})) {
die "$prog: The HOME environment variable is not set.\n";
}
#改变目录到用户的家目录
chdir($ENV{HOME});
#
# Find socket constants. 'use Socket' is a perl5-ism, so we wrap it in an
# eval, and if it fails we try 'require "sys/socket.ph"'. If this fails,
# we just guess at the values. If you find perl moaning here, just
# hard-code the values of AF_INET and SOCK_STREAM. You can find these out
# for your platform by looking in /usr/include/sys/socket.h and related
# files.
#
#获取操作系统的名字
chop($os = `uname`);
#获取操作系统的版本
chop($osrev = `uname -r`);
#执行perl目录下的Socket.pm查找AF_INET和SOCK_STREAM
eval 'use Socket';
# $@存储 Perl解释器从eval语句返回的错误消息，如果$@有内容的话，就接着查找sys/socket.ph
if ($@) {
#检查是否能够找到sys/socket.ph
eval 'require "sys/socket.ph"';
#如果$@有内容的话，表示require失败
if ($@) {
#通过判断操作系统是SunOS,如果版本是非4的话，hard-code AF_INET=2和SOCK_STREAM=2，如果版本是4的话，hard-code AF_INET=2和SOCK_STREAM=1
if (($os eq "SunOS") && ($osrev !~ /^4/)) {
$AF_INET = 2;
$SOCK_STREAM = 2;
} else {
$AF_INET = 2;
$SOCK_STREAM = 1;
}
#如果require成功的话，就取sys/socket.ph里面的地址组和流套接字的值
} else {
$AF_INET = &AF_INET;
$SOCK_STREAM = &SOCK_STREAM;
}
#如果use Socket成功的话，就取Socket.pm里面的地址组和流套接字的值
} else {
$AF_INET = &AF_INET;
$SOCK_STREAM = &SOCK_STREAM;
}
}