随风奔跑的专栏

最近在写一个关于agile的持续构建测试环境的perl script，主要是需要从服务器下载到最新的build，然后分布到各个client机器上。 把最新的build文件分布到client机器上，我们最常用的也就是ftp了，下面先讲讲应用ftp的情况。    在windows上我们可以把ftp的操作命令写到一个config文件里面，然后利用ftp -s：ftp.conf命令执行即可获得最新的bui

<br />本来想着做一个android小应用，但想着好久没用perl了，而且不用界面，就先练练手。<br />大家可以等等看我的android小程序。<br /> <br />#!/usr/bin/perl -w use strict; use LWP; my $tel = $ARGV[0]; if (!defined $tel){ print "请输入电话号码."; exit(-1); } print "您的号码是：".$tel."/n"; my $browser = LWP::U

具体看注释： #! /usr/bin/perl -wuse strict;use Data::Dumper;use Win32;#hash 引用使用my $this = { name => zhenghaitao, company => unknown,};print $this->{name};print "/n";$this-

#! /usr/bin/perl -w use strict;use Tk;my $main = new MainWindow;$main->Label( -text => Print file )->pack;my $font = $main->Entry( -width => 10 );$font->pack;my $filename = $main->Entr

#!/usr/bin/perl -w use Tk;$mw = MainWindow->new;$mw->Label( -text => "Hello, World!" )->pack;$mw->Button( -text => "Exit", -command => sub { exit } )->pack;MainLoop; 

当我们存储少量数据的时候，我们不必使用数据库，那样有点杀鸡焉用牛刀的感觉。 perl中的dbm就是一种存储较小数据的方式。其实他就是一个hash。在使用的时候，也是按照hash的操作方式。极为轻便，简单。为我们保存较小数据提供了一种方式。 底下是一个例子。 #! /usr/bin/perl -wmy (%answers, $subject, $info, $patter

 我每天都从服务器上去取最新代码，但是很恶心的是每次他都生成一个备份垃圾文件，看上去很不爽，老显示在我的project里面，看的我眼花缭乱。所以写个perl脚本来清理这些文件，这些垃圾文件都是有规则的，所以可以有个正则表达式。这样我就可以根据这个正则表达式去去过滤删除垃圾文件。 #! /usr/bin/perl -wprint "I want to delete all the w

今天看到了在参数中传递引用的一段文章，其中讲到了一个问题，自己以前还碰到过，不过最后是通过其他办法绕过去了。今天看到这个问题可以通过传递参数引用来解决。所以打算写下来。希望可以帮到大家。 我就直接引用这本书中的例子了。 就是如果我们在参数中传递两个数组的时候，会出现一些问题。 sub getarrays{    my(@a,@b) = @_; . .

#!/usr/bin/perl -wuse strict;print "Directory to search: ";my $dir = ;chomp $dir;print "Patter to look for: ";my $pat = ;chomp $pat;print $pat;my ($file);opendir(DH, $dir) || die "Cannot open $dir: $!

当我们在下载时候，一般都有一个默认的文件夹，因为指定目录比较麻烦，而且也不方便，一般都使用了默认目录。但长久下去默认目录就比较复杂，所以得对其进行管理。下面是我写的将音乐下载文件夹的文件转移到我的音乐文件夹的一段代码，很简单，当然稍微修改也可以管理其他文件，只要修改后缀就可以了#!/usr/bin/perl -wuse strict;my $root = "C://My data//music";

今天在suse9上使用我之前写的那个邮件发送脚本，不知道为什么就是连接不上smtp服务器，让我很是郁闷，其他机器都是可以的，这台机器各方面也很正常啊，一直都没找到原因。然后突然想到linux不是有个发送邮件的命令吗，man了一下sendmail，没想到突然开到其中有一段perl写的代码，里面讲述了perl中的一些方法，来调用sendmail实现发送邮件。然后试了一下，果然可以，而且比我之前那个脚本

我们在代码中常常需要获取本机或者远程主机的ip信息。所以必须动态的获取，perl中提供了相应的函数。 #! /usr/bin/perl -wuse strict;use Socket;use Sys::Hostname;my $host = hostname;#output the host name;print "Host name: ",$host,"/n";m

前几天我发表了关于持续构建的一篇文章，里面讲到wget的应用。今天当我在suse9 32b下使用的时候，发现不对劲，提示说这个命令的某些选项不存在，如-ftp--user，-ftp--password，经过查看，发现suse9 32b下的wget版本是1.9.1，这些命令选项确实不存在，然后看了看我经常使用的suse10 32，发现其版本是1.10.2，这些选项是有的。这就出问题了，难道我要根

在perl中当我们需要创建一个进程的时候，一般都是用比较简单易用的system，exec，或者``(反单引号），这几种用法都非常简单，但是他们不能结合一些操作系统中的管道等高效的东西。所以在perl中还有一种创建进程的方法，就是把进程当做文件句柄那样使用。open(WHOPROC, "who|"); # open who for reading观察这句代码，当其中我们不写|的时候，who被认为是一

由于我们的项目的测试平台很多，包括windows，linux平台。linux提供了一个解压的unzip命令，但是windows下比较麻烦，win 2000下面没有提供任何命令用来解压文件，xp中提供unzip这个命令，但是在vista中又没有这个命令了。这就很麻烦，不能单纯依靠操作系统提供的命令来解压文件，所以我写了一个脚本用来处理这种需要。在linux下我就不写了，只要用unzip命令就可以了，

最近在做自动化测试环境的自动部署，其他都很顺利，但是同事反应说我们并不知道你是否安装成功，而且也不知道你安装的最新版本是什么，不是很方便，所以我就想试着用perl来写一个自动发送邮件的脚本，但最新的build安装成功的时候，则发一封邮件通知测试人员，这样就全程自动化了。哈哈，底下是本人的实现。主要是通过perl提供的Net::Smtp包来写的。#! /usr/bin/perl  -wuse Net

查找子串：index（）和 rindex（）这两个函数用来在字符串中查找字串。rindex功能同index相同，只不过就是从后面开始找。主要有两种用法，index（$string,$subString);index($string,$subString,$skip);$skip参数表示跳过多少字符，用于指定开始位置，对rindex()函数来说是从字符串最后开始计算的。substr（）参数：subs

用过perl的人都知道，当出错的时候很难发现，最好的方法是通过调试来查找错误，perl的调试类似gdb调试，通过使用perl的调试命令在命令行下调试，不过现在也有很多IDE支持perl调试，比如eclipse的epic插件就支持可视化调试。关于perl的调试我的经验不多，今天看到perlChina上的一个篇关于perl调试的文章，讲的比较全面，彻底，特分享一下。Brians Guide to S

#! /usr/bin/perl -w use File::Find; my ($keywords,$filename,@directories_to_search) = ("movie.detail","message.properties","E:\\source\\c_server\\J2ME\\telenav60_server\\movie\\config\\device"); find(