按类别查询搜索结果
关于关键词 的检测结果,共 141
mouse.rice | 2013-05-26 18:22:38 | 阅读(380) | 评论(0)
zhengsenlin888 | 2013-05-23 11:39:24 | 阅读(860) | 评论(0)
搬起数组引用的石头砸自己的脚下面的数组拥有5个元素:my @array1 = (1, 2, 3, 4, 5);print @array1; # "12345"下面的数组拥有一个元素(它刚好是对一个匿名的,拥有5个元素的数组的引用):my @array2 = [1, 2, 3, 4, 5];print @array2; # e.g. "ARRAY(0x182c180)"这个标量是对一个匿名的,拥有5个元...【阅读全文】
win13i122 | 2013-05-13 09:11:38 | 阅读(10) | 评论(0)
このような多くの軍事余剰店で迷彩Tシャツ、ジャケット、バンダナ、さらには女性のビキニのような項目を見つけることができます事実上苦悩のスエットシャツやパーカーちょっと。 ラリーヨルダン:何ケラレのような何か? ステファンザグリ:まあlee デニムシャツワンピ所を訊かれても、所を申しませぬ老いたる法師 この...【阅读全文】
euoda346u | 2013-05-10 14:13:50 | 阅读(100) | 评论(0)
  针对媒体报道称汉森四磨汤在少数药店被下架的现象,湖南省药监局副局长梁毅恒27日接受《经济参考报》采访时表示,"这仅是少数企业的自主行为。作为湖南省药监部门,正高度关注汉森四磨汤涉嫌致癌事件。经调查,我们认为汉森四磨汤审批程序依法合规,尚未发现产品质量问题,暂未考虑强制停止汉森四磨汤的销售。" 日前有媒...【阅读全文】
528126q1 | 2013-05-10 10:09:59 | 阅读(60) | 评论(0)
言葉さえ あなたが何を言った私たちを差別する? すべてですあなたはそのような小さなトークンに撮影しているので下駄や靴のように着用することができます。 サイズ ほとんどの女性は クラシックミニショートブーツのようなsのモデルはリー&低冊 ツイストジェル、インパクトガイダンスシステムと生物の形態に似たフィッ...【阅读全文】
BuTa丶潇 | 2013-04-26 16:58:09 | 阅读(1460) | 评论(0)
缓存服务器上有一个perl写的日志分析脚本,记录所有不重复的url。之后对squid进行目录刷新时,从记录下来的文件中查找匹配的url即可。不过这些天服务器老是出现负载报警,用top观察,这个url_parser.pl脚本一旦执行时,就占用了高达90%的CPU和40%的MEM。wc看存储的url.list文件,有大概4,000,000行;url.`date`.list当前有...【阅读全文】
ronghy013 | 2013-04-24 16:20:41 | 阅读(750) | 评论(0)
 我们在linux常常用到一个程序需要加入参数,现在了解一下 perl 中的有关控制参数的模块 Getopt::Long ,比直接使用 @ARGV 的数组强大多了.我想大家知道在 Linux 中有的参数有二种形式.长参数  –help短参数   -h也就是-和–的分别.–表示完整参数.-表示简化参数.在 Perl 的这个模...【阅读全文】
xmuyong | 2013-04-24 09:57:53 | 阅读(470) | 评论(0)
perl中想使用其它文件中的配置,可以使用require命令,egb.pl :   点击(此处)折叠或打开$abc = 5;a.pl:   点击(此处)折叠或打开require "b.pl";print "$abc\n";perl a.pl 的输出:  5...【阅读全文】
CUTianrui007 | 2013-04-21 13:42:38 | 阅读(2760) | 评论(0)
Perl VC Memory Process【阅读全文】
【PERL】 Perl解析PDF
CUTianrui007 | 2013-04-19 22:33:44 | 阅读(2900) | 评论(0)
CUTianrui007 | 2013-04-18 15:23:06 | 阅读(1900) | 评论(0)
Perl CANoe CANTrace【阅读全文】
BuTa丶潇 | 2013-03-25 10:32:42 | 阅读(1480) | 评论(0)
什么是记录?记录的缺省定义为:“行”。记录的定义由$/ 变量控制的,该变量存放所输入的记录的分隔符,因为换行符字符(根据定义!)是用来分隔行的,故其缺省值为串“\n”。例如,你可以用任何你想要替换的符号来代替“\n”。  $/ = ";";  $record = <fh>;  # 读入下一个用分号分隔...【阅读全文】
andersonyan | 2013-03-22 22:16:24 | 阅读(2930) | 评论(0)
一、IO::Socket简介IO::Socket, 它是socket通信的面向对象的Perl接口。IO::Socket下又有两个子类IO::Socket::INET与IO::Socket::UNIX.现在用的是IO::Socket::INET。它的步骤是:先调用new方法,然后就可以进行基本I/O操作(使用print与getline等基本I/O方法)了,最后调用close方法结束会话,那么整个SOCKET会话就算完...【阅读全文】
BuTa丶潇 | 2013-03-22 16:18:02 | 阅读(1350) | 评论(0)
localtime#   秒     分      时      天      月         年      星期    年天   #   0      1        2     ...【阅读全文】
kk861123 | 2013-03-15 23:32:03 | 阅读(0) | 评论(0)
递归算法在实际生活中大量被使用,很多问题可以很巧妙的被解决掉。例1: 楼梯有n个台阶,上楼可以一步上1阶,也可以一步上2阶,一共有多少种上楼的方法?斐波那契数列  第一项为1 第二项为2 也就是f(n)=f(n-1)+f(n-2),用递归求。#!/usr/bin/perl -wuse strict;print...【阅读全文】
BuTa丶潇 | 2013-03-13 15:41:52 | 阅读(1270) | 评论(0)
在unix/Linux中有一个强大的命令用来搜索文件中的模式,相信大家都比较熟悉,那就是grep,同样在perl中,grep也被用来进行搜索某个模式。下面我们来看一下grep的一个例子:#! /usr/bin/perluse strict;use warnings;my @array = qw(greyhound bloodhound hello hand);my @hound = grep /hound/,@array;print ...【阅读全文】
zhengsenlin888 | 2013-03-13 11:18:59 | 阅读(1950) | 评论(0)
#!/usr/bin/perl#author: zhengsenlin#date: 2013-03-13#desc: time piece use 5.016;use strict;use warnings;use autodie;use Time::Piece;my $t = localtime(1360780381);my $real_time =  $t->ymd . " " . $t->hms;say $real_time;【阅读全文】
damofeixue64 | 2013-03-09 11:58:41 | 阅读(570) | 评论(0)
use POSIX;foreach my $id(sort keys %serv){my $pid=fork();        if($pid==0)        {                alarm(10);     &nbs...【阅读全文】
ewayfly | 2013-02-28 22:17:05 | 阅读(1900) | 评论(0)
在使用 Gearman 做分布式处理时,各机需要注册一个独立的 job 作为信息反馈,为求方便,Gearman::Worker 脚本 register_function 代码又要通用,于是想到了使用各自的 ip 地址作为 job 命名。那么怎么在 worker 脚本里获取本机 ip 作为 func 呢?第一种办法,最简单的,调用 shell: $ip = `ifconfig eth0|grep -...【阅读全文】
wsxedcer | 2012-12-14 16:12:40 | 阅读(1217) | 评论(0)
采用 SMTP_auth 模块发送从mysql中取出的访问量。

#!/bin/env perl
use DBI;
use POSIX;
use Net::SMTP_auth;
use MIME::Base64;
use strict;【阅读全文】