-
安装perl5.10.0
所属栏目：[大数据] 日期：2020-12-16 热度：180
? ?目的：本人使用的Linux系统CentOS5.8中最新的perl版本是5.8.8。学习perl语言入门，一般情况下够用，但是在使用given-when这种结构的时候，就必须指定5.10版本(use 5.0.10.0;) ? ?步骤： ? ?1. wget http://www.cpan.org/src/perl-5.10.0.tar.gz ? ?2. tar[详细]
-
Perl 多线程模块 Parallel::ForkManager
所属栏目：[大数据] 日期：2020-12-16 热度：192
Perl 多线程模块 Parallel::ForkManager 一个简单的并行处理模块。这个是用来对付循环的多线程处理。 放在循环前面。 Table of Contents 1 Synops内容简介 1 ?Synops内容简介 程序的格式如下： 1: use Parallel::ForkManager; 2: 3: $pm = Parallel::ForkMan[详细]
-
2010-02-02 10:01 perl 中 $1 $2 类似变量的含义
所属栏目：[大数据] 日期：2020-12-16 热度：195
以数字为名的变量保存的是上一次匹配操作（/pattern/）中，第n个小括号中的原符号所匹配内容。 ? $1就是第一对小括号中的原符号所对应的匹配内容。 ? $2就是第二对小括号中的原符号所对应的匹配内容。 内插功能： ? $str ? = ? "aaa4zzz7bbb"; ? $str ? =~ ?[详细]
-
2009-07-24 14:17 PERL 语言中的q,qw,qr,qx,qq （zz
所属栏目：[大数据] 日期：2020-12-16 热度：150
PERL 语言中的q,qw,qr,qx,qq......符号用法总结 在perl语言中，有两个特殊而常用的符号qq qw,分别解释如下： qq{foobar}的意思为意思为双引号字符串，可内插变量 相当于 "foobar" qw{foo bar}的意思为用空格分解字符串，得到列表，相当于如下语句 split(' ',[详细]
-
Perl 与 Python 之间的一些异同
所属栏目：[大数据] 日期：2020-12-16 热度：171
关于 Perl 与 Python 的起源和特点 Perl 是 Practical Extraction and Report Language 的简称，由 1987 年 Larry Wall 创建，最初的目的是为了在 UNIX 上方便处理报表，经过长期的发展已经成为一种全功能的程序设计语言，当前最新的版本为 Perl5.14.1，Perl[详细]
-
perl下关于文件读写，hash统计频数并排序的总结
所属栏目：[大数据] 日期：2020-12-16 热度：198
很少用到perl，这次用了一把，特意记录一下关于文件读写和hash统计频数并排序的总结： 1.文件读写 perl下读写文件非常简单：，首先是读： #打开文件 open(FILE_NAME,$_)||die "can't open part-m file"; 一行一行读出来并处理： while (FILE_NAME) ??{ ???ch[详细]
-
perl文件编码处理问题
所属栏目：[大数据] 日期：2020-12-16 热度：50
在看perl时，发现文件编码处理问题不是很懂。BG了下，发现还是有点东东，so，收藏下： --------------------------1----------------------------------- 一个脚本用于分析应用程序的日志,但是在这些日志文件中,有的编码是utf-8的,有的编码是gbk的.对于utf-8[详细]
-
PERL 中引用
所属栏目：[大数据] 日期：2020-12-16 热度：156
在perl4中，hash表中的value字段只能是scalar，而不能是list，这对于有些情况是很不方便的，比如有下面的数据： Chicago,USA Frankfurt,Germany Berlin,Germany Washington,USA Helsinki,Finland New York,USA 我们想要按国家将城市分类，每个国家后面对应城[详细]
-
perl中字符串比较
所属栏目：[大数据] 日期：2020-12-16 热度：187
? 之前看教程时看到过，但看完就无视了，写程序时不等于还是用的!=。 ? ? ? ? Apache虽然检查到错误，但只写在了错误日志里，还是继续执行了后面的语句，结果是无视了这个比较，跳过了一个$condition变量的赋值，而后面又是用这个$condition作为数据库查询的[详细]
-
perl取文件大小 .
所属栏目：[大数据] 日期：2020-12-16 热度：166
perl取文件大小 my @args = stat ($filename); my $size = $args[7]; stat()函数返回一个数组。下面是数组各元素的含义。 0 dev 设备号 驱动器号（C：通常是2，D：通常是3，等等） 1 ino 索引节号 总是0 2 mode 文件的方式 无 3 nlink 链接号 通常为0；Windo[详细]
-
Perl 聊天室
所属栏目：[大数据] 日期：2020-12-16 热度：190
如何用PERL编写聊天室服务器程序 来源: ?ChinaUnix博客 日期：2006.05.03 21:55 (共有 条评论) ?我要评论 还是来自Linux知识宝库的文章，什么时候也能写个聊天系统呢，kaka~在这里我将告诉你如何来写一个小型的聊天室服务程序,可能会很简陋,有很多要扩展的地[详细]
-
Perl Socket通信
所属栏目：[大数据] 日期：2020-12-16 热度：124
服务端： use IO::Socket::INET;use Data::Dumper;use Storable; my $server_port=7899;my $server = IO::Socket::INET-new(LocalPort = $server_port,Type = SOCK_STREAM,Reuse = 1,Listen = 10) # 或者 SOMAXCONNor die "Couldn't be a tcp server on port[详细]
-
perl的LWP模块简单介绍
所属栏目：[大数据] 日期：2020-12-16 热度：153
LWP::Simple 功能 1. 如何在Perl中使用该模块？ use LWP::Simple; 2. 如何获取一个页面内容？ my $content = get(’http://www.yahoo.com.cn’); get函数把从www.yahoo.com.cn上获取得页面内容全部赋给$content这个变量，如果获取失败将返回一个undef的值。[详细]
-
Anyevent::SNMP实例
所属栏目：[大数据] 日期：2020-12-16 热度：70
? 之前不知道为什么不成功. ?重新找了新环境.安装Net::SNMP和AnyevenSNMP AnyEvent-SNMP-6.0 Net-SNMP-5.2.0 Net-SNMP-v6.0.1 Net-SNMP5.2的版本获取有问题,不过不影响使用. use strict; use AnyEvent::SNMP; use Net::SNMP; use Data::Dumper; # just use N[详细]
-
anyevent::snmp(2) 扫描地址段
所属栏目：[大数据] 日期：2020-12-16 热度：138
前面实现了单个ip的anyevent,现在可以实现地址段的扫描.这个和ping很类似. #/usr/bin/env perl#测试anyevent::snmp 并发use AnyEvent;use AnyEvent::SNMP;use Net::SNMP;my $cocurrent = 100; # 并发数#my @todoList = map { "192.168.6." . $_ } (1 .. 254)[详细]
-
perl中shift与unshift的用法解析
所属栏目：[大数据] 日期：2020-12-16 热度：74
Perl array shift()unshift() function - Quick Tutorial ? ? ? ? ? ? ? ? ? ? SHIFT $ITEM = shift(@ARRAY); Perl's shift() function is used to remove and return the first element from an array,which reduces the number of elements by one. The fi[详细]
-
perl对于encode的用法
所属栏目：[大数据] 日期：2020-12-16 热度：185
本地实例： my $sql=MF; chomp $sql ; ? ? ?# $sql中含有中文乱码 close MF; $sql=encode("gb2312",decode("utf8",$sql)); ? ?#先将$sql解码decode为utf8,再使用encode编码 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 为GB2312输出 print $sql,"n"[详细]
-
perl删除文件中的重复行
所属栏目：[大数据] 日期：2020-12-16 热度：184
perl删除文件中的重复行???????????? 2011-09-28 19:59:57 ?????????? 分类： Python/Ruby 如果有一个文件data有10G大，但是有好多行都是重复的，需要将该文件中重复的行合并为一行，那么我们需要用什么办法来实现 cat data |sort|uniq new_data #该方法可以[详细]
-
Perl开发自定义Nagios监视内存插件（nrpe端使用）
所属栏目：[大数据] 日期：2020-12-16 热度：152
功能说明： 脚本已经用在实践环境中，放到nrpe远程被监控端，用来实时监控远程主机内存。 监控内容包括： free剩余大小； 总内存大小； free剩余内存所占的百分比； 开发语言： perl 使用说明： 提供三个参数，第一个是Memory表示针对内存进行监控，以后还提[详细]
-
perl closure
所属栏目：[大数据] 日期：2020-12-16 热度：113
#!/usr/bin/perl use strict; use warnings; sub make_saying { ? ? ? ? my $salute = shift; ? ? ? ? my $newfunc = sub { ? ? ? ? ? ? ? ? my $target = shift; ? ? ? ? ? ? ? ? print "$salute,$target!n"; ? ? ? ? }; ? ? ? ? return $newfunc; # Retur[详细]
-
perl中的内置变量($系统变量)
所属栏目：[大数据] 日期：2020-12-16 热度：50
$. ? ?跟踪当前记录号 .. ? ?列表构建操作符 ?my @number=(1..100); $/ ? ?输入记录分隔符 ?默认：$/='n',在进行文件读操作FILE时，一次读取一行时就会引用。可以修改，但修改后记得改回，修改会得到一个警告，也会提高BUG查找的难度。 $ ? ?输出记录分隔[详细]
-
如何学习perl
所属栏目：[大数据] 日期：2020-12-16 热度：67
http://csk1103.blog.163.com/blog/static/85911409200861021910176/ 做为一名sa,为了方便工作，最近开始学习perl,下面是转载的别人写的关于学习perl的建议，觉得不错。 关于学习Perl Perl是一门很有用的语言，可以用它来做很多事。然而，它也仅是一门语言，[详细]
-
perl 模式匹配总结
所属栏目：[大数据] 日期：2020-12-16 热度：60
正则表达式―― perl 模式匹配 From: http://blog.csdn.net/utopia_wang/article/details/1531285 补充：http://www.regexlab.com/zh/regref.htm Practiacl Extraction and Report Language 一． 模式匹配操作符 1 ． tr/ / / ? 替换操作符不支持正则表达式[详细]
-
perl, 匹配汉字, 中文处理步骤
所属栏目：[大数据] 日期：2020-12-16 热度：173
1. ?My code #!/usr/bin/env perluse Encode qw(encode decode);while (DATA) { ($name) = /.*(.*)/; $name = decode('gb2312',$name); print if $name =~ /p{Han}/;}__DATA__-----------------------------------use Encode;use constant { TRUE = 1,NEX[详细]
-
perl中utf-8编码的处理
所属栏目：[大数据] 日期：2020-12-16 热度：59
为了比较方便，考虑这样一个应用：把html页面中的所有非汉字字符全部去掉。 这里顺便告诉大家一个秘诀，只要文本被perl 按正确编码解释后，利用/w就可以匹配一个字母、数字、_、汉字，这个特性是不是很方便，所以我们只要用如下两次正则表达式就可以去掉所有[详细]
