本脚本适用于apache的配置文件，进行批量建站。 #!/usr/bin/perl while(<>){                 chomp;                 my @p=split (/ /,$_);                 print <<SITE; <VirtualHost $p[2]:80>                 VirtualDocumentRo

1. chmop  功能: 去除字符串行尾的换行符  只能用在一个变量上,且该变量内容为字符串.  ps: 莫名其妙的功能. 2. shift & unshift  shift:截掉数组中第一个元素,unshift:向数组中从前端(左端)添加一个元素,使之成为数组的第一个元素. 3. reverse  功能:字符串反转.与bash shell中的rev功能一样 4. pop & push   对应

1.pack is the most commonly used 2.The grid geometry manager has been improved greatly with the release of Tk 8.0 and subsequent porting to Perl. 3.The place geometry manager is the most tedious to us

由于工作需要，需要批量建立网站，修改配置文件。开始时用sed去批量修改的，最后改装成perl了。 #!/usr/bin/perl while(<>){ chomp; @line=split(/\s+/,$_); open FH,"< /home/test/$line[0]/wp-config.php"; my @webfile; while(<FH>){         s/(ME|ER)', '

1、变量，数组 类型     字符   例子        用途 标量     $     $cents      一个独立的数值（数字或字串） 数组     @     @large      一列数值，用编号做键值 散列     %     %interest   一组数值，用字串做键值 子过程   &     &show       一段可以调用的perl代码 类型团   *     *st

      require File::Temp;       use File::Temp ();       use File::Temp qw/ :seekable /;       $fh = File::Temp->new();       $fname = $fh->filename;       $fh = File::Temp->new(TEMPLATE => $template)

1). What arguments do you frequently use for the Perl interpreter and what do they mean? 2). What does the command ‘use strict’ do and why should you use it? 3). What do the symbols $ @ and % mean whe

How do I install Net::SNMP               perl module ?            There are 2 ways of doing this             1) By CPAN (best)             on command line, as root :                              [your

      大家都知道在子程序中可以通过my ($a, $b) = @_;来获取参数，       但是当参数为一个的时候，经常有人会写成 my $a = @_;       这时候是标量上下文，$a的值始终为@_的个数，因此在你搞错的时候，perl无法提出警告。       想要获取入参时，要改为my ($a) = @_; 这才是列表上下文，        所以记住在获取子程序的参数时，无论有多

从网上看到的，感觉有点意思，有没有科学性先不谈，作为激励自己提高的动力，转载一下吧 一段 你刚开始进入这行，对PMOS/NMOS/BJT什么的只不过有个大概的了解，各种器件的特性你也不太清楚，具体设计成什么样的电路你也没什么主意，你的电路图主要看国内杂志上的文章，或者按照教科书上现成的电路，你总觉得他们说得都有道理。你做的电路主要是小规模的模块，做点差分运放，或者带隙基准的仿真什么的你就计算着发文

stat函数 perl下的stat函数和shell下的stat命令的功能基本一致，也是取得文件的各类具体信息： stat()函数返回一个数组，下面是数组各个元素的含义： 0     dev      设备号 驱动器号（C：通常是2，D：通常是3，等等） 1     ino      索引节号 总是0 2     mode     文件的方式 无 3     nlink    链接号 通常为0；Wi

  需求：perl脚本控制实验过程，由于不同的应用程序需要设置不同的实验环境，因此需要根据输入重置环境变量。环境变量的初始化方法为：source env.sh与source henv.sh，编译命令为$compile，执行命令为$run，要求必须在重置的环境变量里编译执行程序。      在perl脚本里通过system调用系统调用实现，但是system都是单独的进程，一旦返回后，其建立的环境也会

   经过这次建模，发现自己跟白痴一样    C++大部分都已经忘记了，其它语言一窍不通    我曾经想过，要是我会perl多好，虽然我很看不起Java，但此时我也不禁要想，我要是懂一些Java多好啊。    自己就是一个白痴，总是很狂妄，好像世界没有什么能难倒我一样    用大堆的时间去换取别人对自己一个高手的称呼，自己是多么白痴。       积极一点，这次建模还是有收获的：   我应该至少再

perl笔记之ping批量检查IP是否连通 2011-03-04 15:00:44 标签： perl ping net::ping 批量ping 原创作品，允许转载，转载时请务必以超链接形式标明文章 原始出处 、作者信息和本声明。否则将追究法律责任。 http://www.voidcn.com/article/p-anusolws-ca.html 由于有时候要批量的用ping检查服务器的IP是否可

已有模块： 说明： 以下例子代码的测试是在FreeBSD & Solaris下进行的，Perl版本为5.005_03。      (1) LWP::Simple, get()  (2) Time::HiRes, gettimeofday(), usleep()  (3) Net::FTP  (4) Expect  (5) XML::Simple, XMLin()  (6) Data::Dumper

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time()-3600*17); $year += 1900; $mon++; if($mon <10){ $mon='0'.$mon; } if($mday <10){ $mday='0'.$mday; }   if($hour <10){ $hour='0'.$

  1.介绍 首先说需求，要做一个基于CGI的VPN管理程序。由于之前从来没有用过perl，在初期也遇到了很多困难。这个项目进行了4个月，只有我和一位同事来实现，我负责界面，她负责数据处理。其实里面的东西很多，如果要写的话可能不只是几页纸能写完的。这里仅仅是挑出了一个具有代表性的环节做了介绍，那就是WEB开发通用的一个流程——MVC。 关于mvc的详细介绍，请看我前面的文章。 （1）MVC数据流程

1. my $sql="insert“; #不能匹配 if($sql=~m{/Q$re/E}){ print "succ1\n"; } #可以匹配 if($sql=~m{$re}){ print "succ1\n"; } 2.，如果标量为： $scalar = " ({"; 那么输入如下代码： $variabie =~ m" $scalar" ; 就等价于是说：$variable =~ m"({"

1 都是引入模块，语法：        use ModuleName;        require ModuleName;    ModuleName 不必加pm扩展名   2 区别之一，use语句是编译时引入的，require是运行时引入的。     3 区别之二，use语句所做的事情比require要多一点点,一条          use ModuleName; 语句大致相当于      

从网上看了一篇perl分词的程序，运行程序后发现，数字全部给分开了，例如，“2010年国家GDP是...”，运行程序后结果为“2 0 1 0 年 国家 G D P 是 ....”，文中“2010”是不应该分开的，我改进了这个程序，可以实现数字不分开，如下： #!/usr/bin/perl print "Begin Loading Dictionary.../n"; open(FileIn, "地名

# Calculate the KDJ value of an array of numbers. # @(K,D,J) = calcKDJ( # /@closepAry, /@lowpAry, /@highpAry, # $rsv_days, $Kdays, $Jdays, $preDaysCnt) # @closepAry --

其实都挺简单的东西。。。脚本都有了就不用自己写了。这个太爽了     myprofi 纯php写的一个开源分析工具.项目在 sourceforge 上. http://myprofi.sourceforge.net/     运行：    php parser.php -slow slow.log | more   就可以看到分析的东西了。。。     还有另外一个工具   mysqlsla ha

？  双引号中有“变量替换功能”，单引号没有？   变量替换：使用字符串时，将字符串内的变量名称替换成该变量当前的纸，数值也可以吧   ？ Perl的内置警告信息   ？ **的用法？ 乘幂操作符   ？ 试验  printf "%12f/n",6*7+2/3;             printf "%12.3f/n",6*7+2/3;             printf "%12.0f/n"

  夜深了，正在编译版本，有个编译错误怎么也想不清楚，和编译脚本有关系，突然想起我以前存了点关于perl的文章，这才想起要过来看看。 一看才发现原来我已经有一年多没有过来了。   这一年多发生了很多事情，有忙有闲，有得有失，一语难表。   再过2周左右老婆就要生了，祝福母子平安。   是应该常过来看看，看来好友都有更新，实在惭愧。

Perl模块 夜吻芭芘色 发表于2010-05-16 17:21 浏览(73) 评论(0) 分类： Perl      举报 纯属个人学习助记笔记，难免有疏漏之处，建议阅读原著《PERL实例精解》 =================================================================================== [模块] [描述] =======

perl Carp模块使用举例 perl编程 2009-08-20 19:16:42 阅读262 评论0   字号：大中小 订阅 近日分析extmail的源代码，看到Carp的perl模块，有些搞不懂，perldoc一把，了解了其用法，放在这里备忘！ Carp模块提供了carp(),croak(),confess(),cluck(),shortmess(),longmess()六个函数，这些函数产

题目：  12 34 56 78   24 65 87 90   76 11 67 87   100 89 78 99  求出文本中数字的最大、小值  我看很多的朋友都用shell的awk实现了，但本人对awk不是很了解，试着用perl简单的写了一下，也能实现 code: #!/usr/bin/perl -w 

  -----------------------------------看不到我----------------------------------------------- [精彩]做为脚本语言来说perl和python那个更有优势?   -----------------------------------看不到我---------------------------------------

在中国，最典型的事情就是为生计而忙碌，没有时间和精力为理想而奋斗，甚至被工作左右而无法向理想迈出一步。相信有很多人都有这种感受。有些自己喜欢的书，就像一个女人一样，无奈且安静的躺在书架上，等待你去阅读，然而，却无暇顾及……   工作中，多少时候，人们都是在公司的战略、领导的意见下，选择自己的发展方向。很少公司能够结合每个人的特点、兴趣爱好为其分配工作和指定个人发展路线。   我就是那样一个被发展了

在Perl看来, 字符串只有两种形式. 一种是octets, 即8位序列, 也就是我们通常说的字节数组. 另一种utf8编码的字符串, perl管它叫string. 也就是说: Perl只认识两种编码: Ascii(octets)和utf8(string) 本文内容适用于perl 5.8及其以上版本. perl internal form 在Perl看来, 字符串只有两种形式. 一种是octets