Perl语言应该记住的最重要的一点是：Perl中的数组和哈希表始终是一维的。因此，数组和哈希表只保存标量值，不直接存贮数组或其它的复杂数据结构。数组的成员要么是数（或字符串）要么是引用。
$line = ['solid' , 'black' , ['1','2','3'] , ['4','5','6']];
$line->[0] = solid
$line->[1] = black
$line->[2][0] = 1
$line->[3][1] = 5
$map = {“1″ =>
{
“1-0″ => “1-0″,
“1-1″ => “1-1″
},
“2″ =>
{
“2-0″ => “2-0″,
“2-1″ => “2-1″
}
};
该hash表可以这样来使用
$map->{“2″}->{“2-1″}
在perl子函数中，可以直接引用和修改全局变量，如：
$var = “global”;
sub foo() {
print $var;
$var .= ” extend”;
}
foo();
print(“\n”);
print($var);
输出:
global
global extend可以看出，子函数可以引用和修改全局变量，当你不确定有哪些全局变量，且定义了与全局变量同名的变量时，这样就造成了冲突，这时可以通过perl里面的my和local关键字来解决，它们俩都是用来定义局部变量的，但有区别，local定义的局部变量的生命周期可以延续到当前子函数所调用的其它子函数里，而my则没有这个特性，举例说明：
$var = “global”;
sub foo() {
local $var = “assigned by foo sub”;
foo2();
}
sub foo2() {
print($var);
print(“\n”);
}
foo();
print($var);
输出：
assigned by foo sub
global
————————————————————————
$var = “global”;
sub foo() {
my $var = “assigned by foo sub”;
foo2();
}
sub foo2() {
print($var);
print(“\n”);
}
foo();
print($var);
输出：
global
global
以root身份进入控制台，进入下面命令：
~]# yum -y install mod_ssl
~]# cd /etc/pki/tls/certs/
certs]# make server.key
certs]# openssl rsa -in server.key -out server.key
certs]# make server.csr
certs]# openssl x509 -in server.csr -out server.pem -req -signkey server.key -days 365
certs]# chmod 400 server.*
certs]# vi /etc/httpd/conf.d/ssl.conf
SSLCertificateFile /etc/pki/tls/certs/server.pem ← 追加
SSLCertificateKeyFile /etc/pki/tls/certs/server.key ← 追加
成功！
更多可参照：http://www.centospub.com/make/ssl.html（该页面教程基于CentOS4.4，所以与上面步骤和命令略有不同）。
对于Oracle 10g，在 开始/程序/oracle 里找不到”企业管理器”, 要打开”企业管理器”，可以通过浏览器打开，先在 oracle安装目录\db_1\install目录下的portlist.ini文件里找到相应的端口号，例如我的目录就是：C:\oracle\product\10.2.0\db_1\install，portlist.ini里的内容是：
iSQL*Plus HTTP 端口号 =5560
Enterprise Manager Console HTTP 端口 (orcl) = 1158
Enterprise Manager 代理端口 (orcl) = 3938
可以看到端口号为：1158，在浏览器里输入http://localhost:1158/em, 回车就可以打开企业管理器了。
当然用其它IP替换localhost也就可以打开相应的机器上的oracle企业管理器了。
之前不知道em代表什么，后来猜想应该是Enterprise Manager的简称，自己想的，不知道对不对，哈哈。
