2020-02-16 标签:perl,a,b,介绍,即使,打开,strict,warnings,选项,也无,下面,代码,并无,错误,警告,实现,如下,usr,bin

即使打开了strict和warnings选项也无妨，下面代码并无错误和警告。实现代码如下：#!/usr/bin/perluse strict;use warnings;sub test {$a = 1;$b = 2;print $a, "\n";print $b, "\n";}test();1;下面

2020-02-16 标签:perl,模块,data,dumper,应用,一例,分享,实现,代码,如下,usr,bin,perluse,strict,use,warnings,hash,n,ame,zdd

实现代码如下：#!/usr/bin/perluse strict;use warnings;use Data::Dumper;my %hash = ('name' => 'zdd','id'=> 1234,);print Dumper(\%hash); # use reference h

2020-02-16 标签:perl,获取,日期,时间,实例,代码,注意,localtime,年份,相对于,1900,偏移,需要,加上,month,范围,11

注意：localtime获取的年份是相对于1900的偏移，需要加上1900，而localtime获取的month范围是0-11，需要加1。实现代码如下：#!/usr/bin/perlmy ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = l

2020-02-16 标签:perl,比较,文件,字符串,实例,代码,需求,一行,和文,所有的,数据,进行,相同,保存起来,否则,删除

需求：取文件1中的一行，和文件2中所有的数据进行比较，有相同的保存起来，否则删除。实现代码如下：#!/usr/bin/perl#use strict;open(FILE1,"C:/Perl/BX/BX-Users.txt");open(FILE2,"C:/Perl/BX/BX-Book-Rating

2020-02-16 标签:perl,chomp,chop,区别,介绍,是用,删除,换行,实现,代码,如下,usr,bin,c,abcde,print,n,root,ak

chomp是用来删除换行符. 实现代码如下：#!/usr/bin/perl $c="abcde"; chomp($c); print "$c\n"; [root@ak]# perl a.pl abcde chop是用来删除最后一个字符. 实现代码如下：#!/usr/bin/perl $c="abcd

2020-02-16 标签:perl,chomp,使用,介绍,chop,函数,区别,例子,实现,代码,如下,bin,perlprint,please,input,string,a,n,umber,order

例子：实现代码如下：#!/bin/perlprint "Please input an string and a number by order!\n";$the_string=<>;$the_numb=<>;print "The result is \n";print "$

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