按类别查询搜索结果
关于关键词 的检测结果,共 251
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);...【阅读全文】
runningdark | 2013-03-08 16:00:40 | 阅读(1520) | 评论(0)
题目大意:有一个数组存储了多个顾客的购物清单。指定一个物品item1,求出购买了item1的顾客除了购买item1外,购买最多的物品。很实用的小题目。电商网站市场能看到。来源http://blog.chinaunix.net/uid-26750075-id-3370694.html 分析:简单的图论题目。首先把数组转成图的邻接表表示。实际就是求出到指定顶...【阅读全文】
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 //;...【阅读全文】
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 -...【阅读全文】
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;}【阅读全文】
zhengsenlin888 | 2013-01-30 22:28:11 | 阅读(1190) | 评论(0)
(一)单行注释: 以#开头的行都被perl认为是注释。但是有一个例外,perl程序的第一行是#开头的,他指定了perl程序的解释器。例如:#print 1; (二)多行注释:最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:=podcodes to co...【阅读全文】
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)...【阅读全文】
centrify | 2012-08-12 11:05:12 | 阅读(2576) | 评论(0)
数组变量用@加变量名普通变量用 $加变量名undef没赋值的变量,用于条件判断,代替不关心的值defined已赋值的变量,用于条件判断。数字初值为0,字符串初值为空串如果有undef变量又不知道在哪,可加-w参数进行提示#!/usr/bin/perl -w变量替换用大括号,shell用小括号$ cat...【阅读全文】
ahfyth | 2011-07-25 15:02:37 | 阅读(3056) | 评论(0)
有的时候往数组里面push变量的时候你想知道数组中是否已经有同样值的变量,有的话就不push了在hash里面直接用exists就行了,而且时间是O(1)的,但是数组就不行了有很多种方法,包括遍历和grep但是在perl 5里面有很简单的写法,就是 ~~ 操作符例子my @t = ("a", "b", "c");...【阅读全文】
写自己的历史 | 2010-03-02 21:44:11 | 阅读(917) | 评论(0)
yjh777 | 2008-03-02 02:03:36 | 阅读(1925) | 评论(0)