netstat   -ab  [chrome.exe]   TCP    192.168.1.107:53727    204.244.102.19:80      ESTABLISHED  [chrome.exe]   TCP    192.168.1.107:53746    121.14.11.200:80       CLOSE_WAIT  [chrome.exe]   TCP    19

perl的特殊变量还有很多的，例如常用的还有@_、@ARGV、$ARGV、%INC、%ENV等。 $-      当前页可打印的行数,属于Perl格式系统的一部分 $!      根据上下文内容返回错误号或者错误串 $”      列表分隔符 $#     打印数字时默认的数字输出格式 $$      Perl解释器的进程ID $%     当前输出通道的当前页号 $&      与上个格式匹配的

#perl -MCPAN -e 'install Time::HiRes' perl在5.0之后引入了模块化的概念，实现面向对象的编程。CPAN（Comprehensive　Perl　Archive　 Network）是internet上Perl模块最大的集散地，包含了现今公布的几乎所有的perl模块，通过上面的例子，可以获知利用这个格式，可以 到CPAN上安装需要的模块。 安装前需要先联上线，并

Perl 语言经常由 IBM AIX 操作系统管理员和开发人员使用，几乎每个成功的网站和大多数 AIX 系统上都使用了该语言。尽管 Perl 脚本的功能非常强大，但它产生的 Web 接口却缺少图形化前端，用户必须键入信息，而不能使用鼠标，对于客户来说，这一点非常不尽人意。随着 Perl 中 Tk 模块的引入，此问题已得到解决。管理员或开发人员可以利用 Tk 模块快速为其 Perl 脚本带来新的生机

本帖最后由 hu145165 于 2010-05-31 23:03 编辑 convert to UTF8? I'm trying to fix an issue for someone who's using a meta-search engine on a French web site. The data being pulled in, I would have assumed, shou

环境: linux                                           en_US.UTF-8  perl, v5.8.8 mysql-5.1.46                          表字符集:gbk_chinese_cli   我的perl脚本是分析一个log日志.然后插入mysql中入库.但是结果很让人不爽.乱码. 折腾了很久.弄好了.解决方式如

写在前面：分享连接：http://tech.it168.com/zt/perl/index.html   转自：http://www.chinaunix.net/jh/25/59799.html   Perl语言简介  [转帖自Server & SHELL论坛：http://china.65535.net/phpBB204/phpBB2/index.php] [作者：briancai@urpos.

都说Perl中的ParseExcel很厉害，而且可以跨平台。最重要的是，与OLE的库相比，使用这个库的时候，可以不用关闭EXCEL正常使用。 一般用这个库读取小文件很有用，一般小型文件，用它都有效。但是这个库真的可以完全支持微软的Excel吗？ 测试结论是可以，但最多只能完美读出Excel4.0的xlw格式，连Excel5.0格式都不能完全读出！     测试用代码： ###ParseExcel.

    my $a=1; for(my $j=0;$j<=$a;$j+=0.05){   print "$j/n"; }   for(my $j=1;$j<=10;$j++){   print "$j/n"; }   0 0.05 0.1 0.15 0.2 0.25 0.3 0.35 0.4 0.45 0.5 0.55 0.6 0.65 0.7 0.75 0.8 0.85 0.9 0.95 1 2

#!/usr/bin/perl open (IPADR,"/root/lee/test/ip") || die "read file error"; my $line; while ( defined ($line=<IPADR>) ){     @line=split(/\s+/,$line);    #@line=$line;         #print @line;            

#!/usr/perl/bin use strict; use Data::Dumper; my %h=( "Alex"=>24, "Sam"=>25, "Bob"=>30, "Andy"=>11, "Wills"=>35, "Mary"=>16, "Helen"=>24 ); print(Dumper(/%h)); # output origi

工作中需要处理INI 配置文件，看了下同事写的脚本，处理的比较简单，只解析了需要的那部分，没有对其他部分做出处理，自己重新写了一个，可以把整个文件一次处理完毕，很简单，代码如下：   use warnings; use Data::Dumper; my $f = 'd:/project/SDI/params.config'; my (%dict,$this); open FILE,"$f"; wh

1.使用重定位的方法,比如: system "path >> d://path.txt"; 然后再对临时文件 path.txt 处理   2.使用 `  (这个是tab上面的`) 就是这个东东,弄了好久才搞明白...一定是 TAB 上面的 ` 不是 ~,也不是单引号' my $path = `path`; print $path;   3.使用qx// //是分隔符,也可以用其他符号代替,比如!,

<!-- /* 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

<!-- /* 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

<!-- /* 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，看到关于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 下边是另外