按类别查询搜索结果
关于关键词 的检测结果,共 105
我还是小小明 | 2014-08-09 17:29:03 | 阅读(1230) | 评论(0)
my $a="mkdir first ";my $ret = system($a);if ($ret) {        print "$ret\n";}【阅读全文】
constantyy | 2014-06-03 17:23:30 | 阅读(1360) | 评论(0)
# Functional style use Digest::MD5 qw(md5 md5_hex md5_base64);  $digest = md5($data); $digest = md5_hex($data); $digest = md5_base64($data);  # OO style...【阅读全文】
constantyy | 2014-06-03 14:09:18 | 阅读(720) | 评论(0)
ActivePerl DBI Pacage : "DBD-mysql" http://search.cpan.org/dist/DBD-mysql-4.022/#使用DBI 包use DBI;#连接databasemy $db = DBI->connect("DBI:mysql:$database:$hostname:$port",$user,$pw,{'RaiseError'=>1});#第三个参数指错误信息输出的\1#关闭连接$db->disconnect();...【阅读全文】
constantyy | 2014-06-03 11:53:21 | 阅读(640) | 评论(0)
获取当期目录 : use Cwd;my $dir = getcwd;【阅读全文】
zhiyue5654 | 2014-05-28 23:05:11 | 阅读(360) | 评论(0)
身份行为适用身份法。因意思表示是单方还是双方或者多方而不相同又称为法官法 可以使用为行使地役权而于供役地上设置的工作物。如发现州宪法和法律或联邦法律与联邦宪法相抵触。【阅读全文】
我还是小小明 | 2014-05-14 15:26:52 | 阅读(1120) | 评论(1)
#!/usr/bin/perluse strict;my %hash;my @array = (1..10,5,20,2,3,4,5,5);#grep 保存符合条件的元素@array = grep { ++$hash{$_} < 2 } @array;print join(" ",@array);print "\n";【阅读全文】
Soo_What | 2014-04-21 10:50:58 | 阅读(880) | 评论(0)
原帖地址:http://fuzhong1983.blog.163.com/blog/static/1684705200972071642946/近日分析extmail的源代码,看到Carp的perl模块,有些搞不懂,perldoc一把,了解了其用法,放在这里备忘!Carp模块提供了carp(),croak(),confess(),cluck(),shortmess(),longmess()六个函数,这些函数产生的错误信息与warn(),die()...【阅读全文】
skylway | 2014-03-26 11:24:55 | 阅读(1420) | 评论(0)
安装perl模块 对于新手来说是一个比较麻烦的事情,现在有一个比较好的工具可以解决这个问题,正题如下: wget  http://xrl.us/cpanm  --no-check-certificate -O cpanmchmod u+x cpanm设置环境变量:export PERL_CPANM_OPT="--prompt -v -l /home/mengalong/local  --mirror http://mirrors.sohu.c...【阅读全文】
skylway | 2014-03-19 17:55:32 | 阅读(1380) | 评论(0)
Perl——哈希的创建和引用语法 创建'引用'仅有两种方法,使用它也是两种。 创建引用 创建规则 1 如果你在一个变量前加一个'/'号,你就得到了这个变量的'引用'。 $aref = /@array; # $aref 保存着指向@array的'引用' $href = /%hash; # $href 保存着指向%hash的'引用' 当你把'引用'保存在...【阅读全文】
【PERL】 Typeglob
Soo_What | 2014-03-19 15:12:23 | 阅读(610) | 评论(0)
Typeglob 在文档中定义为 "Perl uses an internal type called a typeglob to hold an entire symbol table entry." 如果定义了 $a, @a, %a那么 *a 里就保存了以上三个变量地址  (\$a, \@a, \%a)点击(此处)折叠或打开[myang@mnsdev13:~/demo]$ cat alias.pl...【阅读全文】
Soo_What | 2014-03-17 16:31:36 | 阅读(1020) | 评论(0)
The hash %SIG contains signal handlers for signals.-- SIG 是一个公用的存储信号的一个哈希变量点击(此处)折叠或打开[myang@mnsdev13:~/demo]$ cat sig.pl#!/usr/local/bin/perl5$SIG{TERM} = $SIG{INT} = \&yoursub ;$i = 1;...【阅读全文】
murdercool | 2014-03-08 14:15:16 | 阅读(0) | 评论(0)
1.json点击(此处)折叠或打开use JSON;my @a=(1,2,3,4,5);my $json=JSON->new;my $a=$json->encode(\@a);print $a,"\n";my @b=@{$json->decode($a)};print "@b"2.gearman(work部分   ...【阅读全文】
wxm8000 | 2014-02-12 23:00:09 | 阅读(4190) | 评论(0)
用perl实现的aix lspath远程检查脚本【阅读全文】
旋转小马 | 2014-01-27 14:52:41 | 阅读(1290) | 评论(0)
最近使用xml进行通讯,使用自定义的协议,最先发送xml文件的长度,然后是xml文件。使用perl发送一个整数还是比较麻烦的,这和python一样,所以python 3才有了bytes字节类型。use IO::Socket::INET;# auto-flush on socket$| = 1;# create a connecting socketmy $socket = new IO::Socket::INET (  &nb...【阅读全文】
mfc42d | 2014-01-23 14:06:53 | 阅读(7640) | 评论(1)
最近使用xml进行通讯,使用自定义的协议,最先发送xml文件的长度,然后是xml文件。使用perl发送一个整数还是比较麻烦的,这和python一样,所以python 3才有了bytes字节类型。use IO::Socket::INET;# auto-flush on socket$| = 1;# create a connecting socketmy $socket = new IO::Socket::INET (  &nb...【阅读全文】
wand65 | 2014-01-20 11:32:47 | 阅读(580) | 评论(0)
1.9.1 问题描述有两个字符串,输出的时候看起来相同,但是在测试的时候他们确实不等的,甚至有时候测试时显示他们并不是相同的长度,如何让Perl按照相同字符串处理这些字符呢?1.9.2 解决方案如果有某种意义上的等值字符串,至少这些字符串中的一部分包含Unicode组合字符,对于这些字符串,我们不去直接比较...【阅读全文】
zhiyue5654 | 2014-01-13 17:21:36 | 阅读(420) | 评论(0)
为什么说社会主义事业不能离开马克思主义政党的领导?教材-加强党的先进性建设的重要意义是什么?教材-答:社会主义革命建设与改革,都离不开马克思主义政党的领导。社会主义革命的发动坚持发展和胜利,离不开马克思主义政党的宣传教育与引导;社会主义革命目标的制定要求与实施的具体步骤,需要马克思主义政党正确地把握...【阅读全文】
wand65 | 2014-01-08 15:01:09 | 阅读(430) | 评论(0)
1.5.1 问题描述程序代码中需要用Unicode中的名字来调用一些特殊字符而不用担心其编码1.5.2 解决方案在代码大开头加上use charnames ,接下来就可以在字符串常量中任意插入转义符“\N{CHARSPEC}了1.5.3 讨论使用 charnames 编译指示可以让你使用符号名称来代替Unicode的字符。\N{...}是静态常量也就是...【阅读全文】
mfc42d | 2014-01-03 15:26:20 | 阅读(3650) | 评论(0)
最近一直在写webmin的模块,发现webmin不好调试,只好使用syslog。use Sys::Syslog;                        # all except setlogsock()use Sys::Syslog qw( :DEFAULT setlogsock);my $remotehos...【阅读全文】
mfc42d | 2014-01-02 11:16:23 | 阅读(3460) | 评论(0)
删除一个ip地址my $strTemp = "";open(FILE,"/etc/steelport/round-robin.txt");while(<FILE>){                if(/192.168.9.196/)         {        ...【阅读全文】