搜索博文结果_ChinaUnix博客

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

热搜： H3C PHP 嵌入式敏捷项目管理 Mysql AIX ubuntu

博客首页〉搜索结果

按类别查询搜索结果

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

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

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

BuTa丶潇 | 2013-03-11 10:55:03 | 阅读(1420) | 评论(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 | 阅读(1520) | 评论(0)

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

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

zhengsenlin888 | 2013-03-02 19:22:49 | 阅读(1960) | 评论(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】 linux下使用perl获取本机ip的几种方法介绍

ewayfly | 2013-02-28 22:17:05 | 阅读(1910) | 评论(0)

在使用 Gearman 做分布式处理时，各机需要注册一个独立的 job 作为信息反馈，为求方便，Gearman::Worker 脚本 register_function 代码又要通用，于是想到了使用各自的 ip 地址作为 job 命名。那么怎么在 worker 脚本里获取本机 ip 作为 func 呢？第一种办法，最简单的，调用 shell： $ip = `ifconfig eth0|grep -...【阅读全文】

【PERL】 perl输出文件a的内容

zhengsenlin888 | 2013-01-30 22:37:56 | 阅读(2120) | 评论(0)

#!/usr/bin/perl#author: zhengsenlin#date: 2013-01-30#desc: test program fiveuse strict;use warnings;@ARGV = qw(a);while () {print;}【阅读全文】

【PERL】 Perl中的程序注释：单行注释和多行注释

zhengsenlin888 | 2013-01-30 22:28:11 | 阅读(1190) | 评论(0)

（一）单行注释：以#开头的行都被perl认为是注释。但是有一个例外，perl程序的第一行是#开头的，他指定了perl程序的解释器。例如：#print 1；（二）多行注释：最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:=podcodes to co...【阅读全文】

【PERL】 [perl]将标准时间(yyyy-mm-dd hh24:mi:ss)转换为时间戳的小程序

centrify | 2012-08-19 11:32:23 | 阅读(2030) | 评论(0)

#!/usr/bin/perluse strict;use Time::Local;my ($time,$timelc,$sec,$min,$hour,$mday,$mon,$year);$time = "2007-09-27 10:04:08";my @time = reverse(split /-|:|\s|\//,$time);foreach(@time)...【阅读全文】

【PERL】 Perl的简单变量-perl笔记01

centrify | 2012-08-12 11:05:12 | 阅读(2576) | 评论(0)

数组变量用@加变量名普通变量用 $加变量名undef没赋值的变量，用于条件判断，代替不关心的值defined已赋值的变量，用于条件判断。数字初值为0，字符串初值为空串如果有undef变量又不知道在哪，可加-w参数进行提示#！/usr/bin/perl -w变量替换用大括号，shell用小括号$ cat...【阅读全文】

【PERL】 perl 5 测试一个变量是否在数组中存在

ahfyth | 2011-07-25 15:02:37 | 阅读(3066) | 评论(0)

有的时候往数组里面push变量的时候你想知道数组中是否已经有同样值的变量，有的话就不push了在hash里面直接用exists就行了，而且时间是O(1)的，但是数组就不行了有很多种方法，包括遍历和grep但是在perl 5里面有很简单的写法，就是 ~~ 操作符例子my @t = ("a", "b", "c");...【阅读全文】

【PERL】 perl和javascript发邮件的代码

写自己的历史 | 2010-03-02 21:44:11 | 阅读(917) | 评论(0)

【阅读全文】

【PERL】 Perl的 pack 和 unpack 函数

yjh777 | 2008-03-02 02:03:36 | 阅读(1925) | 评论(0)

【阅读全文】

首页
<<
4
5
6
7
8
9
10
11
12
13
>>
末页

网络110 报警服务