勤劳的小蜜蜂

perl提供了一个简单的机制帮助格式化输出，产生简单的格式化报表。包括 1. 格式声明format； 2. 执行write格式声明如下：format  FormatName =Fied linevalue line.注意：1. 如果省略了FormatName，将会定义STDOUT2. 最后一行的英式句号不能丢。格式变量：

在perl中提供了大量的模块以及别人写好的模块，可以安装使用。1> 例如可以用use File::Basename,引入模块，并且可以直接使用这个模块里面的全部函数。    use File::Basename;my $dir    = "/var/www/html";my $bname  = basename $dir;print $bname."\n";outp

在perl中如果以@开头表示的是一列数据，更像复数形式，而以$开头，是表示某一个元素。1> 数组slice：use Data::Dumper;my @name = (1,2,3,4,5,6,7);@name  = @name[4,1,3];print Dumper(@name);Output:$VAR1 = 5;$VAR2 = 2;$VAR3 = 4;

Perl中的grep可以从列表中取出某些需要的元素。grep 第一个参数是一个块，其中$_依次为列表中的每一个值，返回一个Boolean(true/false)值。剩下的参数是相应的列表。grep 会首先计算表达式的值，这和foreach 循环一致。如果块中最后一个表达式的返回值为true，则这个元素会被返回。1> my @test = grep { $_ % 2} 1...10输出@te

use Net::SMTP;use MIME::Lite;my $DESTINATION = '3.3.3.3';my $DOMAIN1             = "pc1.com";my $DOMAIN2             = "pc2.com";my $MAIL_USR1           = 'test001';my $PSW1             

网上有很多介绍如何创建self-signed certificate的文章，但是有个缺点是每一步必须输入多个参数，写脚本的时候就得写成交互式的，为了写脚本的方便性，本文通过配置文件来创建一个self-signed certificate。1. 先创建一个文件夹：    mkdir /etc/httpd/ssl2.  cd /etc/httpd/ssl3. 写一个配置文件self_s

1. 先导入到curl的certificate文件中my $outfile  = '/tmp/logs/test.cer';my $tranfile = '/tmp/logs/test.pem';my $curlcert = '/etc/pki/tls/certs/ca-bundle.crt';导入之前需要将cer文件转换成pem文件：`openssl x509 -

在使用shell中的curl访问baidu时，返回值为乱码，可通过|iconv -fgb2312 -t utf-8方式解决：eg ：curl -v -m 10 -6 https://www.baidu.com|iconv -t gb2312 -f utf-8 2>&11> -v 会打印出curl的整个的debug信息2> -m 是设置timeout信息，这里设置的是10s

举例说明：1. 标量：    匹配成功返回1，匹配失败返回0；my $res = ($string=~/value='(\w+)'/);print "$res\n";output：12. 列表：use Data::Dumper;my $string = "hello perl";my @perls = $string =~ m/hello/ig ;

Net::Telnet模块中errmode可以设置出错时的处理方式：errmode：共有四个值，这里讨论两种，die和return$mode = $obj->errmode;  # 这种方式是获得当前的出错时的处理方式的值，默认是"die"$premode = $obj->errmode($mode); #这种方式是定义一个新的出错时的处理方式的值，并返回之前的值

在自动化测试时，我们经常用到的是Selenium的无界面运行。这个可以通过Xvfb实现。1. 首先要安装Xvfb，网上安装的教程也很多了，这里不赘述了。2. 启动Xvfb:Xvfb :16 -screen 0 1920x1200x24 &3. 这里做了几个实验叙述如下：1> 在不启动Xvfb的情况下，直接在VNC客户端或者带界面的客户端找个terminal运行如下程序perl

1. 创建引用：1.1 用反斜杠操作符：  $arr = \@ARGS;$arr = \$str;$hashref = \%hash;1.2 匿名数据1.2.1 匿名数组组合器：用方括弧创建一个匿名数组的引用：$arrayref = [1, 2, ['a', 'b', 'c', 'd']]; 通过$arrayref->[2][1] 访问数值“b”。eg:

use Net::INET6Glue::FTP;use Net::FTP;my $ip = '2001:1100::200';    my $ftpuser = 'anonymous';    my $ftppass = '-anonymous@';    my $ftp = Net::FTP->new ($ip, Debug => 1,Passive =>1, Timeout ...

use Net::OpenSSH;our $PC2         = "testPC2";our $pc2_ssh             = Net::OpenSSH->new(                                  "$PC2",                                  user     => "root",         ...

my $tool_elm = $driver->find_element("//select[\@id='current-diag-tool']");           # my @opt_elms = $driver->find_child_elements($tool_elm, "//option");            my @opt_elms = $driver->...

my $dir = '/test/test.pl';#my $dir = '/test';sub printdir{    my $dir = shift;    if(-f $dir){        print "$dir\n";        return;    }    if(! -d $dir){       print "this is not a dir\n";    }    o...

在网上看到一个perl模式匹配的题目，自己试了下结果，留个底：以下是一个文件的一部分：block1    LAYER1        a0=56, b0=147.345989944561, c0=11.0225098942223        a1=76, b1=174.434168420681, c1=253.89644118973        a2=42, b2=117.7749258651...

$/在perl中是输入记录分隔符，影响perl对"行"的理解。默认是换行符"\n".也可以定义为其他的内容：需要特别注意的是，$/的值是字符串，不是模式匹配。1> 不修改$/的内容，默认为"\n"eg: test.plopen WRI, "$content = ; #读取一行@lines = ;  #将读取的所有行放入@lines数组中。close WRI;

use Net::SMTP::SSL;  use MIME::Lite;  my  $mail_from = '[email protected]';  my  $mail_to = '[email protected]';   my  $mail_subject = "Perl smtps testing1\n";  my $username

use Data::Dumper;#插入排序sub insert_sort{    my (@arr) = @_;    my $n   = $#arr+1;    my $tmp;    my $i;    my $j;    if($n == 0 || $n == 1)    {        return "count: $n\nno need to sort.\n";    }    fo...

perl调用子进程的最简单的方式是用system。1. 返回值问题1> $out = system "date";    print "out: $out\n";output：Mon Jul 24 11:25:50 EDT 2017out: 0  （执行成功的时候，system返回的值是0，如果想要将命令的运行结果放入到变量$out中，要用`date`）

1. eval：eval是一个表达式，而不是if和while这样的控制结构，eval块发生严重错误时，eval块会停止执行，但程序不会崩溃。所以在程序中执行有可能引起严重错误的代码块，但又不想影响后续程序的执行时，可以把这部分代码块放入eval中。eva块正常执行，还是发生了严重错误，放在$@中，如果没错，$@为空，否则存放错误的原因。可以用$@的boolean值判断结果：print $@ i

在写自动化测试脚本时，如果想给firefox导入certificate，可以使用certutil工具。具体介绍可以看https://developer.mozilla.org/en-US/docs/Mozilla/Projects/NSS/Tools/certutilcertutil -A -n \"CN=SonicWALL Firewall DPI-SSL\" -t \"u,u,

直接在host上telnet XXXX是可以的，在pc1上直接运行tqtest也是可以的，但是从auto中运行脚本就会报错：Connection closed by foreign host.并且在/var/log/messages中显示：Aug 14 22:55:42 VTB93-PC2 xinetd[18654]: START: telnet pid=18688 from=13

linux中信号就是变成中遇到的中断，用来监控和控制其他进程发生了什么异步事件。信号只用来通知某一进程发生了什么，不会传递任何数据。LINUX中常见信号：=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=HUP        1        A  检测到挂起INT

这个函数通过调用 fork(2) 系统调用，从一个进程中创建两个进程。如果它成功，该函数给 父进程返回新创建的子进程 ID，而给子进程返回0。如果系统没有足够的资源分配一个新的 进程，那么调用失败并返回undef。文件描述符（以及有时候还有在那些描述符上的锁）是共享的，而所有其他的东西都是拷贝的——或者至少看起来是那样的。在早于 5.6 版本的 Perl 里，未冲刷的缓冲区在两个进程里都是没有

转自：http://blog.csdn.net/politefish/article/details/5567207首先说说 fork函数。这个函数用来创建一个进程，不过创建方法有些不太好理解。 先看下面的程序fork-test.pl。我是用perl写的，不过相同的功能也可以用 C 来完成。#!/usr/bin/perl#------------------------------

转自：http://blog.chinaunix.net/uid-26000296-id-3929863.htmlIn this article,let us discuss how to write Perl socket programming using theinbuilt socket modules in Perl.Perlsocket modules

use Sys::AlarmCall; $result = alarm_call($timeout1,$func1,@args1); @result = alarm_call($timeout2,$func2,@args2);

1. index：$where = index($big, $small);1> 从大字符串中查找小字符串，字符位置从0开始编号。如果子串不存在，返回-1.2> index总是报告子串出现的第一个位置，可以通过第三个参数来决定从哪一个位置开始查找。eg：$world  = "Howdy world!";$where1 = index($world, 'w');  //2

eval{ alarm 10; print strftime("%Y-%m-%d %H:%M:%S\n", localtime(time)); print "now begin to sleep 15s\n"; sleep 15;};

1. find：find dir -type f -name "*filename*"eg:[root@VTB93-PC2 ~]# find /var/www/html -name 'index2.html'/var/www/html/index2.html[root@VTB93-PC2 ~]# find /var/www/html -name 'index2.*'/v

转载自：http://blog.csdn.net/liangrockman/article/details/5674168bless有两个参数：对象的引用、类的名称。 类的名称是一个字符串，代表了类的类型信息，这是理解bless的关键。 所谓bless就是把 类型信息 赋予 实例变量。 程序包括5个文件：person.pm ：实现了person类 dog.pm ：实现了

在用Selenium::Remote::Driver进行界面测试时，会发现perl Selenium::Remote::Driver和http://search.cpan.org/~gempesaw/Selenium-Remote-Driver-1.12/lib/Selenium/Remote/Driver.pm给出的方法不全面，也不能够达到测试全部功能的效果。其实在use Selenium::R

my $match_str = 'Host:\s*www\.facebook\.com\s*Command:\s*GET\s*Policy:'.                            '\s*CFS\s*Default\s*Policy\s*Info:\s*\d*\(From\s*DPI\)'; if($logs =~ m/$match_str/is){        

下面通过两个示例，来更加明了的解释他们的区别：1. $home  = "/dev";    $out = system "ls -l $home";（双引号）    print "out: $out\n";output:    输出的是/dev文件夹下的内容；2. $home  = "/dev";   $out = system 'ls -l $home';（单引号）

quotemeta函数为预定义的字符前加反斜杠。很多时候在定义一个好一个字符串后，想在模式匹配中也用这个字符串去匹配，但是又担心里面有预定义的字符，比如.等，可以用quotemeta这个函数。eg:my $quote_ipv4 = quotemeta($remote_ipv4);

1. 方法一：dig $INTERNET_URL AAAA +short2. 方法二：nslookup

今天看到一个函数如下这么写的，开始不是很理解为什么这么写，也不是很明白这种参数值如何传入。eg：sub downloadPage(\%$)最后我的传入方式是：$SONICOS->wgetPage($name, $outfile);

转载自：http://www.cnblogs.com/tobecrazy/archive/2013/06/28/3161784.html1.q 相当于 单引号' '   转义字符无效     q可以使用（）[] {} // ,,2.qq 相当于" "       转义字符有效       qq可以使用（）[] {} // ,,3.qw  相当于 （'' ,'' ,'