-
perl通过文件锁让脚本单实例运行
所属栏目：[大数据] 日期：2020-12-16 热度：163
原文地址： http://blogread.cn/it/article/743?f=wb ? 用Perl写了一些监控脚本，放在crontab中调度执行。有时候会发现一个脚本运行时间过长，会同时跑起多个实例，因此有必要为脚本加上控制，只运行一个实例。 最简单自然的想法，在脚本中检查并创建一个空[详细]
-
Perl 之 use(), require(), do(), %INC and @INC
所属栏目：[大数据] 日期：2020-12-16 热度：80
转自：http://perl.apache.org/docs/general/perl_reference/perl_reference.html? use(),require(),do(),%INC and @INC Explained ? The @INC array @INC ?is a special Perl variable which is the equivalent of the shell's? PATH ?variable. Whereas? P[详细]
-
Perl线程综述
所属栏目：[大数据] 日期：2020-12-16 热度：173
简介：? 本文首先概述了线程的概念和意义， 接着回顾了 Perl 语言中对线程支持的演化历史， 然后通过一系列示例重点介绍了 Perl 中线程的实现，数据的共享以及线程间的同步， 最后归纳并总结了全文主要内容。 一、线程概述 线程是一个单一的执行流程，它是所[详细]
-
一个简单的perl程序
所属栏目：[大数据] 日期：2020-12-16 热度：53
? ? 下面展示一个简单的perl程序，功能是根据参数列表中提供的一个或多个文件名，以每一行为一个单位逐一读取作为路径，如果该路径是一个可执行文件，可以由此找出其所依赖的共享库，并且生成到一个汇总列表中。这样的功能可以作为应用程序打包功能（主要是[详细]
-
关于perl hash输出排序问题
所属栏目：[大数据] 日期：2020-12-16 热度：152
sort函数 sort LIST sort BLOCK LIST sort SUBNAME LIST sort的用法有如上3种形式。它对LIST进行排序，并返回排序后的列表。假如忽略了SUBNAME或BLOCK，sort按标准字串比较顺序来进行（例如ASCII顺序）。如果指定了SUBNAME，它实际上是个子函数的名字，该子[详细]
-
perl 使用Net::SMTP 发邮件
所属栏目：[大数据] 日期：2020-12-16 热度：145
use Net::SMTP; my $email_server = 'smtp.163.com'; my $email_receivers = 'aaa@163.com'; my $email_sender = ‘aaa@163.com'; $email_body = ’hello‘； sub sendMail { ???????my $smtp = Net::SMTP-new($email_server); ???????$smtp-mail($email_sen[详细]
-
Perl实现的简单单机聊天服务器
所属栏目：[大数据] 日期：2020-12-16 热度：194
1. Problem 如何管理多个输入流 The next input to your program could be coming from any number of filehandles,? but you don't know which.? You've tried using select( ),helvetica; font-size:14px">but the need to then do unbuffered I/O is more[详细]
-
perl学习（一）
所属栏目：[大数据] 日期：2020-12-16 热度：184
perl 读写文件 perl 读文件 open(FILE,"filename.txt"); my $record; while($record=FILE) { print("file record is : $recordn"); } close(FILE); perl 写文件 覆盖写入 open(FILE,"filename.txt"); syswrite(FILE,"This is my write file contentsn"); c[详细]
-
perl学习之nagios脚本
所属栏目：[大数据] 日期：2020-12-16 热度：140
#!/usr/bin/perl? use?strict;? use?Getopt::Long;? use?LWP::Simple;? use?lib? "/usr/lib64/nagios/plugins" ;? use?utils?qw?($TIMEOUT?%ERRORS?print_revision?support);? my?$HOSTADDRESS;? Getopt::Long::GetOptions(? ???????? 'h=s' ?=?$HOSTADDRES[详细]
-
Perl中实现循环的各种方法（基础）
所属栏目：[大数据] 日期：2020-12-16 热度：84
? Perl中有多种方法实现循环： 常规的while循环： my?$ i ?=? 0 ; ? while($i? ? scalar ?@array)?{ ? ????print?$i,?":?",?$array[$i]; ? ????$i++; ? }? Perl同样支持until关键字： my?$ i ?=? 0 ; ? until($i? =?scalar?@array)?{ ? ????print?$i,248); t[详细]
-
Perl中关于用户定义子程序的返回值（基础）
所属栏目：[大数据] 日期：2020-12-16 热度：63
? 返回值 就如其他Perl表达式，调用子程序也会在不同上下文中有不同的行为。你可以使用wantarray函数（也可以叫做wantlist）来检测子程序处于什么上下文当中，并返回一个合适的结果到上下文： sub?contextualSubroutine?{ ? ????#?Caller?wants?a?list.?Retu[详细]
-
perl的文件测试（基础）
所属栏目：[大数据] 日期：2020-12-16 热度：118
? 文件测试 函数-e是一个内置函数，测试文件是否存在。 print?"what"?unless?-e?"/usr/bin/perl";? 函数-d则是一个内置函数，测试指定的文件是否是一个目录。 函数-f测试给定的文件是否是一个文本文件。 这是a large class of functions中的三个函数，以-X[详细]
-
perl中模块的概念（基础）
所属栏目：[大数据] 日期：2020-12-16 热度：56
? 模块 模块是一个.pm文件，可以在其他Perl文件（脚本或者模块）中引用。模块是一个文本文件，和perl脚本.pl的语法一模一样。模块的例子可以参考C:foobarbazDemoStringUtils.pm或者/foo/bar/baz/Demo/StringUtils.pm，代码如下： use?strict; ? use?war[详细]
-
perl中包（package）的概念
所属栏目：[大数据] 日期：2020-12-16 热度：55
? ?? ?? package mypack;? 包文件的起始语句 此语句定义一个名为mypack的包，从此以后定义的所有变量和sub的名字都存贮在该包关联的符号表中，直到遇到另一个package语句为止。 ???? 包文件——包是面向对象的概念 #！/usr/bin/perl package xxx;???????????[详细]
-
Perl的特殊符号
所属栏目：[大数据] 日期：2020-12-16 热度：159
@ ? ? ? 数组 ? ? ? ? ? ? ? ? ? ? ? ? ?? $x{} ? x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素 % ? ? ? 要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。 $! ? ? ?系统产生的一些可读的信息,也可能是[详细]
-
perl数组函数
所属栏目：[大数据] 日期：2020-12-16 热度：69
? ? grep：在列表中抽取与指定模式匹配的元素 调用语法 @foundlist=grep(pattern,@searchlist); 参数pattern为欲查找的模式，返回值是匹配元素的列表。? @list=("This","is","a","test");? @foundlist=grep(/^[tT]/,@list); ? splice：可以向列表（数组）中[详细]
-
Perl中BEGIN语句块
所属栏目：[大数据] 日期：2020-12-16 热度：78
? BEGIN语句块 BEGIN语句块在perl完成解析该块的时候被执行，甚至在文件其他代码被解析之前。在执行的时候会被忽略： use?strict; ? use?warnings; ? ? print?"This?gets?printed?second"; ? ? BEGIN?{ ? ????print?"This?gets?printed?first"; ? } ? ? prin[详细]
-
Perl中use函数
所属栏目：[大数据] 日期：2020-12-16 热度：140
? use 现在，你已经知道迟钝的行为和包的语义，模块，类方法和BEGIN块。现在可以解释经常看到的use函数。 以下3个语句： use?Caterpillar?("crawl",?"pupate"); ? use?Caterpillar?(); ? use?Caterpillar;? 跟下面是等价的： BEGIN?{ ? ????require?Caterpil[详细]
-
Perl基础教程：多线程编程
所属栏目：[大数据] 日期：2020-12-16 热度：148
Tutorial on threads in Perl Perl的线程教程 一、DESCRIPTION This tutorial describes the use of Perl interpreter threads (sometimes referred to as ithreads)? that was first introduced in Perl 5.6.0.? In this model,each thread runs in its own[详细]
-
perl_IO::Socket简介
所属栏目：[大数据] 日期：2020-12-16 热度：94
导入IO::Socket包: use IO::Socket; 讲解: ???? IO::Socket下又有两个子类IO::Socket::INET与IO::Socket::UNIX，我们 现在用的当然是IO::Socket::INET了。 ---------------------------------------------------------------------------- Notes: 作为一个简[详细]
-
perl_IO::Socket模块简单实例
所属栏目：[大数据] 日期：2020-12-16 热度：62
???????? socket的英文原义是“孔”或“插座”。作为4BDS UNIX的进程通信机制，取后一种意思。通常也称作"套接字"，用于描述IP地址和端口，是一个通信链的句柄。在Internet上的主机一般运行了多个服务软件，同时提供几种服务。每种服务都打开一个Socket，并[详细]
-
Perl中的布尔值
所属栏目：[大数据] 日期：2020-12-16 热度：115
我们知道,在Perl中,并没有专门的布尔值类型,但是在一些Perl文档中,你经常会看到诸如"某个函数返回了一个布尔值"或者"某个函数返回了true(或false)"等等这样的言论.那么,究竟哪种说法是对的呢? Perl的确没有专门的布尔值类型,但是当任何一个标量放在 if 条件[详细]
-
perl查看百家姓位置
所属栏目：[大数据] 日期：2020-12-16 热度：76
? 输入百家姓后回车，得到百家姓的排列的数字，目前支持赵钱孙李周吴郑王。 #!/usr/bin/perl chomp ($c = STDIN); ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?定义变量c从键盘获取，并自动去掉换行符 @names = qw/ zhao qian sun li zhou wu zheng wang/; 定义列表names[详细]
-
perl学习之SSH相关
所属栏目：[大数据] 日期：2020-12-16 热度：103
安装模块： cpan?-i?Net::SSH::Perl?? cpan?-i?Net::SCP::Expect Net::SSH::Perl perl代码： #查看 192.168 . 1.102 服务器的/tmp目录下的文件?? my?$ssh?=?Net::SSH::Perl-new( '192.168.1.102' );?? $ssh-login( 'user' ,? 'password' );?? $ssh-cmd( 'ls?[详细]
-
Perl 与 Python 之间的一些异同
所属栏目：[大数据] 日期：2020-12-16 热度：150
Perl 与 Python 之间的一些异同 简介： ?Python 和 Perl 作为主流脚本语言中的成员，在语法等方面有很多相似之处，却又存在一定的差异。本文通过对这两种语言的比较，从而使得相关开发人员可以更深刻的了解和掌握这两种语言。 erl 与 Python 的起源和特点 Pe[详细]
