2020-02-16 标签:perl,ping,检测,功能,脚本,代码,第一个,用于,生产,环境,优秀,但也,迈出,扎实,一步,领导,任务,一批,ip,列表

我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知.用到email::send模块,因为需要用到Gmail实现代码如下：#!/usr/bin/

2020-02-16 标签:perl,pop,push,shift,unshift,实例,介绍,学习,记录,实现,代码,如下,usr,bin,w,use,strict,print,a,b

学习记录一下实现代码如下：#!/usr/bin/perl -w use strict; print '@a @b @c @d 的值都为1 2 3',"\n"; my @a = (1..3); pop(@a); print "\@a的值为@a,pop拿掉数组最右边的值\n"; my @b = (1..

2020-02-16 标签:perl,push,用法,子程序,返回,值的,反思,pop,操作,数组,元素,取出,array,fred,得到,现在

pop 操作将数组的最后一个元素取出并返回： @array=5..9; $fred=pop(@array); #$fred 得到 9，@array 现在为（5，6，7，8） $barney=pop@array; #$barneygets8,@array 现在为（5,6,7） pop@array; #

2020-02-16 标签:perl,子程序,运用,变量,私有,声明,重要性,转换,程序,简单,dna,序列,a,转变成,t,情况,使用,实现

一个转换程序，简单的把DNA序列中的A转变成T，第一种情况没有使用私有变量。实现代码如下：#!/bin/perl#下面是一段DNA序列$DNA=ATTATATAT;#这里是我们的序列$result=A_to_T($DNA);print "I changed all $DNA A to T, and

2020-02-16 标签:perl,格式化,输出,chomp,重要性,分析,实现,代码,如下,bin,perlprint,please,input,lines,press,ctrl,z,n,s

实现代码如下：#!/bin/perlprint "please input some lines,then press Ctrl+Z. \n";chomp(@s=);print "1234567890"x 3 ."\n";#做为输出结果的一个标尺foreach $s(@s){printf "%20s

2020-02-16 标签:perl,高级,排序,amp,lt,gt,操作,飞船,按照,要求,进行,实现,代码,如下,bin,n,umber,qw

按照要求进行的排序：实现代码如下：#!/bin/perl@number=qw/5 10 15 3 2 4 8 6 /;my @descending =sort {$a$b} @number;#这里$a=5,$b=10,因为$a在前，perl得到的结果是小数在前，也就是升序排列print "@desc

2020-02-16 标签:perl,文件,读取,数据,输出,实现,代码,window,某个,格式,open,filehand,路径,e,g,d,data,txt,打开

window下读取某个文件，格式是：open (filehand,"路径e.g：d:\\data.txt");然后将打开的内容赋值给一个变量：$protein=;附：一个读取蛋白质序列的程序。实现代码如下：#!/bin/perlopen (PROTEINFILE,"f:\\perl\\data.tx

2020-02-16 标签:perl,处理,csv,文件,例子,实现,代码,如下,usr,bin,use,strict,open,file,c,bx,users,books

实现代码如下：#!/usr/bin/perl#use strict;open(FILE1,"C:/Perl/BX/BX-Users.csv");open(FILE2,"C:/Perl/BX/BX-Books.csv");open(FILE3,"C:/Perl/BX/BX-Book-Ratings.c

2020-02-16 标签:perl,字符串,处理,备忘录,chop,chomp,函数,都以,作为,参数,去除,末尾,一个字,区别,无论,是什么,都会

1. chop和chomp函数　两个函数都以字符串作为参数，并去除其末尾最后一个字符。区别是，无论最后一个字符是什么，chop都会去除，并在返回值中返回；而仅当字符串最后一个字符与特殊变量$/保存的字符一样时，chomp才会将其去除。默认情况下$/保存换行字符，当然可以重设。　　1）如果函数参数是一

2020-02-16 标签:perl,学习,基本,备忘录,数组,初始化,array,stringa,stringb,stringc,使用,索引,循环,检索,print,输出

1.Perl数组(1):1) 初始化数组 @array = ( "stringA" , "stringB" , "stringC" );2) 使用负索引循环检索　print $array[-1];#输出索引为(-1 + 3) % 3 = 2 的 stringC3) 动态增长 $array[4] =