说明： 主要用于获取及检查DNS server 信息，确保其安全可靠运行。
根据使用需求可以调整sub 函数来取得想要的信息。
#!/usr/bin/perl use strict; use Net::DNS; #my $domain=$ARGV[0]; #my&nb
原创
2013-01-31 22:53:24
629阅读
#! /usr/bin/perl#this script is used to backup the dns files before modifiy #also if there is any mistaken,you can restore the filesuse strict;use warnings;use File::Copy::Recursive "dirco
原创
2010-05-13 23:04:26
530阅读
my @ss = ("a","b","c","d");print $ss[1] 显示为aprint @ss[1,3] 显示为a c@ss的标量为4if (@ss < 5){command}else{command}if($date == $today){command;}elseif($date == $christmas){command;}else{command;}prin
原创
2014-01-20 19:52:01
574阅读
一、system perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态. [root@AX3sp2 ~]# cat aa.pl #! /usr/bin/perl -w $file = "wt.pl"; system("ls -l wt.pl ...
转载
2021-07-16 10:05:00
1214阅读
2评论
今天学习了perl的哈希 哈希符号%%#!/usr/bin/perl perl头，如果不能运行则需要换成 #!/usr/bin/perl -wmy %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4); 哈希数a对应1、b对应2、c对应3、d对应4 也可写成my %ss = ('a',1,'b',2,'c',3,'d',4);
原创
2014-01-20 19:50:47
1008阅读
perl 编码风格：
1.K.R
2.GNU
3.BSD
采用K&R
转载
精选
2011-01-19 16:16:06
427阅读
x? 匹配 0 次或一次 x 字符串 /cg?i/ 找到 c 后面跟着 0个或是 1个 g ，再跟着 i 的字符串，如同/cg{0,1}i/ ...
转载
2017-01-10 17:33:00
694阅读
2评论
如果对于一个绝大部分内容是静态的网站，只有极少数的地方需要动态显示，碰巧你又了解一点perl知识，那么nginx + perl的结合就能很好解决问题。要想nginx支持perl脚本，在编译nginx时候需要如下参数：./configure --with-http_perl_module如果make时候出现如下类似错误： Can’t locate ExtUtils/Embed.pm in @INC
[oracle@jhoa 2]$ cat a2.pl foreach $key (keys %main::) {print "\$$key => $main::{$key}\n";}[oracle@jhoa 2]...
转载
2014-12-25 21:02:00
146阅读
2评论
1,一个相当常见的全局替换是缩减空白，也就是将任何连续的空白转换成单一空格：
s/\s+ //g;
2,将开头的空白替换成空字符串
s /^\s+//;
3,讲结尾的空白替换成空字符串
s /\s+$//
4,去除开头和结尾的空白符
s/^\s+|\s+$//g
原创
2013-02-20 16:00:07
592阅读
AAA
原创
2015-03-06 16:47:21
585阅读
\s+(?\d+(?:\.\d+)?)\s+1、命名分组格式为(?)，反向引用时用/k2、命名分组的匹配的结果存在在变量%+变量中，取命名分组值，$+{grp name}.3、反向引用也可以用/g1,/g{1},...
转载
2017-01-10 20:28:00
253阅读
2评论
Another good feature of Perl is RE, PerlRE.
In Perl, RE usually means patten, a match (or unmatch) of some characters template.
The patten can divide any characters into two parts: match and unmatch
原创
2012-11-15 21:03:45
937阅读
从开始的BSP使用C语言，到后期人工智能使用Python，以及常用的shell工具，到现在使用了点perl，稍微总结一下，这几种语言的特点。如果，以后有一种自己不太用的到的，到某一次突然需要使用的时候，捡起来快一些。其实所有的程序需要完成的功能模块都比较相似：比如： 程序解析(用’;'分号还是语句的缩进关系)； 数据类型(整型、浮点型、字符/字符串及class等，数据声明使用及作用范围)； 文件处
$- 当前页可打印的行数,属于Perl格式系统的一部分
$! 根据上下文内容返回错误号或者错误串
$” 列表分隔符
$# 打印数字时默认的数字输出格式
$$ Perl解释器的进程ID
$% 当前输出通道的当前页号
$& 与上个格式匹配的字符串
$( 当前进程的组ID
$) 当前进程的有效组ID
$* 设置1表示处
$_ 俗称perl的老地方，当你的程序中未告知使用哪个参数或者变量时，perl就会自动使用$_中的值，比如for(1..10){
print ;
}这里print没有指定参数，所以它就会使用$_，那$_里面是什么呢？每次循环$_的值都会变化，所以$_实际上就是1 .. 10这10个值，所以上面的代码打印的结果就是12345678910$!当且仅当某个函数调用失败
转载
2023-06-08 17:02:54
76阅读
问题：具体的操作步骤，是windows环境下的，要求说明具体点，具体的操作步骤和运行命令?解答：首先确定你已经装好了PERL。Windows的话，应该是用Active PERL吧。其次，看你想怎么运行。如果你是用记事本或者UltraEdit 32这样的编辑器写的程序，应该需要在命令行运行。在Win XP下，从开始菜单选择运行，输入cmd，回车，进入命令行界面。然后更改目录到你要运行的程序所在的文件
转载
2023-07-03 16:02:20
124阅读
过滤重复字符[plain] view plaincopy
1. perl -e '$_=<STDIN>; @in = split; if (@in < 100){ @out = grep {! $hash{$_}++ } @in; print join "\n", @out;}'
统计全文单词数 （同awk '{for (i=1;i<=NF;i++){a[$i]++
perl 常用法
常用正则表达式
匹配中文字符的正则表达式： [\u4e00-\u9fa5]
评注：匹配中文还真是个头疼的事，有了这个表达式就好办了
匹配双字节字符(包括汉字在内)：[^\x00-\xff]
评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）
匹配空
USE LIB的用法-就是像@INC数组中添加某模块的安装路径 这样就可以正确使用此模块
2009-02-18 10:09
你是否觉得perl中关于模块的文档有些难 懂？好的，这里有一个世界上最简单的模块，它将用于展示(demonstrate)Exporter模块所有的特性，另外还有一段使用这个模块的脚本。同 时，我们也会给出一个有关于@INC的简短说明，最后，还要讲一下有些关
