ChinaUnix首页
|
论坛
|
博客
博客首页
博客专家
往日推荐
博客文集
博文
博主
热搜:
Android
网络安全
cISCO
存储
Java
嵌入式
项目管理
信息
博客首页 〉
搜索结果
按类别查询搜索结果
操作系统
程序设计
数据库
热点技术
综合
架构与运维
移动开发与应用
Web前端
LINUX
|
BSD
|
WINDOWS
|
其他UNIX
|
AIX
|
SOLARIS
|
C/C++
|
Java
|
Python/Ruby
|
项目管理
|
Web开发
|
嵌入式
|
C#/.net
|
PHP
|
Delphi
|
PERL
|
Erlang
|
Verilog
|
敏捷开发
|
Mysql/postgreSQL
|
Oracle
|
DB2/Informix
|
Sybase
|
数据库开发技术
|
SQLite/嵌入式数据库
|
SQLServer
|
NOSQL
|
虚拟化
|
云计算
|
大数据
|
HADOOP
|
高性能计算
|
IT业界
|
IT职场
|
信息化
|
网络与安全
|
系统运维
|
服务器与存储
|
架构设计与优化
|
Android平台
|
iOS平台
|
Windows平台
|
其他平台
|
Html/Css
|
JavaScript
|
jQuery
|
HTML5
|
关于关键词 的检测结果,共
260
条
【PERL】
Perl
的
面向对象
的
继承
runningdark
| 2013-03-18 15:56:45 | 阅读(2210) | 评论(0)
前几天被问了perl的继承,因为太长时间没有用过,连面向对象具体怎么写的都记得不是十分清楚了。这里记录一下。KeyPoint:1.使用hash存储类的各个成员field。2.hash新建的时候是一个匿名hash的引用。3.bless($self,$class)是将该类和匿名hash $self绑定,类名可以忽略。4.bless的是引用不是hash。5.继承相当于往父类的...
【阅读全文】
【PERL】
Perl算法-递归
的
妙用
kk861123
| 2013-03-15 23:32:03 | 阅读(0) | 评论(0)
递归算法在实际生活中大量被使用,很多问题可以很巧妙的被解决掉。例1: 楼梯有n个台阶,上楼可以一步上1阶,也可以一步上2阶,一共有多少种上楼的方法?斐波那契数列 第一项为1 第二项为2 也就是f(n)=f(n-1)+f(n-2),用递归求。#!/usr/bin/perl -wuse strict;print...
【阅读全文】
【PERL】
我看
的
是历史 不是场面 – 《王
的
盛宴》影
db7we63085sd
| 2013-03-15 10:28:03 | 阅读(140) | 评论(0)
?? 我从未写过影评,我也不知道怎么评价电影的好坏,我这段评论的出发点是历史。我很喜欢陆川的这部电影,确实,它给了我一点意外,叙述手法和拍摄手法跟我预想的不一样,但是,他是尊重历史的,可以说有百分之八十至九十是符合历史的。然而,陆川他想用短短的两个小时讲述从反秦起义到刘邦死这段不算很长时间但内容太...
【阅读全文】
【PERL】
perl 批量 SMTP
发
送邮件
maodou888
| 2013-03-14 11:39:53 | 阅读(1620) | 评论(0)
perl SMTP发送邮件#!/usr/bin/perluse strict;use Net::SMTP;use Authen::SASL; my $data; my $NUM=0; my $mail_name;my $name;my $mail; my $...
【阅读全文】
【PERL】
perl grep
的
用法
BuTa丶潇
| 2013-03-13 15:41:52 | 阅读(1270) | 评论(0)
在unix/Linux中有一个强大的命令用来搜索文件中的模式,相信大家都比较熟悉,那就是grep,同样在perl中,grep也被用来进行搜索某个模式。下面我们来看一下grep的一个例子:#! /usr/bin/perluse strict;use warnings;my @array = qw(greyhound bloodhound hello hand);my @hound = grep /hound/,@array;print ...
【阅读全文】
【PERL】
perl 利用Time::Piece 模块进行对时间戳转换成我们常看
的
时间
zhengsenlin888
| 2013-03-13 11:18:59 | 阅读(1950) | 评论(0)
#!/usr/bin/perl#author: zhengsenlin#date: 2013-03-13#desc: time piece use 5.016;use strict;use warnings;use autodie;use Time::Piece;my $t = localtime(1360780381);my $real_time = $t->ymd . " " . $t->hms;say $real_time;
【阅读全文】
【PERL】
perl中"飞碟运算符"
的
含义
BuTa丶潇
| 2013-03-11 11:35:19 | 阅读(1340) | 评论(0)
飞碟运算符就是对比$a和$b,返回-1、0、1$a$b返回1如:点击(此处)折叠或打开my @array = qw/18 23 62 11 14 6 100/; print join(' ', sort { $a $b } @array), "\n";#这个得到的是6 11 14 18 23 62 100print join(' ', sort { $b ...
【阅读全文】
【PERL】
perl
的
sort函数
BuTa丶潇
| 2013-03-11 10:56:52 | 阅读(1060) | 评论(0)
一) sort函数sort LISTsort BLOCK LISTsort SUBNAME LISTsort的用法有如上3种形式。它对LIST进行排序,并返回排序后的列表。假如忽略了SUBNAME或BLOCK,sort按标准字串比较顺序来进行(例如ASCII顺序)。如果指定了SUBNAME,它实际上是个子函数的名字,该子函数对比2个列表元素,并返回一个小于,等于,或大于0的整...
【阅读全文】
【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】
采用 SMTP_auth 模块
发
送邮件
wsxedcer
| 2012-12-14 16:12:40 | 阅读(1227) | 评论(0)
采用 SMTP_auth 模块发送从mysql中取出的访问量。
#!/bin/env perl
use DBI;
use POSIX;
use Net::SMTP_auth;
use MIME::Base64;
use strict;
【阅读全文】
【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和javascript
发
邮件
的
代码
写自己的历史
| 2010-03-02 21:44:11 | 阅读(917) | 评论(0)
【阅读全文】
【PERL】
perl
发
邮件脚本
zlj2208
| 2008-11-28 20:37:22 | 阅读(1465) | 评论(0)
【阅读全文】
【PERL】
Perl
的
pack 和 unpack 函数
yjh777
| 2008-03-02 02:03:36 | 阅读(1925) | 评论(0)
【阅读全文】
首页
<<
4
5
6
7
8
9
10
11
12
13
>>
末页