目前正在自学perl，看到关于dereference的一些写法： @array1 = qw /a b c/; @array2 = qw /d e f/; @array = {/@array1, /@array2}; $array_ref = /@array;   假如要访问array1中的第2个元素，可以有如下几种写法： $array[0][1]                          

<!-- /* Font Definitions */ @font-face {font-family:"MS Mincho"; panose-1:2 2 6 9 4 2 5 8 3 4; mso-font-alt:"ＭＳ 明朝"; mso-font-charset:128; mso-generic-font-family:modern; mso-font-pitch:fixed; mso-fon

<!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signatu

perl的ref 函数     我们都知道perl有引用的概念：一组数据实际上是另一组数据的引用。这些引用称为指针，第一组数据中存放的是第二组数据的头地址。这部分的内容详见：[原]《Perl 24小时教程》学习笔记：引用与结构。引用的方式被用得相当普遍，特别是在面向对象的模块、函数的参数传递等常见。但perl对每个引用都是以一个普通的变量来定义的，有时候，如果数据的架构比较复杂，我们可能会困惑于某

use DBI; my $database = 'xxx'; my $hostname = 'xxx'; my $port = '3720'; my $user = 'xxx'; my $password = 'xxx'; my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port"; my $dbh = DBI->conne

Perl VS PHP 比較表 這份之前找到的 Perl VS PHP 的對照表, 不過原始網站連不進去, 幸好當初有另存下來. 先貼起來放著. 以防流失... 原始網站: Perl/Php Translation 其它參考可見: PHP in contrast to Perl     td { font-family: helvetica, arial; } pre, xmp { font-fa

gb2312转Utf的方法： use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8", decode("gb2312", $str));   Utf转gb2312的方法： use Encode; my $str = "utf8中文"; $str_cnsoftware = encode("gb2312", decode("utf-8"

开源资产管理软件OCS+GLPI安装配置 系统环境Centos 5.5 OCS中文包下载 Server ftp://linvinus.ru/ocs/1.3.2/OCSNG_UNIX_SERVER-1.3.2-linvinus-with-utf8_patch.tar.gz Client (windows) ftp://linvinus.ru/ocs/windows-agent-1.3/OcsAgen

perl语言中，$a,@a和($a)在接受输入时，存在一定的差异，下面举例说明： $a=<stdin>; @a=<stdin>; ($a)=<stdin>; 如果输入内容均为：nihao  回车  world； 则$a在输入回车时会结束输入，显示为nihao，@a为一直接受输入，至到出现Ctrl+D(linux),显示为nihao  回车  world;($a)输入时跟@a相同，会一直接受输入，直

perl语言中，$a,@a和($a)在接受输入时，存在一定的差异，下面举例说明： $a=<stdin>; @a=<stdin>; ($a)=<stdin>; 如果输入内容均为：nihao  回车  world； 则$a在输入回车时会结束输入，显示为nihao，@a为一直接受输入，至到出现Ctrl+D(linux),显示为nihao  回车  world;($a)输入时跟@a相同，会一直接受输入，直

对于标量求长度应用函数 length（$a）;对于数组@a求长度可以有两种，一种是将数组赋值给标量，则该标量保存数组的长度，而是使用$#a求出数组索引，然后加一。

在perl语言中，有两个特殊而常用的符号qq qw,分别解释如下：qq{foobar}的意思为意思为双引号字符串，可内插变量相当于 "foobar"qw{foo bar}的意思为用空格分解字符串，得到列表，相当于如下语句split(' ','foo bar') 得到的结果是'foo','bar'字符串比较等于用 eqq运算符对'号转义的方式$someword = 'i /'ve some mone

官方文档： http://search.cpan.org/dist/Log-Log4perl/lib/Log/Log4perl/FAQ.pm#How_can_I_install_Log::Log4perl_on_Microsoft_Windows?   摘录如下：   How can I install Log::Log4perl on Microsoft Windows? Log::Log4pe

文本处理中经常需要将字符串中的某些字符替换后再进行处理，以下是新发现的非常方便的方法，充分发挥了Perl正则表达式的威力。 $str = "this is a testing"; $str =~ s/(/w+) (/w+)/$2 $1/; print $str; ------------------------------------ OUTPUT: is this a testing 下边是另外

文本处理中经常需要将字符串中一些符合匹配的子串捕捉，新发现了一个简单的方法。 老方法： $str = "EJV.done.2010-10-10.2010-11-11.xml"; if($str =~ /([/d-]+).([/d-]+)/){     $firstdate = $1;     $seconddate = $2; } 新方法： ($firstdate,$seconddate) = (

对于模式匹配中，统计字符、数字及其他个数问题，如果直接用模式匹配会始终显示不正常，如$patter=<stdin>; $count_letter=$patter =~ /[A-Za-z]/,不能得到正确个数，可以用替换解决这一问题:$count_letter=($pattern =~ s/([A-Za-z])/$1/isg);