搜索博文结果_ChinaUnix博客

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

热搜： iOS 系统运维服务器敏捷项目管理 Mysql Oracle 信息

博客首页〉搜索结果

按类别查询搜索结果

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

关于关键词的检测结果，共 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 | 阅读(1280) | 评论(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 | 阅读(1960) | 评论(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 | 阅读(1350) | 评论(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 | 阅读(1070) | 评论(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
>>
末页

网络110 报警服务