-
Perl模块安装
所属栏目：[大数据] 日期：2020-12-16 热度：131
各种平台下Perl模块的安装方法 来源:http://www.linuxforum.net David lee (2001-04-21 18:11:53) Perl到了第五版增加了模块的概念，用来提供面向对象编程的能力。这是Perl语言发展史上 ? 的一个里程碑。此后，广大自由软件爱好者开发了大量功能强大、构思精[详细]
-
perl 文件检测操作
所属栏目：[大数据] 日期：2020-12-16 热度：168
? 文件检测操作 是否存在同名文件 -e 文件名 die "Oops! A file called '$filename' already exists.n" ? if -e $filename; 文件多少天内被修改 -M 文件句柄 warn "file is looking pretty old!n" ? if -M CONFIG 28; 文件〉100k，且90天内未被访问 if -s[详细]
-
perl 引用备忘
所属栏目：[大数据] 日期：2020-12-16 热度：144
//$ref是一个匿名数组引用，同时嵌套着匿名数组引用，匿名散列引用? my?$ ref ?=?[1,2,3,['a','b','c'],{ a = 1, b = 2, c = 3,},];? ? //访问其中的一个元素1 printf?"%dn",$ref- [0];? printf?"%dn",$$ref[0];? printf?"%dn",${$ref}[0];? ? //访问其中[详细]
-
perl 中hash表的清空操作
所属栏目：[大数据] 日期：2020-12-16 热度：60
刚在写perl代码的时候,突然发现写出的代码在 hash 统计值的时候有重复现象,通过查代码,发现是因为第一次统计完后,没有清空已有的hash,导致出现前面的情况. 以下说明一下hash的清空方式: %hash=();[详细]
-
用Perl动态建立ZIP压缩文件
所属栏目：[大数据] 日期：2020-12-16 热度：190
Perl提供大量处理不同文件格式的内置函数和外来模块。特别是，它可以通过Archive::Zip模块，动态建立和阅读ZIP压缩文件，而不必依赖外来工具和实用工具。本教程说明这个模块的基础理论和常用方法。 首先，在Perl提示符下运行以下命令下载并安装该模块（如果[详细]
-
PERL内置变量小结
所属栏目：[大数据] 日期：2020-12-16 热度：142
perl相对来说受关注的程度要低些，这里总结整理了PERL的部分内置变量，可以在程序中直接引用，希望对大家有所帮助。? $- 当前页可打印的行数,属于Perl格式系统的一部分? $! 根据上下文内容返回错误号或者错误串? $" 列表分隔符? $# 打印数字时默认的数字输出[详细]
-
perl 获取监控数据(续)
所属栏目：[大数据] 日期：2020-12-16 热度：174
上次的脚本只是将监控的数据展示在终端上，这次增加了一个功能：数据展示在终端的同时，存入到数据库中 code: #!/usr/bin/perl?-w? ? use?strict;? use?utf8;? use?LWP::Simple;? use?DBI;? ? my?$ dsn ?=? 'DBI:mysql:database=monitor;host=localhost;port[详细]
-
免费电子书列表
所属栏目：[大数据] 日期：2020-12-16 热度：148
在StackOverflow上，有人要打算收集个免费电子书的列表，结果很快就有人分享了一个列表。很不错，我就转过来了。原帖的地址在http://stackoverflow.com/questions/194812/list-of-freely-available-programming-books?（注意：有些连接可能会被墙掉） List o[详细]
-
perl 字符串数组，如何输出带引号的数组元素
所属栏目：[大数据] 日期：2020-12-16 热度：181
from：?http://stackoverflow.com/questions/739214/how-do-i-output-each-perl-array-element-surrounded-in-quotes 例如： /home/a/j/nomad2:cat 1#!/usr/bin/perlmy @strArray = ("abc","bcd");my $text = do { local {1}quot; = q","; qq"@strArray" };p[详细]
-
难怪Lisp不流行
所属栏目：[大数据] 日期：2020-12-16 热度：194
难怪Lisp不流行? Lisper社区有很多问题。 comp.lang.lisp 是我见过的最病态的新闻组之一。下面我将谈到其中的两个很严重的问题。 每隔两三年， comp.lang.lisp 就会展开一场关于为什么人们不爱用Lisp的大讨论。一次，Peter da Silva建议道，“应该开发一个像[详细]
-
4DTV
所属栏目：[大数据] 日期：2020-12-16 热度：101
4DTV stands for four-fold synonymous (degenerative) third-codon transversion. It represents a transversion in the third nucleotide position within four codons that does not result in a change in corresponding amino acid identity within the[详细]
-
用Perl实现网站自动登录
所属栏目：[大数据] 日期：2020-12-16 热度：102
#!/usr/bin/perl -w? use strict; use ? LWP; use ? HTTP::Request::Common ? qw(POST ? GET);? use ? HTTP::Cookies; use ? LWP::UserAgent;? use ? LWP::Simple;? use ? URI::URL; my ? $ua ? = ? LWP::UserAgent- new;? $ua- agent( "Mozilla ? 1.503 ? W[详细]
-
symbian v3模拟器开启后自动关闭
所属栏目：[大数据] 日期：2020-12-16 热度：96
在win7上配置symbianv3的开发环境，perl、sdk、 carbide c/c++都已经配置好了，写个helloworld 运行模拟器， 会出现模拟器打开后，瞬间又自动关闭了。也不报任何错误。试了网上的解决方法，都无效。 最终找到原因是模拟器必须要有声卡支持，有些机器不接耳机[详细]
-
第一个perl程序，庆祝一下
所属栏目：[大数据] 日期：2020-12-16 热度：128
今天在看《深入理解计算机系统》时遇到了一个perl写的例子，看起来也不难，就试着写了下，居然成功了，庆祝一下。下面是我的程序： #! /usr/bin/perlfor($i=0; $i@ARGV; $i++){ printf("%dt= Ox%xn",$ARGV[$i],$ARGV[$i]);} 程序很简单，就是一个10进制与1[详细]
-
perl 5.10出现Can't locate Net/Server/Fork.pm
所属栏目：[大数据] 日期：2020-12-16 热度：144
在centos6.0上面安装munin-node，但是启动时出现： Starting Munin Node: Can't locate Net/Server/Fork.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64[详细]
-
perl unicode
所属栏目：[大数据] 日期：2020-12-16 热度：89
耐心看完本文,相信你今后在unicode处理上不会再有什么问题. 本文内容适用于perl 5.8及其以上版本. perl internal form 在Perl看来,字符串只有两种形式 . 一种是octets,即8位序列,也就是我们通常说的字节数组. 另一种utf8编码的字符串,perl管它叫string. 也就[详细]
-
perl语言
所属栏目：[大数据] 日期：2020-12-16 热度：136
/????[详细]
-
Perl 闭包实现简单OO
所属栏目：[大数据] 日期：2020-12-16 热度：52
闭包是个神奇的东西，有很多奇妙地用法，用它可以来模拟实现OO 的一些功能。以下代码用闭包和消息传递的方法实现了OO 继承，重写。有兴趣可以看看Lisp CLOS 的实现方法，参考用来模拟实现另外一种Perl OO。可以看看Meta programming，Mouse 的OO 实现部分，[详细]
-
Perl中DBI、DBD::mysql模块的安装和可能出现的错误解决方法
所属栏目：[大数据] 日期：2020-12-16 热度：174
使用的软件版本 DBI-1.604.tar.gz DBD-mysql-4.006.tar.gz 建议使用以上 版本搭配，否则可能连接mysql错误 一、DBI的安装 ?wget http://www.cpan.org/modules/by-module/DBD/DBI-1.604.tar.gz ?tar -zxvf DBI-1.604.tar.gz ?cd DBI-1.604 ?perl Makefile.PL[详细]
-
bioinformatics perl useful
所属栏目：[大数据] 日期：2020-12-16 热度：154
BLAST use Bio::SearchIO;my $searchio=Bio::SearchIO-new(-file=$file_blast,-format='blast');while( my $result = $searchio-next_result ) { my $qid = $result-query_name(); my $qlen= $result-query_length(); my $did = $result-database_name(); wh[详细]
-
Perl练习之验证身份证程序
所属栏目：[大数据] 日期：2020-12-16 热度：164
近来对Perl有点兴趣，就写了个小程序，刚好有软工作业，于是分别用白黑盒测试了下，效果还是不错的！！！以后写网页表单验证可以用到。 说明下，身份证分一代证15位与二代证18位，其中前六位地区码，（这个没有验证）18位多的就是年份是四位，15位的年份两位[详细]
-
perl地址转换
所属栏目：[大数据] 日期：2020-12-16 热度：188
#!/usr/bin/perl -w #### 将十进制数转换成8为二进制 sub dectobin { ? ? substr(unpack("B31",pack("N",shift)),-8); } #### 将32位二进制转换成十进制 sub bintodec { ? ? unpack("N",pack("B32",substr("0" x 32 . shift,-32))); } #### 将二进制表示的 I[详细]
-
pack &unpakc
所属栏目：[大数据] 日期：2020-12-16 热度：117
函数名 pack 调用语法 formatstr = pack(packformat,list); 解说 把一个列表或数组以在实际机器存贮格式或C等编程语言使用的格式转化（包装）到一个简单变量中。参数packformat包含一个或多个格式字符，列表中每个元素对应一个，各格式字符间可用空格或tab隔[详细]
-
perl map
所属栏目：[大数据] 日期：2020-12-16 热度：150
perl的map函数 perl的map函数的使用： ? 语法 map EXPR,LIST map BLOCK LIST ? 定义和使用 对list中的每个元素执行EXPR或BLOCK，返回新的list。对每一此迭代，$_中保存了当前迭代的元素的值。 ? 返回值 如果返回值存储在scalar标量中，则代表map()返回数组的[详细]
-
用Perl读取一个目录下的所有文件名
所属栏目：[大数据] 日期：2020-12-16 热度：90
如果你想用Perl读取一个目录下的所有文件名，你应该怎么办呢？一般来讲，我喜欢用两种方法。 第一种方法，直接用 readdir 来读取目录句柄。 use warnings; use strict; my $dir = "./test"; my $file; my @dir; opendir (DIR,$dir) or die "can't open the d[详细]
