#/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

            Perl 最初的设计者为拉里·沃尔（Larry Wall），他于1987年12月18日发表。Perl借取了C、sed、awk、shell scripting以及很多其他程序语言的特性。 　　Perl 一般被称为“实用报表提取语言”（PracticalExtraction andReportLanguage），虽然有时被称做“病态折中垃圾列表器”(Pathologically

参考网页： http://man.ddvip.com/web/perl/perl1.htm #========================================================== #变量前面加$; #8进制以0打头;16进制以0x打头; $value1 = 047; $value2 = 0xFF; #==========================

1.可以提取html，等无规律的文本中的ip和端口。 cat proxycn.txt  |perl -lne ' print $1 if ( /((\d{1,3}\.){3}\d{1,3}:\d{1,5})/ ) '  2.提取log中的被访问网址的次数   cat /usr/local/apache/logs/error_log|perl -nle 

  #===================================================== 数组变量以字符"@"打头 @array = (1, 2, 3); @var = (11, 27.1 , "a string"); #=====================================================   #====================

for windows       will 2010-1-9     目录 1.      概述 ..............................................  4 1.1    安装环境 ........................................  4 2.      安装..................................

#version: 2011-2-15 #!/usr/local/bin/perl -w use strict; #use cwd; use diagnostics; use LWP::UserAgent; use LWP::Simple; #use Win32; #use Compress::Zlib; #use List::Util qw(first max ma

 use Asterisk::AMI;         my $astman = Asterisk::AMI->new(PeerAddr        =>      '127.0.0.1',                                         PeerPort        =>      '5038',                                

Tsung必须先安装erlang   1. 安装 erlang sudo apt-get install erlang erlang-src gnuplot perl5   2. 验证erlang是否安装成功 erl   3. 期望结果： Erlang R13B03 (erts-5.7.4)[source][64-bit][smp:2:2][rq:2][async-threads:0][hipe

也是在另外一个博客中看到的，不过现在在网上竟然搜不到了，还好我记录了下来：   如果用Carbide编译任意工程，都出现类似如下的错误： ===Build Command = /c abld build WINSCW UDEB -v=== C:/WINDOWS/system32/cmd.exe /c abld build WINSCW UDEB -v   make -r  -f "/Symbian

perldoc perldoc : 查看perldoc命令的用法 perldoc perl : 查看帮助的摘要         perl  Perl概要 (也就是这页)                                    perldelta         自上一版来的变化     perl5005delta      版本5.005中的变化     perl5004delta 

$HashTable{$key} = [@Array] 这个是赋值 @Array = @{ $HashTable{$key} } 这个是取值

算是perl里面一种数据结构的应用吧。 @ arry = (     {          key1= > 'a' ,          key2= > 'b'     } ) ; % hash = ( key1= > 'c' , key2= > 'd' ) ; #往数组里增加散列 push @ arry , /% hash ; #注意这里一定要引用一下 #遍历生成的散列的数组并打印 foreac

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

  说来话长了。。。。（咳嗽）   一句话说，你可以到http://qt.nokia.com/products/platform/symbian/找到相关文档，可以看看这个PDF whitepaper-qt-for-the-symbian-platform。 如果想快速开始，可以看QT QUICK START。 如果你不想看文档，那我就简单说几句吧。 =======================

无聊的时候想看小说，但是现在的小说排版很不好，就想“定长切分大字符串”重新排版一下，   找了一下资料，有两个好方法   用unpack已经可以了，具体的做法 @a = unpack("a25"X1000,$str); 上面的就是把$str分成1000个有25字符的字符串   正则表达式   @a = $str =~ /(.{25})/g;

       #加载库     use Win32::IEAutomation;     use Win32::IEAutomation::WinClicker;     use Win32::IEAutomation::Element;     my $ie = Win32::IEAutomation->new(vi