-
perl中的sig问题
所属栏目：[大数据] 日期：2020-12-16 热度：123
[root@stationx perl]# cat sig.pl #!/usr/bin/perl sub handler { ??????? local($sig)=@_;#first argument is signal name ??????? print "caught SIG$sig -- shutting downn"; ??????? exit(0); } $SIG{'INT'}='handler';#catch Ctrl-C print "here i am[详细]
-
Perl表达式
所属栏目：[大数据] 日期：2020-12-16 热度：53
?PERL里正则表达式的简介 一、简介 二、匹配操作符 三、模式中的特殊字符 1、字符+ 2、字符 []和[^] 3、字符 *和? 4、转义字符 5、匹配任意字母或数字 6、锚模式 7、模式中的变量替换 8、字符范围转义前缀 9、匹配任意字符 10、匹配指定数目的字符 11、指定[详细]
-
Perl lib version (v5.8.3) doesn't match executable v
所属栏目：[大数据] 日期：2020-12-16 热度：102
Perl lib version (v5.8.3) doesn't match executable version 最近在玩perl语言，先不说会的程度怎么样吧，反正是在使用，写了一个perl程序，完成了以下功能 1、接收基于soap的数据流，对数据流进行解析。 2、将解析出的数据入库。 3、发送http请求，连接别[详细]
-
远端获取二进制文件方法
所属栏目：[大数据] 日期：2020-12-16 热度：143
perl -e 'use MIME::Base64;open (FH," xxxx.log.tar.gz");print encode_base64($_) while (FH);' 输出的文件如以下附件中xxxxx.tar.text所示： ? 把该文件以二进制上传到unix中，再执行以下命令，恢复为.tar.gz文件。 perl -e 'use MIME::Base64;open (FH,"[详细]
-
编译安装pnp是出现RRDs Perl Modules not found 错误
所属栏目：[大数据] 日期：2020-12-16 热度：162
? 主要进行如下操作就行 cp -r /usr/local/rrdtool/lib/perl/5.8.8/i386-linux-thread-multi/* /usr/lib/perl5/5.8.8/i386-linux-thread-multi/[详细]
-
perl列表使用
所属栏目：[大数据] 日期：2020-12-16 热度：54
? 判断来访的人是不是第一个，如果是第一个则输出您是第一个，否则输出他的前一个人 sub?greet{? ????@greet_list ;? ????my?$len;? ???? print ? "Hi?$_[0]!?" ;? ????? ????push?@greet_list?,?$_[ 0 ];? ? ????$len?=?@greet_list;? ? ???? if ($len?==?[详细]
-
Perl_哈希排序_sort
所属栏目：[大数据] 日期：2020-12-16 热度：108
Perl_哈希排序_sort ? 对哈希的值排序 my %hash; $hash{"a"}=1; $hash{"b"}=2; $hash{"c"}=21; $hash{"d"}=4; $hash{"e"}=13; $hash{"f"}=12; my @val =sort values %hash; foreach (@val) { ??? print $_."n"; } #1 #12 #13 #2 #21 #4 #上面的方法得不到按[详细]
-
Tour De Babel
所属栏目：[大数据] 日期：2020-12-16 热度：176
转自：http://code.google.com/p/windows-config/wiki/TourDeBabel #title?Tour De Babel 通天塔导游 (译注：圣经记载：在远古的时候，人类都使用一种语言，全世界的人决定一起造一座通天的塔，就是巴别塔，后来被上帝知道了，上帝就让人们使用不同的语言，[详细]
-
OAuth (开放授权) 资料汇总
所属栏目：[大数据] 日期：2020-12-16 热度：85
http://oauth.net/ 各种实现：http://oauth.googlecode.com/svn/code/ Twitter OAuth : https://dev.twitter.com/docs/auth/oauth Facebook OAuth : http://developers.facebook.com/docs/authentication/ http://www.richardnichols.net/2010/06/implementi[详细]
-
perl的逻辑运算
所属栏目：[大数据] 日期：2020-12-16 热度：172
perl语言与其它语言一样，也有逻辑运算，但是由于perl没有基本变量类型的原因，逻辑运算过程往往会产生一定的隐患。 if($value){} ? ? ? ?这种写法，经常用来判断$value是否已定义，尤其$value作为数组中的值时。在通常的分类中，perl中的变量分为标量、矢量[详细]
-
perl while 和 foreach 的区别
所属栏目：[大数据] 日期：2020-12-16 热度：135
while(STDIN){ print “I saw $_”; } foreach(STDIN){ print “I saw $_”; } ? 别看这两种方式，都是读取文件， 在WHILE 操作中，PERL 读入一行，将它赋予变量，然后再进入循环，再回到开头，读入下一行。 但在FOREACH 中，它在循环之前读取所有的输入，[详细]
-
PCRE的模式修饰符
所属栏目：[大数据] 日期：2020-12-16 热度：176
PCRE的模式修饰符 (2012-05-24 14:09:35) 转载 ▼ 标签： pcre perl风格兼容 正则表达式 模式修正符 分类： 正则表达式 ? ? ? PCRE（Perl-Compatible RegularExpressions)，兼容Perl风格的正则表达式，这篇文章仅记录一下常见模式修正符的用法。 ? ? ? ? ? i[详细]
-
我最喜欢的10条编程语录
所属栏目：[大数据] 日期：2020-12-16 热度：89
英文原文： My 10 favourite Programming Quotes 从去年开通? @程序员的那些事 ?开始，陆陆续续发布了一些 #编程语录# 。今天也在 国外程序员 ?Senthil Kumar?的博客看到了他最喜欢的 10 条编程语录。其中大部分已经分享过，现再次综合分享给大家。 （提示：[详细]
-
R之字符串相关
所属栏目：[大数据] 日期：2020-12-16 热度：131
1.strsplit(m,n)? 分割字符串:将字符串m,在含有字符n的地方进行分割 ?? 如：strsplit("abcdef","e"):?? 结果为： [[1]] [1] "abcd" "f"? ? strsplit(c("ab","cde","mnd"),"e")? 结果为： [[1]] [1] "ab" [[2]] [1] "cd" [[3]] [1] "mnd" ? 2.substr(m,index1[详细]
-
Platform-independent is Nothing
所属栏目：[大数据] 日期：2020-12-16 热度：155
Last Friday I had to process some text files,adding some tags before some patterns in a text file. Perl is born for such a task. I first copied all the patterns into a file in Windows XP,then I switched to Linux to use Perl to finishing th[详细]
-
用Perl解决一道高中数学题
所属栏目：[大数据] 日期：2020-12-16 热度：143
背景：在微博上见到一道简单的数学题 ，最近一直在学Perl编程，用Perl实现之，在代码中应用了几个高级技巧，加深了对Perl数组的理解。 问题： 一个将字符串“ A B C D E F G ”变成字符串“ C D A B F G E ”的置换定义为一次运算,则从字符 “一行白鹭上青天[详细]
-
perl基础
所属栏目：[大数据] 日期：2020-12-16 热度：194
一 perl文件 1）文件第一行#!/usr/bin/perl，用来在类Unix系统上指定perl执行程序； 2）#开始的行表示注释； 3）use strict;对perl进行额外的检查，强迫你使用my定义变量，字符串必须使用单引号或双引号，引用其他的package的变量时变量前加package名字； 4[详细]
-
利用Perl检测系统中与系统用户相关的进程
所属栏目：[大数据] 日期：2020-12-16 热度：189
[root@stationx perl]# cat check.pl #!/bin/perl unless($#ARGV == 0){die "Usage: $0 argument: $!";} open(PASSWD,"/etc/passwd")or die "cant open:$!"; $username=shift(@ARGV); print "$username.n";（---改行可以不要，当时是为了测试用的！） while[详细]
-
达尔文流媒体服务器搭配
所属栏目：[大数据] 日期：2020-12-16 热度：133
转自：http://www.iteye.com/topic/1117560 最近由于公司做的一个Android项目，需要上传视频到服务器，实现上下传以及播放，涉及到视频的手机终端播放流媒体视频，所以本人搭配了一个达尔文流媒体服务器，本文还参考了： 百度文库：http://wenku.baidu.com/v[详细]
-
五大常用Perl命令行参数应用介绍
所属栏目：[大数据] 日期：2020-12-16 热度：175
本文和大家重点讨论一下Perl命令行应用，主要包括五部分的内容，Perl语言中有很多Perl命令行参数.通过它们,我们有机会写出更简单的程序，在这篇文章里我们来了解一些常用的参数。 Perl命令行应用介绍 Perl语言中有很多Perl命令行参数.通过它们,254); text-in[详细]
-
利用perl检测系统中登陆用户相关的进程升级版
所属栏目：[大数据] 日期：2020-12-16 热度：163
#!/bin/perl open(FH,"user")or die "cant open file:$!"; @lines=FH; chomp(@lines); close FH; #print "@linesn"; open(PASSWD,"/etc/passwd")or die "cant open:$!"; foreach $username (@lines){ #print "$username.n"; while($pwline=PASSWD){ ??????[详细]
-
perl 小练习
所属栏目：[大数据] 日期：2020-12-16 热度：151
!/usr/bin/perl $subject={ ??????? math={ ??????????????? "mahong"=90,??????????????? "mahao"=98,??????????????? "zhangwei"=89,??????????????? "yawei"=98 ??????? },??????? chinese={ ??????????????? "mahong"=90,??????????????? "mahao"=97,???[详细]
-
perl面向对象小练习
所属栏目：[大数据] 日期：2020-12-16 热度：147
#!/usr/bin/perl #编写一个面向对象的程序，对设备状态进行统计管理 package DEVICE; sub new { ??????? my $class=shift; ??????? my $ref={ ??????????????? ip_addr=undef, ??????????????? hw_type=undef, ??????????????? mac_addr=undef, ????????????[详细]
-
Perl+Eclipse配置
所属栏目：[大数据] 日期：2020-12-16 热度：76
打开Eclipse，选择select Help Install New Software. ? Click the Add Site... button and enter: Name: 随便写 Location: http://e-p-i-c.sf.net/updates for the stable 0.5.x,older version of EPIC http://e-p-i-c.sf.net/updates/testing for the most[详细]
-
stdin
所属栏目：[大数据] 日期：2020-12-16 热度：156
示例：一个最简单的小程序，它的功能是从键盘输入字符，然后将其送到控制台。采用perl语言实现，你可以会这样写： while ($line = STDIN) { print $line; } 简单地说，STDIN是一个专用的文件句柄，在本例中它属于标准输入缓存（称为STDIN），通常是连接到键[详细]
