有一大堆日志，需要按设备统计一下各个设备中日志记录中返回码的个数。 设备名字可以根据文件名字获得， 日志记录是有一定格式的。第七个字段是 返回码。 分别shell和perl实现了，Perl不熟，网上拼了个代码。     use Text::ParseWords; use Data::Dumper; my $result; my %table; $argv_len = @ARGV; if

正则表达式（Regular Expression，缩写为regexp，regex或regxp)，又称正规表达式、正规表示式或常规表达式或正规化表示法或正规表示法，是指一个用来描述或者匹配一系列符合某个句法规则的字符串的单个字符串 。在很多文本编辑器或其他工具里，正则表达式通常被用来检索和/或替换那些符合某个模式的文本内容 。许多程序设计语言都支持利用正则表达式进行字符串操作。例如，在Perl中就内

@ 数组 $x{} x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素 % 要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。 $! 系统产生的一些可读的信息,也可能是出错的信息 $_ 子函数参数变量自己本身 @_ 子程序的私有变量 &x 调用子函数x <> 数据输入.如果没有指定文件名,则其从标准输入流中自动打开

脚本语言（Script language，scripting language，scripting programming language）是为了缩短传统的编写-编译-链接-运行（edit-compile-link-run）过程而创建的计算机编程语言。此命名起源于一个脚本“screenplay”，每次运行都会使对话框逐字重复。早期的脚本语言经常被称为批量处理语言或工作控制语言。一个脚本通常是解释

#!/usr/bin/perl open dl ,"list" || die "open error$!"; %hash; while(<dl>) { #print $_; my ($a,$b,$c,$d) = split('_',$_); my ($d,$e) = split (//./,$c); $hash{

方法一： **************************************************************client端 #!/usr/bin/perl use strict; use IO::Socket; use Data::Dumper; my $lsocket=IO::Socket::INET->new( PeerAddr=>'127.0.0.1', PeerP

http://blog.csdn.net/xrt95050/archive/2011/05/03/6386662.aspx   perl 文件操作 收藏 打开、关闭文件    open (filevar, filename)     filevar为文件句柄，或者说是程序中用来代表某文件的代号     filename为文件名，其路径可为相对路径，亦可为绝对路径 open(FILE1,"file1

http://hi.baidu.com/jiemnij/blog/item/1fc69cee4173893eacafd58b.html Perl默认的内部变量 2009-05-20 08:25 Perl默认的内部变量 $- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID

  在 cgi-bin目录下的文件greeting.pl文件内容：   #!perl -w use CGI qw/:standard/; { my $cgi= new CGI; print $cgi->header, $cgi->start_html('A Simple Example'), $cgi->h1('A Simple Example'); if

use warnings; use strict; use File::Basename; ######################################################################### my $full_name='D:/Perl/perldoc/File/false.html'; my ($basename,$dirname,$ext)=fi

关注新的技术:Node.js家园   图在附件里，51cto很不爽，写文章时不能自动保存草稿，本来写好了，结果不小心按了F5，全没了，只好在WORD里大致的写下，没想图又没有了。唉，只好把文件传上来了，还在可以传文件。要不然，要疯了...   方法一： 在任意盘里新建一个BAT文件如perlexec.bat,内容如下： @echo on perl.exe %1 pause 按F5打开如下图的界面，

perl语言提供了两个关键字：BEGIN， END。它们可以分别包含一组脚本，用于程序体运行前或者运行后的执行，听起来很坳口是不是？下面看三个例子就明白了！ 第一个例子：最简单，最直接的！ #!/usr/bin/perl BEGIN {     print "in BEGIN module!/n"; } die "exit perl program!/n"; END {     print "in

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

1. dbm 操作接口说明 Perl中可用关联数组来访问DBM文件，所用函数为dbmopen和dbmclose，在Perl5中，已用tie和untie代替。 函数名 dbmopen 调用语法 dbmopen (array, dbmfilename, permissions); 解说 将关联数组与DBM文件相关联。参数为： 1、array：所用关联数组 2、dbmfilename：将打开的DBM文件

这种方法具体实现是创建和删除一个特定名称的文件，这在资源共享机制中通常称作semaphore。下面是个例子： 01: While(-f counter.lock){02:   select(undef,undef,undef,0.1);}03: open(LOCKFILE,">counter.lock);04: dbmopen(%COUNTERS, $DOCUMENT_ROOT/DBM_FILES

#!/usr/bin/perl sub addDate{   ($delt) = @_;     my $date = time() + 60 * 60 * 24 * $delt;   (undef, undef, undef, $day, $month, $year) = localtime $date;     $year += 1900;   $month++;     return spr

缺省的Perl调试器就是perl解释器本身，另外还有图形界面的调试器。因为我们 在开?br>?br>程序时一般都使用telnet访问服务器，所以这里主要介绍一下缺省的命 令行调试器的用法。用-d 命令行选项启动Perl解释器，例如     perl -d test.pl 即进入Perl调试器的交互界面。    调试命令列表如下：（所有命令都在调试提示符下顶格输入，命令大小写有关）     h：  

Perl从5.6开始已经开始在内部使用utf8编码来表示字符，也就是说对中文以及其他语言字符的处理应该是完全没有问题的。我们只需要利用好Encode这个模块便能充分发挥Perl的utf8字符的优势了。 下面就以中文文本的处理为例进行说明，比如有一个字符串”测试文本”，我们想要把这个中文字符串拆成单个字符，可以这样写： use Encode; $dat=”测试文本”; $str=decode(”gb

每个人都有不同的学习方法, 下面列举几个供参考: 首先,请考虑如下问题: ・        如果 Perl 是你学的第一个编程语言，推荐先看一些编程基础，流程控制,逻辑和设计的知识。 ・        如果你学过其他语言，那就可以从学习 Perl 的语法开始（《Perl语言入门》），或者是从 Perl 的自带文档。当你对 Perl 的语法了解后，尝试书中的例子，试着写一些简单的程序。很快你就会发现

可视化软件circos更新 适合级别：入门 关键字   ：可视化,circos,翻译   背景 在数据挖掘和数据分析越来越受重视的今天，数据可视化一直是一个悄悄在成长的小交叉领域，类似的诸如信息可视化，统计可视化，可视化商业智能等。   简介 circos 是一个主要用于可视化生物信息学领域的基因组数据的开源软件，基于perl，作者也是交叉学科的牛人 Martin Krzywinski ，有着多个

基本用法 # 初始化 %h为空数组 %h = {}; # 用数组初始化%h为 a=>1, b=>2 %h = ('a', 1, 'b', 2); # 意义同上，只是另一种更形象化的写法。 %h = ('a'=>1, 'b'=>2); #如果key是字符串，可以省略引号。下面这行和上面那行是一样的 %h = (a=>1, b=>2); # 用{}来访问 print "$h{a}/n&quo

基本用法 # 初始化 %h为空数组 %h = {}; # 用数组初始化%h为 a=>1, b=>2 %h = ('a', 1, 'b', 2); # 意义同上，只是另一种更形象化的写法。 %h = ('a'=>1, 'b'=>2); #如果key是字符串，可以省略引号。下面这行和上面那行是一样的 %h = (a=>1, b=>2); # 用{}来访问 print "$h{a}/n&quo

HTML::TreeBuilder 这个解析模块使用了强大的 HTML::Element 模块。解析时，HTML::TreeBuilder模块把整个 html 文档转换成了 perl 的数据结构，可以进行任意的操作。 使用时先创建一个 HTML::TreeBuilder 对象。 use Data::Dumper qw(Dumper); $Data::Dumper::Indent = 1; use

注：本文参考Perl&LWP一书。 http://sendtowu.blog.163.com/    我的博客地址 本人英语水平有限，以下文字是基于我的理解写的，并非原文翻译（我也没那本事）。 前些日子需要从网页上提取文字信息，我决定用perl做这件事情。在网上搜了半天发现用HTML::TreeBuilder是一个很好的选择。于是从网上又找到了Perl&LWP这本书。看了两天终于看明白了，也写出了

HTML::TreeBuilder 这个解析模块使用了强大的 HTML::Element 模块。解析时，HTML::TreeBuilder模块把整个 html 文档转换成了 perl 的数据结构，可以进行任意的操作。 使用时先创建一个 HTML::TreeBuilder 对象。 use Data::Dumper qw(Dumper); $Data::Dumper::Indent = 1; use

http://blog.csdn.net/ganmao/archive/2008/04/02/2245918.aspx   [Perl][Mail]关于邮件的几个模块 收藏 这几天净捣鼓收取邮件的问题了,一开始用了些基本的模块,很多问题解决不了,查找了文档才有点眉目. 先说说环境: Cygwin+Perl5.8+Mail::POP3Client+MIME::Parser+MIME::Entity+

   1. 数字 (1).所有整数和浮点数都按double类型存储。例如0, -40, 0377， 0xFF，1.25， 255.0， -6.5e24 (2).可以插入下划线吧若干位数分开61_298_040_283_768(应该用逗号来分，但是逗号在perl中有其他意义) (3).运算：除法总是按浮点数运算.例如10/3=3.33333... 支持整数取模计算，例如10%3=1 乘幂操作用双星号

偶然发现perl中用print输出数组的2种情况： 1，print "@array"    此时数组各元素间以空格隔开。 2，print @array    此时数组连续输出，各元素间没有空格隔开。

1.子程序   1).创建子程序：使用关键字sub sub marine { print "Hello, world\n"; }     calling subroutines，使用&号 &marine (2).返回值：所有的子程序最后一个表达式的运算结果都当作返回值。所以子程序只有“”有用返回值“和无用返回值之分。所以让一个类似print的函数的结果来充当返回值十分糟糕。比较合适的是最后一行有个

my $ret=system("$cmd") >> 8;