-
perl if 语句
所属栏目：[大数据] 日期：2020-12-16 热度：153
http://wenku.baidu.com/view/64c90f40be1e650e52ea99ce.html ? ---chomp 去掉回车键 ?[详细]
-
perl输出信息到另一个程序
所属栏目：[大数据] 日期：2020-12-16 热度：151
perlcookbook第二版16.4一节中,关与管道的用法，在这里写了一个自己的写程序。将程序的输出给另一个程序，以供另一个程序使用的小例子。仅供参考： main.pl #/usr/bin/perl -w $default_files="/etc/hosts"; if($#ARGV==0){ ???? if($ARGV[0]=="-h"){ ??????[详细]
-
搭建BitTorrent环境
所属栏目：[大数据] 日期：2020-12-16 热度：137
BitTorrent协议非常好用，在网络中分发共享大文件，不会造成网络上某一个链路拥塞，不会给某一台机器造成大量负载。BitTorrent把文件分割，分块校验，分块传输，并发性好，速度快，可靠性有保证。 搭建BitTorrent环境很简单，需要一个tracker程序和一个客户[详细]
-
perl单行命令
所属栏目：[大数据] 日期：2020-12-16 热度：133
转载自： http://forum.eviloctal.com/thread-39105-1-1.html Perl之单行命令特技 信息来源：邪恶八进制信息安全团队（ www.eviloctal.com） hi.baidu.com/isno 替换 将所有C程序中的foo替换成bar，旧文件备份成.bak perl -p -i.bak -e 's/bfoob/bar/g' *.[详细]
-
Perl学习记录(一) -- HelloWorld
所属栏目：[大数据] 日期：2020-12-16 热度：170
因为工作关系，发现Perl是一个很不错的语言，轻巧，灵便，所以决定花点业余时间学习一下，从今天开始不定期的记录学习过程，但愿能够有我结尾的那一篇出现。祈祷、阿门～～！ 一、安装环境 开发环境采用的是Windows系统，所以我选择了eclipse的插件EPICplugi[详细]
-
perl的特殊变量
所属栏目：[大数据] 日期：2020-12-16 热度：63
正文 让你的perl代码看起来更像perl代码，而不是像C或者BASIC代码，最好的办法就是去了解perl的内置变量。perl可以通过这些内置变量可以控制程序运行时的诸多方面。 本文中，我们一起领略一下众多内置变量在文件的输入输出控制上的出色表现。 行计数 我决定[详细]
-
perl常用的内置特殊变量
所属栏目：[大数据] 日期：2020-12-16 热度：155
先来一个例子吧 #!/usr/bin/ perl use warnings; @array = qw(a b c d); foreach (@array) { print $_,”/n”; } 例子的作用就是定义一个数组并把其中的元素打印出来，这里需要注意的是foreach循环部分，foreach循环的标准格式应该是： foreach $element (@a[详细]
-
Perl学习记录(二) -- 逻辑控制
所属栏目：[大数据] 日期：2020-12-16 热度：167
一、if语句。个人感觉相当类似于java的判断，直接贴上代码，共自己以后参考。 #!/usr/bin/perl$abc = " dajuezhao "; if ($abc eq " dajuezhao "){ print " yes ";} else { print " no "; }print " /n "; 做了个if的判断，如果变量abc等于dajuezhao，那么，[详细]
-
用perl脚本发送带附件的邮件
所属栏目：[大数据] 日期：2020-12-16 热度：110
具体脚本如下: ? #!/usr/bin/perl use MIME::Base64; use Encode; use MIME::Lite; my $str="测试邮件"; $str = "=?utf-8?B?" . encode_base64($str,"?="); my $mymail = new MIME::Lite ??????? From???? = 'myname@mail.myserver.com;', ??????? To??????[详细]
-
perl value排序
所属栏目：[大数据] 日期：2020-12-16 热度：196
这么简单的东西，长时间不用还是忘了，记录下，方便以后查找。 #!/usr/perl/bin use strict; use Data::Dumper; my %h=( " Alex "=24, " Sam "=25,monospace; font-size: 12px"> " Bob "=30,monospace; font-size: 12px"> " Andy "=11,monospace; font-size:[详细]
-
perl 文件操作
所属栏目：[大数据] 日期：2020-12-16 热度：152
打开、关闭文件 ?? open (filevar,filename) ??? filevar为文件句柄，或者说是程序中用来代表某文件的代号 ??? filename为文件名，其路径可为相对路径，亦可为绝对路径 open(FILE1,"file1"); open(FILE1,"/u/jqpublic/file1"); ?? 打开文件时必须决定访问模[详细]
-
perl中 localtime和timelocal
所属栏目：[大数据] 日期：2020-12-16 热度：81
my $starttime = "2010_01_01" my @timearray = split(/_/,$starttime); my $seconds = timelocal(0,$timearray[2],$timearray[1]-1,$timearray[0]-1900); timelocal获取2010_01_01距离1970年1月1日的秒数 ?my(undef,undef,$day,$month,$year,undef) = local[详细]
-
TWIKI安装后的错误
所属栏目：[大数据] 日期：2020-12-16 热度：95
http://twiki.org/cgi-bin/view/TWiki/TWikiInstallationGuide ? 一步步做下来，启动，报错： ? 错误信息： TWiki detected an internal error - please check your TWiki logs and webserver logs for more information. Can't locate Unicodepath in @INC[详细]
-
perl捕获异常
所属栏目：[大数据] 日期：2020-12-16 热度：155
perl捕获异常，仅供参考，可以扩展... ####打开文件句柄 ? eval { ??? open(FH,"domains.txt") or die "Can't open files,$!"; ??? }; #捕获异常 ? if($@){ ??? #出现异常 ? } ? else{ ????? #无异常，打印文件内容 ????? while(FH){ ?????????? ... ??????[详细]
-
perl学习——列表和数组
所属栏目：[大数据] 日期：2020-12-16 热度：155
今天在学习之余看了下perl脚本语言——列表和数组 ? ? 在perl中列表和数组是可以代表复数的，和标量代表的单数是不同的。 数组元素是以连续的整数来编号的，从 0 开始的，之后的每一个元素都是加1。举例如下： $array[0] = "banana"; $array[1] = "apple"; $[详细]
-
perl的map函数
所属栏目：[大数据] 日期：2020-12-16 热度：69
转自： http://hi.baidu.com/tkocn/blog/item/3b3e61df47e75b1049540394.html 对perl的map函数用的总是不好，今天看了perlChina的一篇文章，有所体会，在此收藏： 翻 译： zjl_perl 出 处：中国Perl协会 FPC 原 名：Perl:grep,map and sort 作 者：Richard A[详细]
-
perl: warning: Setting locale failed
所属栏目：[大数据] 日期：2020-12-16 热度：152
?有时apt-get install ***软件名 ?或者dpkg-reconfigure ***软件名 会出现下面的 perl: warning: Setting locale failed. perl: warning: Please check that your locale settings: LANGUAGE = (unset), LC_ALL = (unset), LANG = "en_US.UTF-8" ?? ?are sup[详细]
-
perl学习——输入和输出
所属栏目：[大数据] 日期：2020-12-16 热度：180
今天学习 perl ——输入和输出部分： 在程序中，我们经常会使用输入和输出，如果是学过 C 语言的朋友，一定是知道的。在 perl 中也是有指定的语句或者是关键词来执行输入或者输出的。 首先明确 3 个概念：标准输入、标准输出、标准错误 标准输入：在计算机中[详细]
-
Perl Unicode全攻略
所属栏目：[大数据] 日期：2020-12-16 热度：131
转载：http://www.cnblogs.com/starspace/archive/2008/12/10.html 耐心看完本文，相信你今后在unicode处理上不会再有什么问题。 本文内容适用于perl 5.8及其以上版本。 perl internal form 在Perl看来,字符串只有两种形式。 一种是 octets ,即8位序列,也就[详细]
-
Perl匹配中文
所属栏目：[大数据] 日期：2020-12-16 热度：90
转载：http://blog.csdn.net/jallin2001/archive/2009/11/13/4808618.aspx ? 大家经常使用正则表达式的字符集从字符串中抽取或排除中文字符，但是这样做很费事，效果也并不是很理想。实际上Perl从5.6开始已经开始在内部使用 utf8编码来表示字符，也就是说对[详细]
-
perl的中文字符集转换的例子
所属栏目：[大数据] 日期：2020-12-16 热度：116
#!/usr/bin/perl use Encode; $^I = ""; #open TEST_A,"file1.txt"; while () { ?print $_; ? ?$AAA = encode("ISO-8859-1",decode("utf8",$_)); ?print $AAA;? ?#$AAA = encode("gb2312",$_)); ?#print TEST_A "$AAA"; } #close TEST_A;[详细]
-
perl简单读写文件
所属栏目：[大数据] 日期：2020-12-16 热度：138
perl的读写文件非常简单，闲话不多说，直接上代码就能体会到了。 ? #!/usr/bin/perl -wuse strict;unless (open (MYFILE,"file1")) { die ("cannot open input file file1/n"); }else{ while(MYFILE) {print $_;} #print MYFILE ("wahaha./n");} 在上面这段[详细]
-
Perl的特殊符号
所属栏目：[大数据] 日期：2020-12-16 热度：123
? 转自： http://xiaofeng1982.blog.163.com/blog/static/3157245820106234343371/ @ ? ? ? 数组 ? ? ? ? ? ? ? ? ? ? ? ? ?? $x{} ? x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素 % ? ? ? 要引用整个 hash,使用百分号(“ )作为前缀。前面几页[详细]
-
Perl中的符号 ->、=> 和 :: 分别表示什么意思？
所属栏目：[大数据] 日期：2020-12-16 热度：146
符号-，=和::分别表示什么意思？ ‘- ’符号是“插入式解引用操作符”（infix dereference operator）。换句话说，它是调用由引用传递参数的子程序的方法（当然，还有其它的作用）。正如我们上面所提到的，在调用Perl/Tk的函数的时候，大部分参数都是通过引[详细]
-
Perl中grep的用法：
所属栏目：[大数据] 日期：2020-12-16 热度：152
主要缘由是今天看代码的时候看到了grep，自己不是很熟悉，学习下 先看grep中的文档： ??? * grep BLOCK LIST ??? * grep EXPR,LIST ????? This is similar in spirit to,but not the same as,grep(1) and its relatives. In particular,it is not limited to[详细]
