搜索博文结果_ChinaUnix博客

博客首页博客专家往日推荐博客文集

热搜： cISCO 存储 C# C语言嵌入式项目管理 LINUX Hyper-V

博客首页〉搜索结果

按类别查询搜索结果

操作系统程序设计数据库热点技术综合架构与运维移动开发与应用 Web前端

关于关键词的检测结果，共 119 条

【PERL】 Perl实例精解（第4版）目录

nixer2007 | 2013-05-23 10:23:28 | 阅读(1210) | 评论(0)

Perl实例精解（第4版）目录【阅读全文】

【PERL】 PERL---字符编码互换

RZL_01 | 2013-05-17 01:14:31 | 阅读(210) | 评论(0)

在处理网页数据时经常出现乱码采集的时候真的需要好好的确定好数据的编码下面是utf和gbk转换的函数还是decode的活sub utftogbk{ my $utfdata=shift; my $gbkdata=encode("gbk",decode("utf-8",$utfdata)); return $gbkdata; }sub gbktoutf{ my $utfdatas=shift; my $gbkdatas=...【阅读全文】

【PERL】 perl的字符串处理函数实例讲解

thelinux100 | 2013-05-13 22:37:06 | 阅读(1260) | 评论(0)

1. indexposition = index (string, substring, position)返回子串substring在字符串string中的位置，如果不存在则返回-1。参数position是可选项，表示匹配之前跳过的字符数，或者说从该位置开始匹配。例子如下：[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a"); print ...【阅读全文】

【PERL】用Devel::NYTProf模块排查优化perl脚本性能

BuTa丶潇 | 2013-04-26 16:58:09 | 阅读(1460) | 评论(0)

缓存服务器上有一个perl写的日志分析脚本，记录所有不重复的url。之后对squid进行目录刷新时，从记录下来的文件中查找匹配的url即可。不过这些天服务器老是出现负载报警，用top观察，这个url_parser.pl脚本一旦执行时，就占用了高达90%的CPU和40%的MEM。wc看存储的url.list文件，有大概4,000,000行；url.`date`.list当前有...【阅读全文】

【PERL】 perl 加载其它文件

xmuyong | 2013-04-24 09:57:53 | 阅读(470) | 评论(0)

perl中想使用其它文件中的配置，可以使用require命令，egb.pl ：点击(此处)折叠或打开$abc = 5;a.pl: 点击(此处)折叠或打开require "b.pl";print "$abc\n";perl a.pl 的输出： 5...【阅读全文】

【PERL】使用Perl和VC通信

CUTianrui007 | 2013-04-21 13:42:38 | 阅读(2760) | 评论(0)

Perl VC Memory Process【阅读全文】

【PERL】用Perl解析PDF

CUTianrui007 | 2013-04-19 22:33:44 | 阅读(2890) | 评论(0)

Perl PDF【阅读全文】

【PERL】用Perl解析CANTrace文件

CUTianrui007 | 2013-04-18 15:23:06 | 阅读(1900) | 评论(0)

Perl　CANoe　CANTrace【阅读全文】

【PERL】 URL编码解码 -- perl

xmuyong | 2013-04-17 14:36:34 | 阅读(500) | 评论(0)

Encode：perl -p -e 's/([^\w\-\.\@])/$1 eq "\n" ? "\n":sprintf("%%%2.2x",ord($1))/eg' filenameDecode：perl -p -e 's/%(..)/pack("c", hex($1))/eg' filename必要时转一下码： perl -p -e 's/%(..)/pack("c", hex($1))/eg' filename | iconv -f utf-8 -t gb18030【阅读全文】

【PERL】 Perl中的字符串

liuxiaoyin666 | 2013-04-15 17:34:57 | 阅读(1590) | 评论(0)

20130415【阅读全文】

【PERL】 linux socket实现机器间的通信(Perl)

andersonyan | 2013-03-22 22:16:24 | 阅读(2930) | 评论(0)

一、IO::Socket简介IO::Socket, 它是socket通信的面向对象的Perl接口。IO::Socket下又有两个子类IO::Socket::INET与IO::Socket::UNIX.现在用的是IO::Socket::INET。它的步骤是:先调用new方法，然后就可以进行基本I/O操作(使用print与getline等基本I/O方法)了，最后调用close方法结束会话，那么整个SOCKET会话就算完...【阅读全文】

【PERL】 Perl算法 - 简单排序篇

kk861123 | 2013-03-17 21:15:51 | 阅读(0) | 评论(0)

《Mastering.Algorithms.with.Perl》详细介绍了很多算法，而对于排序算法，Perl一般使用一个sort足矣，但是一些老的排序算法在特定场合还是相当实用的。1. 选择排序(section sort)#!/usr/bin/perl -wuse strict;my @array = qw(able was i ere i saw elba);...【阅读全文】

【PERL】 Perl算法 -- 字典树（tire tree）

kk861123 | 2013-03-17 21:02:51 | 阅读(0) | 评论(0)

参考：http://blog.csdn.net/ustbhacker/article/details/7771047http://en.wikipedia.org/wiki/Trie前缀树，用来处理大量字符串的查找、排序，也称为字典树，可以代替hash table。Perl实现：#!/usr/bin/perl -wuse strict;use Data::Dumper;my $word = "This i...【阅读全文】

【PERL】 Perl算法 -- 堆排序

kk861123 | 2013-03-17 18:24:22 | 阅读(0) | 评论(0)

参考链接中的文章，使用Perl实现了堆排序。原文地址：http://blog.csdn.net/morewindows/article/details/6709644#!/usr/bin/perl -w use strict;my @array = qw( 9 12 17 30 50 20 60 65 4 19);minHeapify(\@array);print "After heapify:\n";...【阅读全文】

【PERL】《美国队长2》仍设定在二战猎鹰等新人将加

db7we63085sd | 2013-03-15 17:50:07 | 阅读(200) | 评论(0)

时间网讯刚上映未几，但由于票房成就不错，续集已经开端启动了。据称影片依然把背景设定在上世纪40年代，影片还会有莎朗·卡特以及猎鹰两个人物呈现！《美国队长》的结尾是美国队长被冰封而后在当代被救醒，那么续集该怎么拍呢？是拍在当代的美国队长仍是持续讲以前的故事？编剧Chris Markus和Stephen McFeely正在为《美...【阅读全文】

【PERL】 perl_求两个字符串的最大公共子串(零宽断言)

BuTa丶潇 | 2013-03-11 10:55:03 | 阅读(1410) | 评论(0)

点击(此处)折叠或打开#!/usr/bin/perl use strict;use warnings;my $str1 ="aab12345678";my $str2 = "ab1234yb1234567";my $str = $str1 . "\n" . $str2;my (@substr,@result);...【阅读全文】

【PERL】图论：查找购买某物品的顾客购买最多的其他物品

runningdark | 2013-03-08 16:00:40 | 阅读(1500) | 评论(0)

题目大意：有一个数组存储了多个顾客的购物清单。指定一个物品item1,求出购买了item1的顾客除了购买item1外，购买最多的物品。很实用的小题目。电商网站市场能看到。来源http://blog.chinaunix.net/uid-26750075-id-3370694.html 分析：简单的图论题目。首先把数组转成图的邻接表表示。实际就是求出到指定顶...【阅读全文】

【PERL】检查数组中数字中各个位数只和不能被求余的数

zhengsenlin888 | 2013-03-02 19:22:49 | 阅读(1950) | 评论(0)

直接贴出代码：点击(此处)折叠或打开my @numbers = qw(1 100 50 6 70 555 66 70 80 99 1 20 3);my @odd_digit_sum = grep { my $sum; $sum += $_ for split //;...【阅读全文】

【PERL】字符串操作-perl笔记02

centrify | 2012-08-12 12:18:30 | 阅读(33643) | 评论(0)

q(string in q); 相当于'string in q'qq(string in qq);相当于“string in qq"()可换为,{},[]等匹配对字符qq{string in qq};字符串中也可以出现qq[string [in] qq];也可以换为任意//，；；，等相同字符对 qq/string in qq/Administrator@2012-0521-2127 ~/wesoft/perl$ cat qq.pl...【阅读全文】

首页
<<
1
2
3
4
5
6
>>
末页

网络110 报警服务