Perl

使用Perl生成随机密码

可以通过参数控制生成密码中包括的字符种类#!/usr/bin/perl   use strict; use warnings; use Getopt::Std;   sub show_help {   print "Useage:\n";   print&nb...

    44浏览0推荐0评论

    Perl中的单行注释和多行注释语法

    同其他大多数编程语言一样,Perl中的单行注释也是#开头,例如:#print "Hello,World!";但多行注释,不同的语言有不同的注释方式,比如说:Java,C/C++: /*  *注释若干行  *注释若干行  *注释若干行 */Python:""" 用三个双引号,多行注释&nbs...

      46浏览0推荐0评论

      Perl基本数组排序方法介绍

      本文我们学习如何用Perl对字符串或者数字数组进行排序。Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一个数组,它会返回排序后的元素组成的数组。@sorted = sort @original。基于ASCII码排序#!/usr/bin/perl use strict; use warnings; use 5.010;   ...

        51浏览0推荐0评论

        Perl删除前导和拖尾空白

        这篇文章主要介绍了Perl删除前导和拖尾空白(删除左右空格、空白字符),本文给出了多个方法实现解决这个需求,需要的朋友可以参考下其它一些编程语言中,有函数ltrim和rtrim分别用于从字符串开头和末尾删除空格和制表符。 也有的提供了函数trim来删除字符串两端的空白字符。Perl里没这些函数因为简单的正则表达式替换就能实现这个目的(不过我确信CPAN有很多模块实现了这些函数)。事实上这太简单了以...

          49浏览0推荐0评论

          Perl学习笔记之文件操作

          Perl对文件的操作,跟其它的语言类似,无非也就是打开,读与写的操作。1. 打开文件#! c:/perl/bin/perl -w use utf8; use strict; use warnings;   my $filename = 'test.txt'; # ...

            42浏览0推荐0评论

            Perl实现高水线算法

            "高水线"算法:大水过后,最后一波浪消退时,高水线会标示出所见过的最高水位。下面看下"高水线"算法在Perl中的运用。#! /usr/bin/perl; use utf8;   sub max {   my($max_so_far) = shift ...

              40浏览0推荐0评论

              Perl数组排序学习笔记

              本文我们学习如何用Perl对字符串或者数字数组进行排序。Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一个数组,它会返回排序后的元素组成的数组。@sorted = sort @original。基于ASCII码排序#!/usr/bin/perl use strict; use warnings; use 5.010;   ...

                47浏览0推荐0评论

                讲Perl中的本地时间与UNIX时间戳间相互转换的方法

                这篇文章主要介绍了讲Perl中的本地时间与UNIX时间戳间相互转换的方法,主要用到了Perl中的Date::Parse模块,需要的朋友可以参考下当你的Perl脚本需要解决时间信息,这里有两种方法来表示和处理日期和时间。一种方法是易读的时间表示(例,"Sat Mar 14 10:14:05 EDT 2015"),另外一种是使用UNIX时间戳(也叫“新纪元时间”),这是从1970年...

                  38浏览0推荐0评论

                  Perl中的真与假深入研究

                  这篇文章主要介绍了Perl中的真与假深入研究,本文详细讲解了Perl中真值与假值的不同,需要的朋友可以参考下Perl认为真值是自明的(self-evident), 表示任何事物的真值都可以计算。Perl以实用的方式来定义真值,即一个实体的真值取决于这个实体的类型。Perl总是乐观的认为:这个世界上真的东西远比假的东西多的多。Perl区别与任何其他计算机语言,Perl是语言学家创造的,而语言的意思离...

                    44浏览0推荐0评论

                    perl读写文件代码实例

                    这篇文章主要介绍了perl读写文件代码实例,本文直接给出实现代码.#mode operand create truncate#read < #write >  yes yes #append >> yesCase 1: Throw an exception if you cannot open the file:u...

                      46浏览0推荐0评论

                      Perl读写文件简单示例

                      这篇文章主要介绍了Perl读写文件简单示例,本文直接给出实现代码!/usr/bin/perl -w  use strict;     #print "please input a string\n";  #my $line = <ST...

                        44浏览0推荐0评论

                        Perl脚本实现递归遍历目录下的文件

                        这篇文章主要介绍了Perl脚本实现递归遍历目录下的文件,本文直接给出实现代码,代码中包含明细注释,需要的朋友可以参考下#!/usr/bin/perl -w use strict; use File::Spec;  local $\ ="\n";#当前模块的每行输出加入换行符   my %o...

                          42浏览0推荐0评论

                          python urllib中的编码处理示例

                          这篇文章主要介绍了python urllib中的编码处理示例>>> import urllib >>> data = '丽江' >>> print data 丽江 >>> data '\xe4\xb8\xbd\xe6\xb1...

                            45浏览0推荐0评论

                            Perl脚本实现检测主机心跳信号功能

                            这篇文章主要介绍了Perl脚本实现检测主机心跳信号功能,本文代码也可作为perl串口通信的实例,需要的朋友可以参考下使用串口通信,在备机端使用如下脚本检测来自主机的心跳信号,一旦未接受次数超过指定记数,备机认为主机DOWN机,自动设置为主机的网络参数,顶替主机提供服务。# ! perl -w    use strict; &nb...

                              51浏览0推荐0评论

                              perl实现检测服务器中的服务是否正常脚本分享

                              程序调用远端服务,为了确保可用性最好在使用前进行健康检测,将异常的服务排除。#!/usr/bin/perl # use strict; use IO::Socket; my @servers; $servers[0]=['180.153.100.93',2222]; $servers[1]=['180.153.100.93',22]; ...

                                45浏览0推荐0评论

                                perl查找进程PID的例子

                                主要是利用查找/proc目录下的相关文件进行查找.#!/usr/bin/perl use strict; use warnings; #usage: process_grep.pl  ProcessName exit( main(@ARGV) );    sub main {  ...

                                  63浏览0推荐0评论

                                  Perl使用Tesseract-OCR实现验证码识别教程

                                  这篇文章主要介绍了Perl使用Tesseract-OCR实现验证码识别教程,Tesseract-OCR是一个开源图形识别引擎,需要的朋友可以参考下一、Tesseract-OCR 是什么An OCR Engine that was developed at HP Labs between 1985 and 1995… and now at Google基于Leptonica(http://lepto...

                                    93浏览0推荐0评论

                                    Perl实现的Linux下socket代理服务器

                                    这篇文章主要介绍了Perl实现的Linux下socket代理服务器,比较简洁的一个版本大家提供了许多linux开代理的方法,一般用到python等语言,一些服务器可能不会安装,然而perl可以说是linux标配的语言,给大家一款Perl语言的socket代理,代码非常少,而且还支持密码,效果还是不错,感觉很稳定。#!/usr/bin/perl    $auth_enabled&...

                                      76浏览0推荐0评论

                                      perl数据库添加、删除、更新、查询操作例子

                                      这篇文章主要介绍了perl数据库添加、删除、更新、查询操作例子,本文直接给出操作代码,需要的朋友可以参考下注意:连接时候使用SID指定的database,所以没有在连接中指定database.#!/usr/bin/perl use strict; use warnings; use DBI; my $db_name="geneva_admin&qu...

                                        72浏览0推荐0评论

                                        perl 采集入库脚本分享

                                        这篇文章主要介绍了perl 采集入库脚本分享,本文是以前自己用的脚本,使用的Mysql数据库,需要的朋友可以参考下#!/usr/bin/perl -w use DBI; use POSIX qw(strftime); my $dbh = DBI->connect(“DBI:mysql:shencan:111.1.32.15...

                                          76浏览0推荐0评论

                                          perl实现检测服务器中的服务是否正常脚本分享

                                          程序调用远端服务,为了确保可用性最好在使用前进行健康检测,将异常的服务排除。#!/usr/bin/perl # use strict; use IO::Socket; my @servers; $servers[0]=['180.153.100.93',2222]; $servers[1]=['180.153.100.93',22]; ...

                                            45浏览0推荐0评论

                                            Perl脚本实现检测主机心跳信号功能

                                            这篇文章主要介绍了Perl脚本实现检测主机心跳信号功能,本文代码也可作为perl串口通信的实例,需要的朋友可以参考下使用串口通信,在备机端使用如下脚本检测来自主机的心跳信号,一旦未接受次数超过指定记数,备机认为主机DOWN机,自动设置为主机的网络参数,顶替主机提供服务。# ! perl -w    use strict; &nb...

                                              51浏览0推荐0评论

                                              python urllib中的编码处理示例

                                              这篇文章主要介绍了python urllib中的编码处理示例>>> import urllib >>> data = '丽江' >>> print data 丽江 >>> data '\xe4\xb8\xbd\xe6\xb1...

                                                45浏览0推荐0评论

                                                Perl脚本实现递归遍历目录下的文件

                                                这篇文章主要介绍了Perl脚本实现递归遍历目录下的文件,本文直接给出实现代码,代码中包含明细注释,需要的朋友可以参考下#!/usr/bin/perl -w use strict; use File::Spec;  local $\ ="\n";#当前模块的每行输出加入换行符   my %o...

                                                  42浏览0推荐0评论

                                                  Perl读写文件简单示例

                                                  这篇文章主要介绍了Perl读写文件简单示例,本文直接给出实现代码!/usr/bin/perl -w  use strict;     #print "please input a string\n";  #my $line = <ST...

                                                    44浏览0推荐0评论

                                                    perl读写文件代码实例

                                                    这篇文章主要介绍了perl读写文件代码实例,本文直接给出实现代码.#mode operand create truncate#read < #write >  yes yes #append >> yesCase 1: Throw an exception if you cannot open the file:u...

                                                      46浏览0推荐0评论

                                                      Perl中的真与假深入研究

                                                      这篇文章主要介绍了Perl中的真与假深入研究,本文详细讲解了Perl中真值与假值的不同,需要的朋友可以参考下Perl认为真值是自明的(self-evident), 表示任何事物的真值都可以计算。Perl以实用的方式来定义真值,即一个实体的真值取决于这个实体的类型。Perl总是乐观的认为:这个世界上真的东西远比假的东西多的多。Perl区别与任何其他计算机语言,Perl是语言学家创造的,而语言的意思离...

                                                        44浏览0推荐0评论

                                                        讲Perl中的本地时间与UNIX时间戳间相互转换的方法

                                                        这篇文章主要介绍了讲Perl中的本地时间与UNIX时间戳间相互转换的方法,主要用到了Perl中的Date::Parse模块,需要的朋友可以参考下当你的Perl脚本需要解决时间信息,这里有两种方法来表示和处理日期和时间。一种方法是易读的时间表示(例,"Sat Mar 14 10:14:05 EDT 2015"),另外一种是使用UNIX时间戳(也叫“新纪元时间”),这是从1970年...

                                                          38浏览0推荐0评论

                                                          Perl数组排序学习笔记

                                                          本文我们学习如何用Perl对字符串或者数字数组进行排序。Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一个数组,它会返回排序后的元素组成的数组。@sorted = sort @original。基于ASCII码排序#!/usr/bin/perl use strict; use warnings; use 5.010;   ...

                                                            47浏览0推荐0评论

                                                            Perl实现高水线算法

                                                            "高水线"算法:大水过后,最后一波浪消退时,高水线会标示出所见过的最高水位。下面看下"高水线"算法在Perl中的运用。#! /usr/bin/perl; use utf8;   sub max {   my($max_so_far) = shift ...

                                                              40浏览0推荐0评论
                                                              首页上一页12下一页尾页

                                                              推荐作者

                                                              热门手记