文本处理中经常需要将字符串中一些符合匹配的子串捕捉，新发现了一个简单的方法。 老方法： $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);

#!/usr/bin/perl -w open (HFile,"/usr/develop-program/conf.txt") || die "Open error $!";   # 打开固定路径文本,文本中字符以标点符号，空格隔开 @file=<HFile>;    #将文本中文件读入到数组中 chomp @file;       ＃去掉回车 close (HFile);    ＃关闭文件 fo

我已经上传到百度文库中：   http://wenku.baidu.com/view/bdbd8aeae009581b6bd9ebfe.html   看这个版本吧，CSDN的显示简直没法看 ：-）

 How to Debug Perl Library and Scripts?   1. Changing @INC - where Perl loads its modules (http://www.wellho.net/mouth/588_Changing-INC-where-Perl-loads-its-modules.html)  The @INC array is a list of

1.使用perl自带的Long.pm模块, use Getopt::Long;         Getopt::Long::GetOptions(             'c=s'  => \$community,  //c是传递的参数标识符，s代表传递的参数是字符串，参数将传递给$community这个变量             'H=s'  => \$host_name,         

目录   第一章   项目技术背景介绍 1.1 项目背景 1.2 技术背景 1.3词汇解释 第二章   测试方案的设计 2.1 需求分析 第三章   测试工具的设计与实现 3.1 测试工具的设计 3.2 测试工具的实现 3.2.1 Linux服务器的远程控制 3.2.2 应用程序的启动与停止 3.2.3 测试时间的控制 3.2.4 本地命令的执行 3.2.5 远程文件的拷贝 3.2.6 测试结果写

perl预定义变量 $ARG $_ - The default input and pattern-searching space. $<digit> - Contains the subpattern from the corresponding set of parentheses in the last pattern matched. $MATCH $& - The string matc

UC 转大写 LC 转小写

perl内置变量2008-01-04 16:55以下为个人所知的Perl内置变量,如有缺,请发帖添加: $- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $& 与上个格式匹配的字符串 $( 当前进程的组ID $) 当前进程的有效组ID

cp -r /usr/local/rrdtool/lib/perl/5.8.8/i386-linux-thread-multi/* /usr/lib/perl5/5.8.8/i386-linux-thread-multi/

在Genesis中使用Perl的配置 2007-03-22 Tag： 版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明 http://genesis2000.blogbus.com/logs/4826361.html Perl Scripts 1. csh.exe2. cd c:/perl/lib/core3. h2ph.bat * sys/*4. 会在c:/perl/site/l

Perl 获得当前路径 1、有两种方法： 1. use Cwd; my $dir = getcwd; #$dir中即为当前目录的完整路径信息。 2. my $dir = $ENV{'PWD'}; #ENV是一个散列，用于存放环境变量。PWD是Linux的环境变量，表示当前所在目录。   my  $path=`pwd`; print $path,"/n";   2、STAF的Lib库路径信息 该程序

$-  --   当前页可打印的行数,属于Perl格式系统的一部分 $!  --   根据上下文内容返回错误号或者错误串 $"  --   列表分隔符 $#  --   打印数字时默认的数字输出格式 $  --   Perl解释器的进程ID $%  --   当前输出通道的当前页号 $Content$amp;  --   与上个格式匹配的字符串 $(  --   当前进程的组ID $)  --  

========= 比配次数计算 (字符重复出现次数)================ @matches = "balata" =~ /.a/g;  # now @matches = ("ba", "la", "ta") 用数组存下比配到的信息； $count = scalar @matches         # now $count = 4;  scalar 取出数据长度，就是比配到的次数；

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

一般写shell脚本多台服务器之间进行操作要打通密码，就是公私钥认证方式。如果用Perl的Net::SSH::Perl和Net::SCP::Expect库不需要创建公私钥，直接用原有ssh帐户就可以实现部署脚本的自动化。 安装方法： cpan -i Net::SSH::Perl cpan -i Net::SCP::Expect 注：Net::SSH::Perl依赖gmp，我在mac os

Perl中数组的使用-- 下一节 　　数组是perl里面一种非常有用的东西。我们可以通过下面的方式定义数组： 　　　@a=("hello","great","cipher"); 　　　@b=(1,2,3,4,5,6,7); 　　@b的定义方式还可以写成下面的形式： 　　　@b=(1..7); #这种方式对于需要1到10000的初始值得数组真实太重要了。　　　 　　　@b=("a".."z"); 　

perl: warning: Falling back to the standard locale ("C"). perl: warning: Setting locale failed. perl: warning: Please check that your locale settings:         LANGUAGE = (unset),         LC_ALL = (uns

Perl模块是重用代码的好方法，但是在调用自定义模块时的路径问题困扰了我许久。之前一直都是通过在代码中直接将自定义模块所在的绝对路径写入到@INC数组来解决的，以下示例，加入perl脚本放置在/opt/perl/bin，而自定义模块放在/opt/perl/lib目录： BEGIN { push (@INC,'/opt/perl/lib'); } 或者 BEGIN { un

[转]编译perl程序全过程 Peralty as 技术文章收集 on 2007, January 19, 9:29 AM Jump to comments » 3727 views 信息来源:neeao's blog writer: demonalex[at]hackermail[dot]com 前言：写本文的主旨是为了演示如何编译一个perl程序。 流程 安装解释器/编译器-》测试源码可行性-

Perl哈希表的存取和常用函数 http://developer.51cto.com  2010-07-16 13:57  wunderup  csdn.net  我要评论(0) Perl哈希表是一种数据结构，和数组类似，可以将值存放到其中，或者从中取回值。但是，和数组不同的是，Perl哈希表的索引不是数字，而是名字。   本文和大家重点讨论一下Perl哈希表的概念，Perl哈希表是一种数据结构，

Log是常用模块，看了下Perl自带的Log::Message模块，不太明白，从网上找了一个简单的Log模块，看下他的实现方法，可以从中学习一些方法和技巧。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ package Log::FileSimple; use 5.006; use strict; use warnings;

比如说： @array = ('ray', 'loca', 'simon', 'ray'); 这里，我们想删除‘ray’这个元素。 列出几种方法： 1. 用grep函数。 函数名 grep 调用语法 @foundlist = grep (pattern, @searchlist); 解说 与同名的UNIX查找工具类似，grep函数在列表中抽取与指定模式匹配的元素，参数pattern为欲查找的模式，

fedora 14   "what is the location of the directory of c header files that match your running kernel"   yum install gcc make kernel-devel perl kernel-PAE-devel

fedora 14 fed "what is the location of the directory of c header files that match your running kernel" yum install gcc make kernel-devel perl kernel-PAE-devel

  use Win32::GuiTest qw(:ALL);       use Win32::IEAutomation;       use Win32::IEAutomation::WinClicker;       use Win32::IEAutomation::Element;      

 一、标量和字符串函数 1. chop和chomp     chop VAR: 去除VAR的最后一个字符，返回去除的字符，VAR省略的时候是$_     chop LIST: 去除LIST中的每个元素的最后一个字符，返回最后一次去除的字符     chomp是chop的安全版本，它去除有$/决定的结尾字符串，并返回去除的字符个数 2. chr和ord     chr NUMBER: 返回NUMBE

http://www.freeswitch.org/node/50   These are the applications that have been contributed by members of the FreeSWITCH™ community have donated back to the Asterisk community, where many of them origin

大概在四五年前就看过这本书，不过当时了解的还不是很深，很多概念还不明白。现如今，由于工作需要用到Perl，重新温习一下。这之间断断续续也从perldoc了解了更多的东西，有了一定的基础，很高兴当初的选择，终于有用到的时候了。 Chaper 1: Referrence General Array and Hash: @array = qw( ...... ) %hash  = qw( ......