以下是为您整理出来关于【perl】合集内容，如果觉得还不错，请帮忙转发推荐。
1#!/usr/bin/perl -w 2use strict;3 4#print "please input a string\n";5#my $line = <STDIN>;6#print $line;7 8#wirte a file 9open(FH, ">aa.txt") or die $!; 1011print FH "hello\n";#向文件写入内容12print FH "OK\n"; 1314close(FH); 1516#open a file17open(FH, "aa.txt") or die $!; 18my@f = <FH>;#将文件内容读出19print@f; 2021close(FH); 原文：http://www.cnblogs.com/csu_xajy/p/4229270.html
一、redis数据结构之无序集合（set）redis的集合不是一个线性结构，而是一个哈希表结构，它的内部会根据哈希分子来存储和查找数据，理论上一个集合可以存储2的32次方-1（大约42亿）个元素，因为采用哈希表结构，所以对于redis集合的插入、删除和查找的复杂度都是O(1)。在redis中集合可以对于不同的集合进行操作，如求两个或两个以上集合的差集和交集、并集等操作。 此外需要注意如下三点： 1、集合是无序的； 2、集合中元素是不重复...
学习perl的网站网上学习perl教程，可以参考下面2个网站：1.http://www.runoob.com/perl/perl-tutorial.html2.https://cn.perlmaven.com/perl-tutorial一、Window上安装perl编译器在 Window 平台上有 ActiveStatePerl 和 Strawberry Perl 两种编译器，一般选择后者，http://strawberryperl.com/。下载后直接安装，注意安装路径，似乎不必设置系统环境。二、3种perl IDE可以选择Notepad++（https://notepad-plus-plus.org/）或者DWIM...
Perl中的数组元素起始引用序号为0，@array的第一个元素为$array[0],依次递增，最后一个元素为$array[-1]或者$#array。如果要删除一个数组中已有的元素，可以用以下几个函数来实现。 1.函数名 grep调用语法 @foundlist = grep (pattern, @searchlist);解说 与同名的UNIX查找工具类似，grep函数在列表中抽取与指定模式匹配的元素，参 数pattern为欲查找的模式，返回值是匹配元素的列表。例子 @list = ("This", "is", "a", "test...
soket是网络套接字，它是ip地址和端口号的组合。在perl中使用套接字需要SOCKET模块；以经过测试可以使用：下面使用如下的例子进行说明：服务器端：#!/usr/bin/perl -w use Socket; use IO::Handle; socket(SOCK,AF_INET,SOCK_STREAM,getprotobyname("tcp"));#初始化socket setsockopt(SOCK,SOL_SOCKET,SO_REUSEADDR,1); my $addr=sockaddr_in(3000,INADDR_ANY); bind(SOCK,$addr);#绑定地址 listen(SOCK,SOMAXCONN);#监听 while(1)...
随着对网络安全需求的深入开发，基于网络的入侵检测技术已经成为一个重要且有意思的研究方向。想学习NIDS技术除了去读一些现成的资料和一些开源系统的源码，最好的办法莫过于自己去写一个NIDS程序，只有那样才能真正体会到一些NIDS的实现需求和设计妙处。本质上说NIDS只是一种网络流量的分析工具，通过对网络流量的分析识别出一些已知或未知的攻击行为，一个最简单的NIDS完成的主要工作也就是抓包->协议解码->匹配，众所周知PERL是...
1. 语句块：{ }之间的部分即为BLOCK语句块。2. 条件语句：if ( expression ) BLOCK;if ( expression ) BLOCK1else BLOCK2;if ( expression1 ) BLOCK1;elsif ( expression2 ) BLOCK2;else BLOCK3;#倒置的if语句expression if ( test_expression );涉及到的关系运算符：数字值比较：==, >, <, >=, <=, != ；注意用数字值比较运算符比较字符串时，字符串当作0处理；字符串比较： eq, gt, lt, ge, le, ne；(undef被当作...
我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知.用到email::send模块,因为需要用到Gmail复制代码 代码如下:#!/usr/bin/perl use warnings; use strict; use Email::Send; use Email::Send::Gmail; use Email::Simple::Creator; my @list = qw/ 1.1.1.1 2.2.2.2 3.3.3.3 /; fore...
安装 Excel 模块的 PPM 命令ppm> install OLE::Storage_Lite ppm> install Spreadsheet::ParseExcel ppm> install Spreadsheet::WriteExcel Windows 示例：解析 #!/usr/bin/perl -w use strict; use Win32::OLE qw(in with); use Win32::OLE::Const ‘Microsoft Excel‘; $Win32::OLE::Warn = 3; # die on errors... # get already active Excel application or open new my $Excel = Win32::OLE->GetActiveObje...
大家有没有碰到过unix上，一个目录文件太多，无法删除的现象，我为大家写了个perl的程序删除复制代码 代码如下:cat > del.pl#!/usr/bin/perl $file1=$ARGV[0]; @tests=(1,2,3,4,5,6,7,8,9,‘A‘,‘B‘,‘C‘,‘D‘,‘E‘,‘F‘,‘G‘,‘H‘,‘I‘,‘G‘,‘K‘,‘L‘,‘M‘,‘N‘,‘O‘,‘P‘,‘Q‘,‘R‘,‘S‘,‘T‘,‘U‘,‘V‘,‘W‘,‘X‘,‘Y‘,‘Z‘); foreach $test(@tests) { $file=$file1.$test; @chars=(0,1,2,3,4,5,6,...