-
perl map函数学习
所属栏目：[大数据] 日期：2020-12-16 热度：62
map函数将数组中的每个值映射到表达式或块中，映射的结果返回另一个数组。? 使用方法如下：? ? ?1. map EXPR,LIST;? ? ?2. map {BLOCK}LIST; 方法1举例： 方法2举例： ?[详细]
-
Perl Learning (6) —— 哈希
所属栏目：[大数据] 日期：2020-12-16 热度：79
2011-02-07 wcdj ? (1) 什么是哈希？ (2) 为什么使用哈希？ (3) 访问哈希元素 (4) 访问整个哈希 (5) 哈希赋值 (6) 胖箭头 (7) 哈希函数 (1) 什么是哈希？ 哈希是一种数据结构。以前叫它关联数组（associative array），由于太啰嗦，于是改名为哈希（hash）。[详细]
-
perl 模块编程学习
所属栏目：[大数据] 日期：2020-12-16 热度：112
1. use vs require ? ? 1.1 两者都从@INC目录找指定文件 ? ? ? ? ? 但跟require不同的是，use只能用于模块的包含，也就是.pm文件。 而Require可导入pl文件。 ? ? 1.2 use语句是编译时引入的，require是运行时引入的，因此推荐用use，用use能在编译时就发现问[详细]
-
perl 引用《大骆驼》学习总结
所属栏目：[大数据] 日期：2020-12-16 热度：58
? Perl 引用学习 一个引用就是创建一个硬链接，一个引用只有在对它的所有引用都消失之后才会被摧毁 创建的引用只是一个 标量 ，对这个标量进行解引用意味着我们使用这个引用访问引用物 创建引用的方法： 反斜杠： 对任何命名变量，数值，匿名标量值，对一列[详细]
-
[原创] 脚本与批处理合二为一-----(2)Perl篇
所属栏目：[大数据] 日期：2020-12-16 热度：152
????? 在我以前写的博文[脚本与批处理合二为一-----(1)JaveScript篇]中实现Javascript与批处理的混搭,但很多TX可能更喜欢用PERL,其实用相同的原理也可以将PERL和批处理进行融合:使用PERL和批处理都能接受的语句将代码分流. ????? 请看下面的代码(扩展名为 ba[详细]
-
Perl正则表达式处理换行
所属栏目：[大数据] 日期：2020-12-16 热度：55
use strict; my $values ; open(OUTFILE,"file.txt") or die("Can't find file.txt:$!") ; while(defined($values= OUTFILE)){ # print $values ; if($values =~ /.*User Name:(.*);(.*)/ms){ print $1; print $2; }} 我的file.txt内容为： Logon Failure: U[详细]
-
最快的排序方法，以空间耗费为代价！！
所属栏目：[大数据] 日期：2020-12-16 热度：178
用排序数字值作为数组的索引，其值来表示此数排序后的位置，perl代码如下： ? #!perl -w use strict; sub ProduceSortNumRecord { ? ?my @SortNumRecord; ?my $EachNum; ?my $Index; ?foreach $EachNum (@_) ?{ ?? ??if (defined($SortNumRecord[$EachNum]))[详细]
-
使用ppencode/rrencode/jjencode/aaencode进行好玩的代码混淆
所属栏目：[大数据] 日期：2020-12-16 热度：199
? ?? ?ppencode/rrencode/jjencode/aaencode 是 Perl 、 Ruby 、 Javascript 的小工具，可以将各自的代码进行混淆，转换成特殊字符，甚至还可以转换成有意思的表情。 ppencode-Perl ?? ?台湾的 Perl 达人 唐鳳 在 YAPC 曾经介绍过 ppencode ，它可以把 Perl[详细]
-
perl中运算符的优先级
所属栏目：[大数据] 日期：2020-12-16 热度：172
优先级precedence 当一个表达式中出现几种不同的运算符,哪个先计算,哪个后计算 $condvar==43?$var1:$var2=14; $x=$a==$b; $x==0||$y/$x5; $result=11*2+6**22; 一般:自增自减最高,单操作数高于多操作数,数字运算比较运算位运算赋值运算逻辑运算 数字运算:幂*[详细]
-
perl 特殊变量总结
所属栏目：[大数据] 日期：2020-12-16 热度：63
$- 当前页可打印的行数,属于 Perl 格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $ 与上个格式匹配的字符串 $( 当前进程的组ID $) 当前进程的[详细]
-
删除N天前的日志文件
所属栏目：[大数据] 日期：2020-12-16 热度：121
#!/usr/bin/perlmy $Date=`date +%s`;$Date -= 17*86400;($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime($Date);my $year_tmp = $year_off + 1900;my $month_tmp = $mon+1;( $month_tmp 10 ) ? ($month_tmp = "0" . $month_tmp) :[详细]
-
【MogileFS-2.44】 安装与配置
所属栏目：[大数据] 日期：2020-12-16 热度：157
目录 一、MogileFS 介绍 1.1、环境 二、MogileFS 安装 2.1、Mysql安装 2.2、安装MogileFS 相关Perl模块 2.3、MogileFS Server 安装 2.4、MogileFS Storage 存储节点安装 三、MogileFS 配置 3.1、mysql数据库设置 3.2、创建mysql连接 3.3、创建Tracker配置文[详细]
-
Perl Learning (7_1) —— 漫游正则表达式王国
所属栏目：[大数据] 日期：2020-12-16 热度：126
2011-02-11 wcdj ? (1) 什么是正则表达式？ (2) 使用简易模式 (3) 关于元字符 (4) 简易量词 (1) 什么是正则表达式？ 正则表达式，在Perl中常常叫做 —— 模式，是一个匹配（或不匹配）某字符串的 —— 模版。 正则表达式是一种小程序，它们说简单的方言。这[详细]
-
perl HTML::TokeParser
所属栏目：[大数据] 日期：2020-12-16 热度：143
学习HTML::TokeParser，此模块比HTML: arser简单很多。 看代码： #! /usr/local/bin/perl use LWP::Simple; use Data::Dumper; use HTML::TokeParser; use Encode; my $content = get("http:// www.sina.com.cn /"); Encode::_utf8_off($content); open FH,"[详细]
-
perl学习
所属栏目：[大数据] 日期：2020-12-16 热度：169
#!/usr/bin/perl #In order to make the code more robust,to start every program with the following lines use strict; use warnings; #basic syntax over print "Hello,world/n"; print 'hello,world/n'; print 73; print("/nhello,world/n"); #perl var[详细]
-
perl 读写文件
所属栏目：[大数据] 日期：2020-12-16 热度：169
perl 读文件 open(FILE,"filename.txt"); my $record; while($record=FILE) { print("file record is : $record/n"); } close(FILE); perl 写文件 覆盖写入 open(FILE,"filename.txt"); syswrite(FILE,"This is my write file contents/n"); close(FILE); 追[详细]
-
PERL文件操作
所属栏目：[大数据] 日期：2020-12-16 热度：136
在Perl中可以用open或者sysopen函数来打开文件进行操作，这两个函数都需要通过一个文件句柄（即文件指针）来对文件进行读写定位等操作。 open函数为例: 一、打开、关闭文件 ??? open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返[详细]
-
perl中seek函数的用法
所属栏目：[大数据] 日期：2020-12-16 热度：89
seek 设置文件的当前位置！ 当一个文件非常大时可以从指定位置读起。 seek FILEHANDLE,POSITION,WHENCE 成功返回真，失败返回假。 POSITION 是读入的新位置（字节）。 WHENCE有3个值，0表示新位置是POSITION,1表示当前位置加上POSITION，2表示文件尾加上POSI[详细]
-
关于Perl哈希数据结构的输出总结
所属栏目：[大数据] 日期：2020-12-16 热度：73
直接上代码，具体效果可以执行代码来看看： #!/usr/bin/perl?-w ? ##Code?Begin############## ? use?strict; ? ? print ? "方法一：中间数组+keys和values函数法n" ; ? my?%hash?=?( "a" = 1000 , "b" = 2000 , "c" = 3000 ); ? if ?(%hash)?{ ? ????????m[详细]
-
TED演讲的字幕下载
所属栏目：[大数据] 日期：2020-12-16 热度：68
?? ? ?这一阵经常在TED.com上听讲座，但有时候网络状态不好，只好将视频下载过来听，下载的mp4却不带字幕，TED上也没提供字幕下载链接，还好找到这个网站。 ? ?? ? ?http://tedtalksubtitledownload.appspot.com/ ? ?? ? ?将TED讲座的链接输进去，就能找到字[详细]
-
perl 5.10新特性智能匹配操作符合~~介绍
所属栏目：[大数据] 日期：2020-12-16 热度：120
perl 的智能匹配操作符号根据需要自己决定如何比较两端操作数。 ? 使用方法 下表是智能匹配操作符对不同操作数的处理方式 ? 例子 匹配方式 %a ~~ %b 哈希的键是否一致 %a ~~ @b 至少 %a 中的一个键在列表@b中 %a ~~ /Fred/ 至少一个键匹配给定的模式 %a ~~ '[详细]
-
perl 5.10后的新特征 given-when介绍
所属栏目：[大数据] 日期：2020-12-16 热度：158
given 语句 Perl 中的 given-when 控制结构能够根据 given 的参数，执行某个条件对应的语句块，其与 C 语言中的 switch 语句类似。只不过更具有 Perl 的色彩。看看下面的例子，其从命令行中取出第一个参数， $ARGV[0] ，然后依次走一遍 when 条件判断，看是[详细]
-
Perl中操作Mysql示例
所属栏目：[大数据] 日期：2020-12-16 热度：73
#!/usr/bin/perl -w use DBI; my $count = 0; my $dbh = DBI-connect("DBI:mysql:database=clientInfo;host=192.168.1.22","wuwu","123456",{'RaiseError' = 1}); #统计总人数 my $countsth = $dbh-prepare("select * from clientInfo where username like /[详细]
-
Perl DBI 基础
所属栏目：[大数据] 日期：2020-12-16 热度：139
????????? 参见该网页：(点击此处)[详细]
-
perl笔记之排序
所属栏目：[大数据] 日期：2020-12-16 热度：69
有如下三组代码用大小进行排序 17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666 9 0 2 1 0 2001 42 -40 98.6 2.71828 传统的sort排序只能按照ascii排序 不能按照数字的大小进行排序 用如下代码进行排序 #!/usr/bin/perl while () { push @numbers,split;?[详细]
