
平臺論壇博客文庫

› 論壇 › 程序設(shè)計 › Perl › vncserver注釋，不當(dāng)之處請指正(1)

vncserver注釋，不當(dāng)之處請指正(1) [復(fù)制鏈接]

xiaozi0lei

白手起家

論壇徽章:: 0

電梯直達(dá)

1樓 [收藏(0)] [報告]

發(fā)表于 2013-03-05 13:24 |只看該作者 |倒序瀏覽

本帖最后由 xiaozi0lei 于 2013-03-05 13:32 編輯

轉(zhuǎn)載請注明出處，謝謝！
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 弦上風(fēng).
# 本文檔由弦上風(fēng)注釋翻譯。
# If you have any questions and good comments, please feel free to tell me.
# 如果你有任何問題或者好的建議，請積極聯(lián)系我。
# @弦上風(fēng)
# # # # # # # # # # # # # # # # # # # # # # # # # #
#此腳本用來啟動一個X VNC 服務(wù)器
# vncserver - wrapper script to start an X VNC server.
#
#首先，保證我們在一個穩(wěn)定可靠的環(huán)境進(jìn)行操作
# First make sure we're operating in a sane environment.
#
#調(diào)用腳本下方的SanityCheck子過程
&SanityCheck();
#全局變量，可以針對自己的site進(jìn)行自定義配置
# Global variables. You may want to configure some of these for your site.
#
#初始化顯示的分辨率，默認(rèn)分辨率
$geometry = "1024x768";
#顏色深度，默認(rèn)色深
$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";
#定義默認(rèn)的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
#分析命令行中的參數(shù)
&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"參數(shù)，調(diào)用Kill子過程
&Kill() if ($opt{'-kill'});
#如果你想使用默認(rèn)的分辨率，顏色深度和像素格式來匹配當(dāng)前的X顯示，請去掉下面這行注釋
# Uncomment this line if you want default geometry, depth and pixelformat
# to match the current X display:
# &GetXDisplayDefaults();
#讀取命令行中的分辨率設(shè)置，賦給分辨率全局變量
if ($opt{'-geometry'}) {
$geometry = $opt{'-geometry'};
}
#讀取命令行中的顏色深度設(shè)置，賦給顏色深度全局變量
if ($opt{'-depth'}) {
$depth = $opt{'-depth'};
$pixelformat = "";
}
#讀取命令行中的像素格式設(shè)置，賦給像素格式全局變量
if ($opt{'-pixelformat'}) {
$pixelformat = $opt{'-pixelformat'};
}
#調(diào)用檢查分辨率和色深的子過程
&CheckGeometryAndDepth();
#如果沒有則創(chuàng)建用戶的vnc目錄
# Create the user's vnc directory if necessary.
#如果不存在用戶的vnc目錄
if (!(-e $vncUserDir)) {
#如果無法創(chuàng)建用戶的vnc目錄，退出并輸出錯誤提示信息
if (!mkdir($vncUserDir,0755)) {
die "$prog: Could not create $vncUserDir.\n";
}
}
#保證用戶有密碼
# Make sure the user has a password.
#獲取passwd文件的權(quán)限屬性
($z,$z,$mode) = stat("$vncUserDir/passwd");
#如果不存在passwd文件或者非擁有者對該文件具有可讀寫權(quán)限，提示用戶需要設(shè)置密碼
if (!(-e "$vncUserDir/passwd") || ($mode & 077)) {
warn "\nYou will require a password to access your desktops.\n\n";
#從外部系統(tǒng)執(zhí)行vncpasswd -q $vncUserDir/passwd命令
system("vncpasswd -q $vncUserDir/passwd");
#判斷外部系統(tǒng)退出狀態(tài)是否為O，不為0則提示錯誤退出,0是正常退出狀態(tài)
if (($? >> 8) != 0) {
exit 1;
}
}
#拿到display號
# Find display number.
#如果剩余的命令參數(shù)的數(shù)量大于0且第一個參數(shù)是以：開頭，后面是整數(shù)
if ((@ARGV > 0) && ($ARGV[0] =~ /^:(\d+)$/)) {
#將$1中的值賦給變量$displayNumber
$displayNumber = $1;
#從左邊彈出一個參數(shù)
shift(@ARGV);
#檢查輸入的display號是否被占用，若被占用，則退出并輸出錯誤提示信息
if (!&CheckDisplayNumber($displayNumber)) {
die "A VNC server is already running as :$displayNumber\n";
}
#如果剩余的命令參數(shù)的數(shù)量大于0且第一個參數(shù)不是-開頭，則輸出使用說明
} 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，作為種子，當(dāng)前時間，我們的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函數(shù)生成隨機數(shù)種子提供給rand函數(shù)使用
srand(time+$+unpack("L",`cat $vncUserDir/passwd`));
$cookie = "";
for (1..16) {
#生成32位的隨機數(shù)作為cookie
$cookie .= sprintf("%02x", int(rand(256)) % 256);
}
#調(diào)用外部命令為當(dāng)前的displayNumber在xauth驗證文件添加cookie
system("xauth -f $xauthorityFile add $host:$displayNumber . $cookie");
system("xauth -f $xauthorityFile add $host/unix:$displayNumber . $cookie");
#如果數(shù)組%opt中的-name參數(shù)有值，則將值賦給變量$desktopName
if ($opt{'-name'}) {
$desktopName = $opt{'-name'};
#如果沒有，則取默認(rèn)的組合值
} else {
$desktopName = "$host:$displayNumber ($ENV{USER})";
}
#開始啟動X VNC服務(wù)器
# 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";
#添加字庫和顏色相關(guān)
# 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";
#
#循環(huán)取出剩余的命令行參數(shù)加到命令的末尾
foreach $arg (@ARGV) {
$cmd .= " " . "edString($arg);
}
#將命令執(zhí)行結(jié)果輸出到vnc目錄下的log中，包括標(biāo)準(zhǔn)錯誤輸出
$cmd .= " >> " . "edString($desktopLog) . " 2>&1";
#運行cmd命令并記錄進(jìn)程ID
# Run $cmd and record the process ID.
#定義進(jìn)程ID文件路徑
$pidFile = "$vncUserDir/$host:$displayNumber.pid";
#執(zhí)行cmd中的命令并將進(jìn)程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";
#創(chuàng)建用戶的啟動腳本
# Create the user's xstartup script if necessary.
#如果用戶啟動腳本不存在
if (!(-e "$vncUserDir/xstartup")) {
#提示創(chuàng)建默認(rèn)的啟動腳本，存放在vnc用戶目錄下
warn "Creating default startup script $vncUserDir/xstartup\n";
#以寫權(quán)限打開用戶啟動腳本
open(XSTARTUP, ">$vncUserDir/xstartup");
#將默認(rèn)啟動參數(shù)寫入啟動腳本中
print XSTARTUP $defaultXStartup;
#關(guān)閉腳本文件
close(XSTARTUP);
#給腳本文件增加755的權(quán)限
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，則設(shè)置環(huán)境變量$DISPLAY=:n，否則使用TCP socket，設(shè)置環(huán)境變量$DISPLAY=host:n
# If the unix domain socket exists then use that (DISPLAY=:n) otherwise use
# TCP (DISPLAY=host:n)
#如果tmp目錄下存在對應(yīng)的socket文件或者usr的sockets目錄下存在對應(yīng)的文件
if (-e "/tmp/.X11-unix/X$displayNumber" ||
-e "/usr/spool/sockets/X11/$displayNumber")
{
#設(shè)置環(huán)境變量DISPLAY=:n
$ENV{DISPLAY}= ":$displayNumber";
} else {
#否則設(shè)置環(huán)境變量DISPLAY=host:n
$ENV{DISPLAY}= "$host:$displayNumber";
}
#設(shè)置環(huán)境變量$VNCDESKTOP
$ENV{VNCDESKTOP}= $desktopName;
#調(diào)用外部命令執(zhí)行xstartup腳本并將標(biāo)準(zhǔn)輸出和錯誤追加到日志里
system("$vncUserDir/xstartup >> " . "edString($desktopLog) . " 2>&1 &");
exit;
###############################################################################
#
# CheckGeometryAndDepth simply makes sure that the geometry and depth values
# are sensible.
#簡單的檢查分辨率和顏色深度
sub CheckGeometryAndDepth
{
#如果分辨率是按照整數(shù)x整數(shù)格式
if ($geometry =~ /^(\d+)x(\d+)$/) {
#取第一個整數(shù)作為寬，第二個整數(shù)作為高
$width = $1; $height = $2;
#如果寬和高其中一個小于1，退出并提示錯誤信息
if (($width<1) || ($height<1)) {
die "$prog: geometry $geometry is invalid\n";
}
#保證分辨率的寬是4的倍數(shù)
while (($width % 4)!=0) {
$width = $width + 1;
}
#保證分辨率的高是2的倍數(shù)
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的函數(shù)Socket的格式為：Socket(FILE,Domain,Type,Protocol);
#其中：
#FILE 綁定一個套接字句柄（類似于打開文件的句柄）；
#Domain 表示套接字的協(xié)議域類型。它可以定義為Internet域，其值為2，也可以定義為UNIX域,如果把這個變量賦值為1表示域的類型為UNIX域。如果這個變量付值為2，則表示定義類型為Internet。我們常用的是的套接字協(xié)議族為Internet協(xié)議族。
#Type 表示套接字類型，定義為SOCK_STREAM類型，表示的是基于流傳輸模式的TCP套接字。定義為SOCK_DGRAM類型，表示為基于簡單數(shù)據(jù)傳遞的UDP套接字。
#Protocol 表示套接字的協(xié)議號，這個協(xié)議號可以通過Perl內(nèi)置函數(shù)getprotobyname()得到
#打開一個internet域的TCP套接字，如果失敗，退出并提示錯誤信息
socket(S, $AF_INET, $SOCK_STREAM, 0) || die "$prog: socket failed: $!\n";
#設(shè)置socket選項，并捕獲錯誤信息
eval 'setsockopt(S, &SOL_SOCKET, &SO_REUSEADDR, pack("l", 1))';
#如果綁定失敗，關(guān)閉套接字，返回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";
#設(shè)置socket選項，并捕獲錯誤信息
eval 'setsockopt(S, &SOL_SOCKET, &SO_REUSEADDR, pack("l", 1))';
#如果綁定失敗，關(guān)閉套接字，返回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;
}

復(fù)制代碼

文庫|博客

使用正則表達(dá)式與lex實現(xiàn)詞法分析器
C語言的MIPS匯編實現(xiàn)（四）SWITCH
Requested init /linuxrc failed (error -2).
比較 csv 文件中數(shù)據(jù)差異
LMD ElPack v2019.7新版亮點：Transparent mode全新升級|附下載

xiaozi0lei

白手起家

論壇徽章:: 0

2樓 [報告]

發(fā)表于 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
{
#定義本地標(biāo)量和列表變量
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
#如果沒有定義環(huán)境變量DISPLAY，就直接返回
return if (!defined($ENV{DISPLAY}));
#利用unix下的xdpyinfo工具讀取相關(guān)的顯示信息，賦給數(shù)組@lines
@lines = `xdpyinfo 2>/dev/null`;
#如果上一個外部命令執(zhí)行錯誤，則直接返回
return if ($? != 0);
#找到分辨率，將分辨率賦值給數(shù)組
@matchlines = grep(/dimensions/, @lines);
#如果數(shù)組里有值
if (@matchlines) {
#將數(shù)組中字符串通過正則表達(dá)式將寬和高取出賦給列表中的兩個變量
($width, $height) = ($matchlines[0] =~ /(\d+)x(\d+) pixels/);
#去掉裝飾的長寬，個人理解是去掉邊框
$width -= $wmDecorationWidth;
$height -= $wmDecorationHeight;
#將得到的寬高賦給分辨率變量
$geometry = "${width}x$height";
}
#找到默認(rèn)圖像ID
@matchlines = grep(/default visual id/, @lines);
if (@matchlines) {
#取出默認(rèn)圖像ID
($defaultVisualId) = ($matchlines[0] =~ /id:\s+(\S+)/);
#遍歷數(shù)組@lines中所有的元素，查找默認(rèn)圖像ID對應(yīng)的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);
#將找到的默認(rèn)色深賦給變量$depth
($depth) = ($lines[$i+2] =~ /depth:\s+(\d+)/);
#將找到的默認(rèn)RGB色彩模式值賦給變量
($red,$green,$blue)
= ($lines[$i+4]
=~ /masks:\s+0x([0-9a-f]+), 0x([0-9a-f]+), 0x([0-9a-f]+)/);
#將十六進(jìn)制轉(zhuǎn)換成十進(jìn)制
$red = hex($red);
$green = hex($green);
$blue = hex($blue);
#計算紅綠藍(lán)然后得出像素格式，不懂圖形學(xué)，不知道這些公式干嘛的...囧
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
{
#轉(zhuǎn)換格式，看句末注釋
$opt{'-kill'} =~ s/(:\d+)\.\d+$/$1/; # e.g. turn :1.0 into :1
#如果-kill參數(shù)值合法
if ($opt{'-kill'} =~ /^:\d+$/) {
#將對應(yīng)的pid文件路徑賦給變量$pidFile
$pidFile = "$vncUserDir/$host$opt{'-kill'}.pid";
} else {
#如果-kill參數(shù)值不以$host:開頭，退出并提示錯誤信息
if ($opt{'-kill'} !~ /^$host:/) {
die "\nCan't tell if $opt{'-kill'} is on $host\n".
"Use -kill :<number> instead\n\n";
}
#將對應(yīng)的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進(jìn)行
warn "Killing Xvnc process ID $pid\n";
#調(diào)用外部系統(tǒng)殺死進(jìn)程
system("kill $pid");
#刪除進(jìn)程文件
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
{
#將模板里的參數(shù)讀到數(shù)組@optval
local (@optval) = @_;
#定義局部變量$opt,數(shù)組@opts,@newargs,哈希表%valFollows
local ($opt, @opts, %valFollows, @newargs);
#利用while循環(huán)取出數(shù)組中下標(biāo)為單數(shù)的標(biāo)量值作為哈希表的鍵，下標(biāo)為雙數(shù)的標(biāo)量值作為哈希表的值
while (@optval) {
#從左側(cè)彈出下標(biāo)為單數(shù)的標(biāo)量值賦給變量$opt
$opt = shift(@optval);
#將彈出的標(biāo)量值從右側(cè)彈入數(shù)組@opts
push(@opts,$opt);
#從左側(cè)彈出下標(biāo)為雙數(shù)的標(biāo)量值賦給對應(yīng)的哈希表的鍵
$valFollows{$opt} = shift(@optval);
}
#定義空的數(shù)組和哈希表
@optArgs = ();
%opt = ();
#利用while循環(huán)讀取命令行參數(shù)
arg: while (defined($arg = shift(@ARGV))) {
#利用foreach循環(huán)讀取數(shù)組@opts中的值與命令行中對應(yīng)的值
foreach $opt (@opts) {
if ($arg eq $opt) {
#將命令行中的參數(shù)從右側(cè)彈入數(shù)組@optArgs
push(@optArgs, $arg);
#如果哈希表%valFollows中鍵的預(yù)設(shè)值不為0
if ($valFollows{$opt}) {
#如果命令行中只輸入了一個參數(shù)且不帶參數(shù)值(如果兩個參數(shù)連在一起，中間沒有參數(shù)值怎么辦？)
if (@ARGV == 0) {
#提示使用方法
&Usage();
}
#將命令行中的參數(shù)值賦給哈希表%opt對應(yīng)的鍵
$opt{$opt} = shift(@ARGV);
#將哈希表中的值存入數(shù)組@optArgs中
push(@optArgs, $opt{$opt});
} else {
#如果哈希表%valFollows中鍵的預(yù)設(shè)值為0
$opt{$opt} = 1;
}
#讀取下一個命令行參數(shù)
next arg;
}
}
#將命令行中無法匹配模板的參數(shù)存入數(shù)組@newargs
push(@newargs,$arg);
}
#將沒能匹配上的命令行參數(shù)重新賦給@ARGV
@ARGV = @newargs;
}
#例行檢查，保證我們在一個可靠的環(huán)境中操作
# Routine to make sure we're operating in a sane environment.
#
sub SanityCheck
{
#定義本地變量，local相當(dāng)于my
local ($cmd);
#下面的正則表達(dá)將獲取程序的名字
# Get the program name
#
#"=~"叫做綁定操作符，綁定右側(cè)的正則表達(dá)式與左側(cè)的$0，默認(rèn)的右側(cè)正則表達(dá)式會與perl默認(rèn)的變量$_進(jìn)行匹配。
#m||,m是perl正則表達(dá)式（模式匹配）操作符的縮寫match
($prog) = ($0 =~ m|([^/]+)$|);
#檢查環(huán)境變量PATH中包含我們所需要的命令
# Check we have all the commands we'll need on the path.
#
cmd:
#foreach循環(huán)，每次取括號中的一個參數(shù)賦給$cmd
foreach $cmd ("uname","xauth","Xvnc","vncpasswd") {
#用split操作符將PATH環(huán)境變量通過符號":"拆分開，通過循環(huán)取出環(huán)境變量賦給$_，判斷$_目錄中的$cmd是否有可執(zhí)行權(quán)限，$_是perl的默認(rèn)變量
for (split(/:/,$ENV{PATH})) {
#檢查當(dāng)前用戶對$cmd命令是否具有可執(zhí)行的權(quán)限
if (-x "$_/$cmd") {
#如果找到了第一個可執(zhí)行的$cmd，就檢查下一個$cmd
next cmd;
}
}
#如果遍歷了PATH環(huán)境變量，找不到可執(zhí)行的$cmd，則打印出沒找到的$cmd并退出程序
#函數(shù)名:die
#調(diào)用語法:die (message);
#解說:終止程序并向STDERR輸出錯誤信息。message可以為字符串或列表。如果最后一個參數(shù)不包含換行符，則程序文件名和行號也被輸出。
die "$prog: couldn't find \"$cmd\" on your PATH.\n";
}
#
# Check the HOME environment variable is set
#檢查家目錄環(huán)境變量已經(jīng)設(shè)置好了
#如果查詢發(fā)現(xiàn)家目錄的環(huán)境變量沒有定義，則打印出家目錄環(huán)境變量沒設(shè)置并退出程序
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.
#
#獲取操作系統(tǒng)的名字
chop($os = `uname`);
#獲取操作系統(tǒng)的版本
chop($osrev = `uname -r`);
#執(zhí)行perl目錄下的Socket.pm查找AF_INET和SOCK_STREAM
eval 'use Socket';
# $@存儲 Perl解釋器從eval語句返回的錯誤消息，如果$@有內(nèi)容的話，就接著查找sys/socket.ph
if ($@) {
#檢查是否能夠找到sys/socket.ph
eval 'require "sys/socket.ph"';
#如果$@有內(nèi)容的話，表示require失敗
if ($@) {
#通過判斷操作系統(tǒng)是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;
}
}