-
Perl学习笔记(1)正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：91
Perl 程序中，正则表达式有三种存在形式，他们分别是： 匹配：m/regexp;/ （还可以简写为 /regexp;/ ，略去 m） 替换：s/pattern;/replacement;/ 转化：tr/pattern;/replacemnt;/ 这三种形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配，在整条语句中[详细]
-
Perl学习笔记(2)默认变量，子函数，
所属栏目：[大数据] 日期：2020-12-16 热度：86
####################默认变量 ?默认变量$_与@_ $_ is known as the "default input and pattern matching space". In other words,if you read in from a file handle at the top of a while loop,or run a foreach loop and don't name a loop variable,$_[详细]
-
Perl学习笔记(3)变量定义，关系运算符
所属栏目：[大数据] 日期：2020-12-16 热度：171
####################关于关系运算符 数字值比较：==,,,=,=,!= ；注意用数字值比较运算符比较字符串时，字符串当作0处理； 字符串比较： eq,gt,lt,ge,le,ne；(undef被当作假来处理) 逻辑运算符：,||,和! ； and,or,not等。 需要注意的是，字符串比较不能用等[详细]
-
Perl学习笔记(4)文件的输出输入
所属栏目：[大数据] 日期：2020-12-16 热度：63
1. 文件名前面没有""表示读文件 open(FILE,"C:test.txt"); while(FILE) { ? ? ? ? chomp; ? ? ? ? print "$_n"; } close(FILE); 2. 文件名前面有一个""表示写文件，并覆盖原有内容 open(FILE,"C:test.txt"); print FILE "大家好n"; close(FILE); 3. 文件[详细]
-
Perl学习笔记(5)glob的使用
所属栏目：[大数据] 日期：2020-12-16 热度：198
######################read()函数中的offset参数含义 read (FILEHANBD,$var,$length,$offset) read 函数有四个参数，最容易误解的是$offset 它的含义看官方文档，解释是: An OFFSET may be specified to place the read data at some place in the string o[详细]
-
Perl学习笔记(6)值为数组的数组，值为hash的hash，自定义的行分
所属栏目：[大数据] 日期：2020-12-16 热度：172
####################值为数组的数组 open(In,"sina.txt"); while(In) { chomp(); @URLS=/href="([^"]+)"/g; push(@ALLURLs,@URLS); } close(In); foreach(@ALLURLs) { print "$_n"; } ####################值为hash的hash #词=词与标注=词与标注与属性值[详细]
-
Perl常用函数集
所属栏目：[大数据] 日期：2020-12-16 热度：69
?一、进程处理函数 ?? 1、进程启动函数 ?? 2、进程终止函数 ?? 3、进程控制函数 ?? 4、其它控制函数 二、数学函数 三、字符串处理函数 四、标量转换函数 五、数组和列表函数 六、关联数组函数 一、进程处理函数 1、进程启动函数 函数名 eval 调用语法 eval(s[详细]
-
[精华]Perl+中的正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：59
?[精华] Perl 中的正则表达式 原文出自： http://www.chinaunix.net/jh/25/159388.html 9??? Perl 中的正则表达式 正则表达式的三种形式 正则表达式中的常用模式 正则表达式的 8 大原则 ??? 正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，[详细]
-
梦寐以求的编程语言
所属栏目：[大数据] 日期：2020-12-16 热度：128
[发表人]： 程序员 [发表时间]：2011-09-29 07:48 AM 注： 本文转载自《程序员》 Paul Graham 是公认的“硅谷创业之父”，对于许多技术问题，他有自己独到的见解。在本文中，他分享了何谓理想的编程语言。 我的朋友曾对一位著名的操作系统专家说他想要设计一[详细]
-
【总结】Perl技巧
所属栏目：[大数据] 日期：2020-12-16 热度：142
?1. Perl超时机制? eval { my $tmpCmd="ping 192.168.0.1"; local $SIG{ALRM} = sub { alarm 0; die "TIMEOUT"; }; alarm(10); my $startCmdResult = qx($tmpCmd); alarm(0); }; if ($@ =~ /TIMEOUT/) { print "ping timeout";} ? 2. 忽略SIGCHLD信号,避免产[详细]
-
perl 特殊变量
所属栏目：[大数据] 日期：2020-12-16 热度：104
?$- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $ 与上个格式匹配的字符串 $( 当前进程的组ID $) 当前进程的有[详细]
-
innotop 的安装和使用
所属栏目：[大数据] 日期：2020-12-16 热度：169
http://www.voidcn.com/article/p-neqaepom-bat.html 最近学习innotop工具，自己搜集整理了一下网上的各种资源，小弟也没做什么创造性的工作，汇总整理。 这里使用的是innotop-1.8.0，1.8版本的可以监测远程服务器，而1.6版本不可以。 一. 安装 ? INNOTOP是[详细]
-
Perl Class::Accessor 分析
所属栏目：[大数据] 日期：2020-12-16 热度：97
最近学习Perl OO,MetaClass 相关的模块，简单的分析一下Class::Accessor 这个模块。 功能： 自动实现字段的存取定义函数。 示例： package Foo; use base qw(Class::Accessor); Foo-follow_best_practice; Foo-mk_accessors(qw(name role salary)); #script[详细]
-
cPanel如何安装perl 模块
所属栏目：[大数据] 日期：2020-12-16 热度：183
cPanel安装perl模块 可以在（ Perl Module 安装程序—— 找到 Perl Module——搜索 ）需要的模块，并安装[详细]
-
Perl TK 抽屉式组件
所属栏目：[大数据] 日期：2020-12-16 热度：194
转自：http://bbs.chinaunix.net/thread-3591026-1-1.html #!perl -w use Tk; $mw = MainWindow-new; $mw-title( 'Tk' ); $FRAME_L = $mw-Frame-pack(qw/-side left -fill both/); $WIDGET_F = $FRAME_L-Labelframe()-pack(qw/-side top -fill both -expand[详细]
-
Perl调试器的用法[Z]
所属栏目：[大数据] 日期：2020-12-16 热度：192
? 缺省的Perl调试器就是perl解释器本身，另外还有图形界面的调试器。因为我们在开发 程序时一般都使用telnet访问服务器，所以这里主要介绍一下缺省的命令行调试器的用法。用 -d 命令行选项启动Perl解释器，例如 perl -d test.pl 即进入Perl调试器的交互界面[详细]
-
DES With Perl
所属栏目：[大数据] 日期：2020-12-16 热度：145
原本是要放在 NTLM Protocol - 2. DES 编码 这篇文章中,但不知是不是该章内容太大还是啥么原因,怎么也传不上,就拉出来单独放着. #!/usr/bin/perl -w# DES algorithm - reference to http://orlingrabbe.com/des.htmsub iteration_handle { my ($bitstring,$p[详细]
-
perl语言socket连接
所属栏目：[大数据] 日期：2020-12-16 热度：119
#!/usr/bin/perl use Socket; use DBI; use strict; ? ? ?#########连接socket部分 ? ? #CONNECT ? ? my???($host,$addr,$msg); ?????$host = inet_aton($info{'host'}); ?????socket($SOCK,AF_INET,SOCK_STREAM,getprotobyname('tcp')); ?????$addr = socka[详细]
-
perl的文本替换功能
所属栏目：[大数据] 日期：2020-12-16 热度：65
文件一： ?xml version="1.0" encoding="UTF-16"?StringTable version ='0' Language name ='English' String _locID ='18103 ?symbol='cStringPlaceProblemCost''New Traps and Weapons/String String _locID ='18104'Levels/String String _locID ='19000'[详细]
-
Perl获取机器hostname,ip(跨平台)
所属栏目：[大数据] 日期：2020-12-16 热度：97
#! /usr/bin/perl -w use strict; use Socket; use Sys::Hostname; my $host = hostname;#output the host name; print "Host name: " , $host , "/n" ; my $name = gethostbyname ( $host ); my $ip_addr = inet_ntoa( $name ); print $ip_addr , "/n" ; pr[详细]
-
Perl篇：获取操作系统的信息
所属栏目：[大数据] 日期：2020-12-16 热度：84
http://www.cnblogs.com/royenhome/archive/2010/07/21/1782019.html 1、获取操作系统版本信息 1 use Win32; 2 strict; 3 ( $OS_string , $OS_major $OS_minor $OS_build $OS_id ) = Win32 :: GetOSVersion(); ? 2、获取系统目录 1 my $systemdir = Win32 ::[详细]
-
nfsen安装问题
所属栏目：[大数据] 日期：2020-12-16 热度：77
nfsen安装碰到如下问题： 一： 错误提示 Can't locate RRDs.pm in @INC (@INC contains:./libexec ./installer-items /etc/perl /usr/local/lib/perl/5.10.1/usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10/usr/share/per[详细]
-
Can't locate Time/HiRes.pm in @INC错误的处理方法 perl安
所属栏目：[大数据] 日期：2020-12-16 热度：115
最近要测试mysql日志分析工具，安装完成后遇到了perl脚本库不全问题，如下所示： ? # mysqlsla Can't locate Time/HiRes.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i3[详细]
-
Could not perform immediate configuration on 'perl-m
所属栏目：[大数据] 日期：2020-12-16 热度：103
debian安装软件包时出现： E: Could not perform immediate configuration on 'perl-modules'.Please see man 5 apt.conf under APT::Immediate-Configure for details. (2) ? 解决： apt-get install perl -o APT::Immediate-Configure=0[详细]
-
perl模块之MIME::Lite发送有附件的邮件
所属栏目：[大数据] 日期：2020-12-16 热度：161
#!/usr/bin/perl use strict; use warnings; use MIME::Lite; #这个用来组织邮件信息内容 use Pod::Usage; use Getopt::Long; use MIME::Base64; use MIME::Words qw/:all/; use Authen::SASL; my $options = { ??????? from??? = 'bot', }; GetOptions( $op[详细]
