Perl Perl,一种功能丰富的计算机程序语言,运行在超过100种计算机平台上,适用广泛,从大型机到便携设备,从快速原型创建到大规模可扩展开发。Perl借取了C、sed、awk、shell 脚本语言以及很多其他程序语言的特性,其中最重要的特性是它内部集成了正则表达式的功能,以及巨大的第三方代码库CPAN。
#/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)
时间:2020-08-13
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
时间:2020-08-13
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
时间:2020-08-13
http://code.activestate.com/lists/perl-win32-users/16655/
时间:2020-08-13
perl素来以其强大能力和灵活性著称。但还是有人说它是丑陋的。见仁见智而已。以下的小脚本改自Jan-Pieter,将打印我的英文名 --chase。 #! ##### Jan-Pieter Cornet ##### johnpc@localhost ##### perl ++$_;$!=$_+++$_;($:,$.,$,,$/)=$!=~/.(.).(.).(.)(.)./;$!=$_+$_;$*
时间:2020-08-13
(1)、 设定外部工具 选择Advanced > Tool Configuration 进行以下设置: ①、Command Line : C:/perl/bin/perl.exe "%F" ②、Working Directory : %P (有的人说,大小有有关系,我这样配置可以运行。具体可以UltraEdit的帮助 ③、Menu Item Name : Perl (随便设) ④、另外还
时间:2020-08-13
如果成为了注册开发商,就可以获得BREW Toolsuite 工具。它是一个工具箱,里面有apploader, BREWlogger, grinder,BREW signer 四个工具。其中BREW Signer 主要由标准认证的开发商直接使用,而由运营商管理的CP/SP一般不需要直接使用BREW Signer工具。 AppLoader是一个既支持图形用户界面有支持命令行操作的工具,通过串行连
时间:2020-08-13
原文: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(" .:-;!/>)
时间:2020-08-13
跟我从头学TAO编程系列 获取并编译TAO Stone Jiang 如果您对TAO有一定了解,却不知如何驾驭它,那请跟我来从头学学TAO编译。 如果您对TAO还不是非常了解的话,请跟我来,一起对TAO有一个初步的认识。 TAO简介 TAO (The ACE Orb) 是Douglas C. Schmidt教授领导下DOC (Distributed Object Computing (D
时间:2020-08-13
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
时间:2020-08-13
在字符串内用index
my $stuff = 'Howdy world!';
my $where = index($stuff,'wor');
print $where; # 6
my $stuff = 'Howdy world!';
my $where1 = index
时间:2020-08-13
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 $
时间:2020-08-13
9 Perl 中的正则表达式 正则表达式的三种形式 正则表达式中的常用模式 正则表达式的 8 大原则 正则表达式是 Perl 语言的一大特色,也是 Perl 程序中的一点难点,不过如果大家能够很好的掌握他,就可以轻易地用正则表达式来完成字符串处理的任务,当然在 CGI 程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。 ---------
时间:2020-08-13
在Perl中解析XML的方法最常见的就是使用 XML::DOM 和 XML::Simple了。 XML::DOM过于庞大,而且解析结果是一个DOM树,操作也不方便。对于小型且不复杂的XML文件,XML::DOM真是杀鸡用牛刀。这时就轮到轻便的XML::Simple上场了。 XML::Simple如其名,真的很简单。假设XML内容如下: <opt>
<user login="grep" f
时间:2020-08-13
Perl 最初的设计者为拉里·沃尔(Larry Wall),他于1987年12月18日发表。Perl借取了C、sed、awk、shell scripting以及很多其他程序语言的特性。 Perl 一般被称为“实用报表提取语言”(PracticalExtraction andReportLanguage),虽然有时被称做“病态折中垃圾列表器”(Pathologically
时间:2020-08-13
参考网页:
http://man.ddvip.com/web/perl/perl1.htm
#==========================================================
#变量前面加$;
#8进制以0打头;16进制以0x打头;
$value1 = 047;
$value2 = 0xFF;
#==========================
时间:2020-08-13
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
时间:2020-08-13
#===================================================== 数组变量以字符"@"打头 @array = (1, 2, 3); @var = (11, 27.1 , "a string"); #===================================================== #====================
时间:2020-08-13
for windows will 2010-1-9 目录 1. 概述 .............................................. 4 1.1 安装环境 ........................................ 4 2. 安装..................................
时间:2020-08-13
#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
时间:2020-08-13
use Asterisk::AMI; my $astman = Asterisk::AMI->new(PeerAddr => '127.0.0.1', PeerPort => '5038',
时间:2020-08-13
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
时间:2020-08-13
也是在另外一个博客中看到的,不过现在在网上竟然搜不到了,还好我记录了下来: 如果用Carbide编译任意工程,都出现类似如下的错误: ===Build Command = /c abld build WINSCW UDEB -v=== C:/WINDOWS/system32/cmd.exe /c abld build WINSCW UDEB -v make -r -f "/Symbian
时间:2020-08-13
perldoc perldoc : 查看perldoc命令的用法 perldoc perl : 查看帮助的摘要 perl Perl概要 (也就是这页) perldelta 自上一版来的变化 perl5005delta 版本5.005中的变化 perl5004delta
时间:2020-08-13
$HashTable{$key} = [@Array] 这个是赋值
@Array = @{ $HashTable{$key} } 这个是取值
时间:2020-08-13
算是perl里面一种数据结构的应用吧。 @ arry = ( { key1= > 'a' , key2= > 'b' } ) ; % hash = ( key1= > 'c' , key2= > 'd' ) ; #往数组里增加散列 push @ arry , /% hash ; #注意这里一定要引用一下 #遍历生成的散列的数组并打印 foreac
时间:2020-08-13
9 Perl 中的正则表达式 正则表达式的三种形式 正则表达式中的常用模式 正则表达式的 8 大原则 正则表达式是 Perl 语言的一大特色,也是 Perl 程序中的一点难点,不过如果大家能够很好的掌握他,就可以轻易地用正则表达式来完成字符串处理的任务,当然在 CGI 程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。 -------------
时间:2020-08-13
说来话长了。。。。(咳嗽) 一句话说,你可以到http://qt.nokia.com/products/platform/symbian/找到相关文档,可以看看这个PDF whitepaper-qt-for-the-symbian-platform。 如果想快速开始,可以看QT QUICK START。 如果你不想看文档,那我就简单说几句吧。 =======================
时间:2020-08-13
无聊的时候想看小说,但是现在的小说排版很不好,就想“定长切分大字符串”重新排版一下, 找了一下资料,有两个好方法 用unpack已经可以了,具体的做法 @a = unpack("a25"X1000,$str); 上面的就是把$str分成1000个有25字符的字符串 正则表达式 @a = $str =~ /(.{25})/g;
时间:2020-08-13
#加载库
use Win32::IEAutomation;
use Win32::IEAutomation::WinClicker;
use Win32::IEAutomation::Element;
my $ie = Win32::IEAutomation->new(vi
时间:2020-08-13