第三章 列表和数组 1. 列表是标量的有序集，数组是包含列表的变量，严格讲列表是指数据，数组是其变量名。  数组的索引从0开始，依次递增。  列表和数组可以包含任意数量的元素。最少含有0 元素，最多可以填满你的可用内存。  当然，下标可以是任何能返回数值的表达式。如果其值不为整数，则自动将其转换为小于它的最大整数  值：  $number = 2.71828;  print $fred[$numb

虽然现在各种版本控制工具大行其道，但是有时候还是需要使用相对原始一些的办法提交补丁，制作补丁其实很简单，用 diff 命令，加上 -u 参数生成带有上下文的 unified 格式的 diff 文件，就是一个 patch 了。可是最容易忘记的地方就是后面的参数是先写未修改过的版本呢还是先写修改过的版本。我自己每次都记不住，要去查 man page 。正好今天收到一个 patch ，发现里面的修改都是

#/usr/bin/perl use strict; use Expect; open(PASSWD,"1") or  die print "cann't open 1:$!\n"; while(<PASSWD>){ chomp; my $name=$_; my $exp=new Expect; my $command="vpasswd $name"; $exp->spawn($command)

Perl IDE之Perl Express和Eclipse+EPIC+PadWalker 8/15/2010 11:42:34 AM 一 初级 1）Notepad++ （编辑和查看Perl） 2）Komobo Edit （编辑和执行Perl）   二 高级 A  Perl Express 主页：http://www.perl-express.com/ 使用： 很简单(但不如eclipse+epic

7/29/2010 1:47:00 PM perl 执行一个系统命令(svn info)，发一封邮件   use.NET::SMTP; system("svn info http://x.x.x.x>>num1"); open (FILE1,"num1")||die "Couldn't open num1"; $num1=<FILE1>;#print $num1; $num2=<FILE1>;#p

http://code.activestate.com/lists/perl-win32-users/16655/

perl素来以其强大能力和灵活性著称。但还是有人说它是丑陋的。见仁见智而已。以下的小脚本改自Jan-Pieter，将打印我的英文名 --chase。 #! ##### Jan-Pieter Cornet ##### johnpc@localhost ##### perl ++$_;$!=$_+++$_;($:,$.,$,,$/)=$!=~/.(.).(.).(.)(.)./;$!=$_+$_;$*

（1）、 设定外部工具  选择Advanced > Tool Configuration 进行以下设置： ①、Command Line : C:/perl/bin/perl.exe "%F"  ②、Working Directory : %P   (有的人说，大小有有关系，我这样配置可以运行。具体可以UltraEdit的帮助 ③、Menu Item Name : Perl (随便设)  ④、另外还

如果成为了注册开发商，就可以获得BREW Toolsuite 工具。它是一个工具箱，里面有apploader, BREWlogger, grinder,BREW signer 四个工具。其中BREW Signer 主要由标准认证的开发商直接使用，而由运营商管理的CP/SP一般不需要直接使用BREW Signer工具。   AppLoader是一个既支持图形用户界面有支持命令行操作的工具，通过串行连

原文：http://www.geeks3d.com/20091127/ascii-art-mandelbrot-fractal/       在 Ken Perlin’s homepage 页面上我发现了一段诡异的代码：     main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x =0;x++<84;putchar(" .:-;!/>)

跟我从头学TAO编程系列 获取并编译TAO Stone Jiang   如果您对TAO有一定了解，却不知如何驾驭它，那请跟我来从头学学TAO编译。 如果您对TAO还不是非常了解的话，请跟我来，一起对TAO有一个初步的认识。   TAO简介   TAO (The ACE Orb) 是Douglas C. Schmidt教授领导下DOC (Distributed Object Computing (D

perl中如何将按hash key值排序 如果是按ASCII码排序，则代码如下： foreach my $key ( sort { $hash{$a} cmp $hash{$b} } keys %hash ) {     my $value = $hash{$key}; # do something with ($key, $value) }   如果是按数字小到大排列，则代码如下： foreac

   在字符串内用index      my $stuff = 'Howdy world!';  my $where = index($stuff,'wor');  print $where;   #  6     my $stuff = 'Howdy world!';  my $where1 = index

 1 #!/usr/bin/perl  2 use Inline CPP;  3 package MyParser;  4 use base "HTML::Parser";  5  6 my $src='src.htm';  7 my $allow=0;  8 my %hashwords;  9 my @arraywords; 10 11 sub trim 12 { 13         my $

9    Perl 中的正则表达式 正则表达式的三种形式  正则表达式中的常用模式  正则表达式的 8 大原则         　　正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在 CGI 程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。 ---------

在Perl中解析XML的方法最常见的就是使用 XML::DOM 和 XML::Simple了。 XML::DOM过于庞大，而且解析结果是一个DOM树，操作也不方便。对于小型且不复杂的XML文件，XML::DOM真是杀鸡用牛刀。这时就轮到轻便的XML::Simple上场了。 XML::Simple如其名，真的很简单。假设XML内容如下： <opt> <user login="grep" f