-
POE初学者入门简介
所属栏目：[大数据] 日期：2020-12-16 热度：114
一、What Is POE,And Why Should I Use It? 什么是POE? 为什么要使用POE? Most of the programs we write every day have the same basic blueprint: they start up,? they perform a series of actions,and then they exit. This works fine for programs?[详细]
-
perl autoflush
所属栏目：[大数据] 日期：2020-12-16 热度：144
假设你要完成一项工作（比如编译连接生成一个大的工程），可能需要花很长时间，你需要生成log日志文件，默认的状态下，你要等到工程结束的时候才 能看到日志文件的内容。这个比较烦，如果想让perl立即输出的话怎么解决呢？可以借助IO::Handle中的autoflush函[详细]
-
perl 用参数传递URL地址进行HTML解析
所属栏目：[大数据] 日期：2020-12-16 热度：161
? #!C:/perl64/bin/perl ?require LWP::UserAgent; ? ?my $ua = LWP::UserAgent-new; ?$ua-timeout(10); ?$ua-env_proxy; ? ?my ($url_new,$url_old) = @ARGV; ?my $response = $ua-get($url_new); ?die $response-status_line unless ($response-is_success[详细]
-
Perl eval语句
所属栏目：[大数据] 日期：2020-12-16 热度：63
perldoc?http://perldoc.perl.org/functions/eval.html do?语句做了类似的功能： do?'filea'?==?eval?`cat?filea` ; 形式 1.eval?Expression 2.eval?BLOCK "1"在运行时编译和执行 "2"在编译时编译，运行时执行 因此，"1"编译多次，运行多次。"2”编译一次，[详细]
-
Perl 语言入门课后习题
所属栏目：[大数据] 日期：2020-12-16 热度：102
#!/usr/bin/perl#use strict;use 5.010;use warnings;use strict;sub total{my $lost;foreach (@_) {$lost+=$_;}$lost;}#my @nnaa=qw/1 2 3 4 5 1 1 2 4 1 2 4/;#print total(1..1000);sub above_average{my $total; foreach (@_) { $total+=$_; } my $avera[详细]
-
perl的File::Tail模块
所属栏目：[大数据] 日期：2020-12-16 热度：101
????? use File::Tail; ????? 功能：读取不断变化的文件，相当于tail -f file 命令 ????? eg: ?????????? (1) $file = File::Tail-new(name=$logfile,tail=-1);??????????? ?????????? ? ? ? while ( defined ( $line = $file - read ) )? { ???????????????[详细]
-
perl constant的使用
所属栏目：[大数据] 日期：2020-12-16 热度：79
在perl中使用constant编译指示允许使用常量。常量顾名思义就是在整个程序的执行过程中，变量的值不会发生变化。如果在编写程序的时候， 你能够确定哪些变量的值不在发生变化，你可以使用use constant的方法来定义常量。下面就是标量常量，列表常量，hash常量[详细]
-
perl对于encode的用法
所属栏目：[大数据] 日期：2020-12-16 热度：61
perl对于encode的用法 转载：http://lynsead.spaces.live.com/Blog/cns!1pN1cYMeTzpoDjzM1P1IqDFg!135.entry perl对中文的处理(encode,decode) 最近在处理中文时遇到乱码的问题，google了一下，发现下面这篇文章。茅塞顿开！ Perl从5.6开始已经开始在内部使[详细]
-
perl连接mysql
所属栏目：[大数据] 日期：2020-12-16 热度：137
首先需要用ppm安装DBI和DBD-mysql ，如果没有的话点击EDIT-preferences -repositories 下面的Suggested add就行了，你就可以找到更多的模块，就像ubuntu添加源一样 代码 use DBI; my $dbname = "test"; my $location = "192.168.1.115"; my $port = "3306";[详细]
-
perl下载文件和图片
所属栏目：[大数据] 日期：2020-12-16 热度：177
文件: use LWP::Simple; $name="成都"; $url="http://192.168.1.213:8080/WellsoftTest/servlet/Httpservletwell?bz=kname=$nameindex=0"; $coont =get($url); die "not found link.." if(!defined($coont));#如果是null open $file,"t.txt" or die "couldn'[详细]
-
perl 连接sql server数据库
所属栏目：[大数据] 日期：2020-12-16 热度：135
本质上是和连接mysql一样的，但是需要配置很多东西 先看代码: use DBI; my $DSN = "driver={SQL Server};server=192.168.1.213;database=msy;uid=perlname;pwd=6789177"; my $dbh=DBI-connect("DBI:ODBC:$DSN") or die "couldn't open database: DBI-errstr"[详细]
-
perl的Parse::Syslog模块
所属栏目：[大数据] 日期：2020-12-16 热度：171
my $parser = Parse :: Syslog - new ( '/var/log/syslog' , year = 2001 ); while ( my $sl = $parser - next ) { ??????????? ? ... ?????????? ?access $sl - { timestamp | host | progra m |pid| text } ???????????? ? ... } DESCRIPTION:描述 Unix sy[详细]
-
Perl / Shell 脚本语言
所属栏目：[大数据] 日期：2020-12-16 热度：68
都是脚本语言,不用编译,直接写了就执行的 perl 是用来处理文本的 特别适合大量文本的解析 shell 则适合系统管理,比如自动完成一系列linux命令 拿 perl 来说,在 linux 下面创建一个文本文件 xx.pl, #!/usr/bin/perl print "hello!n"; 保存 chmod 755 xx.pl .[详细]
-
nagiosQL
所属栏目：[大数据] 日期：2020-12-16 热度：97
安装nagiosql 1.yum -y install php-mysql mysql?? perl-DBI perl-DBD-MySQL? gcc glibc glibc-common gd gd-devel? php-pear? mysql-devel? perl gettext mysql-server 重新编译PHP 加入--with-gettext?? --with-mysql --enable-ftp #./configure --prefix=[详细]
-
自动过滤邮箱日志，并发送邮件给邮箱脚本，perl+shell
所属栏目：[大数据] 日期：2020-12-16 热度：50
工作上需要给客户发日志，老手动很不爽，写了这个脚本，又因为机器上sendmail进程被其他perl脚本占用，无奈下只能直接走perl的脚本发送邮件了。特此记录如有人需要借鉴，请自便。 主程序shell #!/bin/bash mail="xxx@xxxxx.com" mailhead=`echo "$mail" |awk[详细]
-
perl移植须知
所属栏目：[大数据] 日期：2020-12-16 热度：101
下载：perl的源码包 perl-5.14.2.tar.gz（http://www.cpan.org/src/） 下载perl对应的交叉编译包 perl-5.14.2-cross-0.6.5.tar.gz（http://perlcross.berlios.de/usage.html） 分别解压，解压后两个解压文件合并 ./configure --prefix=/usr --target=i586-pc[详细]
-
PERL删除数组元素的多种方法
所属栏目：[大数据] 日期：2020-12-16 热度：74
比如说： @array = ('ray','loca','simon','ray'); 这里，我们想删除‘ray’这个元素。 列出几种方法： 1. 用grep函数。 函数名 grep 调用语法 @foundlist = grep (pattern,@searchlist); 解说 与同名的UNIX查找工具类似，grep函数在列表中抽取与指定模式匹[详细]
-
Perl处理数组的一些技巧
所属栏目：[大数据] 日期：2020-12-16 热度：66
（1）数组求和：不用写循环，直接调用 sum 函数 use List::Util qw/sum/;my @a=qw(1 2 3 4 5 6 7 8);my $sum= sum @a ; # 得到 36 （2）求数组的最大、最小值：不需要逐个比较，直接调用 max 和 min 函数 use List::Util qw/max min/;my @a=qw(1 2 3 4 5 6 7[详细]
-
Perl中控制结构用法总结
所属栏目：[大数据] 日期：2020-12-16 热度：107
if控制结构 chomp(my?$ a ?=? STDIN );? 用户输入变量$a的值 if($a? ?0){? 若$a大于0则执行命令 ????????print?"$a?is?larger?than?0n";? }? elsif($ a ?==?0){? 若$a等于0则执行命令 ????????print?"$a?equals?0n";? }? else{? 若$a小于0则执行命令 ?????[详细]
-
Perl文件读取经典用法----【转】
所属栏目：[大数据] 日期：2020-12-16 热度：186
用Open() 函数打开文件 打开文件的常用方法是: open(FH," $filename") or die "Couldn't open $filename for reading: $!"; open() 函数通常带有两个参数，第一个为文件句柄，用于指向打开的文件，第二个参数是文件名及模式(文件的打开模式)的混合体，如果文[详细]
-
Perl解析json数据
所属栏目：[大数据] 日期：2020-12-16 热度：176
?filename: json_test.pl 解析json格式数据 1.解析curl返回的json数据；2.解析文件中的json串。 测试用文件json_result.txt的内容见本段代码后； #!/usr/bin/perl -wuse WWW::Curl::Easy;use JSON;use Data::Dumper;my $json = new JSON;my $curl = new WWW:[详细]
-
perl 命令行
所属栏目：[大数据] 日期：2020-12-16 热度：196
象C一样，Perl也有存储命令行参数的数组@ARGV，可以用来分别处理各个命令行参数； 与C不同的是，$ARGV[0]是第一个参数，而不是程序名本身。[详细]
-
perl中my 和 our的区别
所属栏目：[大数据] 日期：2020-12-16 热度：102
perl中our的用法 require 5.006 当版本号小于 5.006 的时候，会返回失败，从而导致模块加载失败。 所以它的作用就是保证模块调用环境的 Perl 版本。 our 和 my 一样，都是对变量的声明， 不过 our 声明的是包全局变量， 而 my 声明的是词法变量。 不过，经过[详细]
-
Perl自定义模块的路径包含问题
所属栏目：[大数据] 日期：2020-12-16 热度：115
Author:NinGooposted onNinGoo.net Perl模块是重用代码的好方法，但是在调用自定义模块时的路径问题困扰了我许久。之前一直都是通过在代码中直接将自定义模块所在的绝对路径写入到@INC数组来解决的，以下示例，加入perl脚本放置在/opt/perl/bin，而自定义模[详细]
-
Perl的library设置
所属栏目：[大数据] 日期：2020-12-16 热度：178
参考链接： http://stackoverflow.com/questions/841785/how-do-i-include-a-perl-module-thats-in-a-different-directory http://stackoverflow.com/questions/185114/how-do-i-use-a-perl-module-in-a-directory-not-in-inc ? 在Fedora/RHEL/CentOS中，per[详细]
