摘要：
我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知.用到email::send模块,因为需要用到Gmail复制代码代码如下:#!/usr/bin/perluse warnings;use strict;use Email::Send;use Email::Send::Gmail;use Email::Simple::Creator;my @list = qw/1.1.1.12.2.2.23.3.3.3/;foreach my $re (@ 阅读全文
摘要：
这个perl文件将执行的任务是， 按照指定的文件夹目录，自动将该文件夹下的所有文件上传到指定ftp站点的指定目录下本应用程序设计的几个基本理念是：工具箱再利用：尽可能利用已有的工具；简化运行步骤；不引入过多的业务逻辑，满足的需求越简单越好。所以，我们定义了本应用程序依赖于以下几个工具的运行：ActivePerl-5.8.4.810-MSWin32-x86Upload.plUpload.config我们将主要的执行逻辑都放在Perl源文件Upload.pl中了，配置文件为Upload.config。这个perl文件将执行的任务是， 按照指定的文件夹目录，自动将该文件夹下的所有文件上传到指定ftp 阅读全文
摘要：
perl特殊符号及默认的内部变量，有需要的朋友不妨参考下Perl的特殊符号@ 数组$x{} x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素% 要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。$! 系统产生的一些可读的信息,也可能是出错的信息$_ 子函数参数变量自己本身@_ 子程序的私有变量&x 调用子函数x 数据输入.如果没有指定文件名,则其从标准输入流中自动打开和关闭一系列文件进行读入Perl默认的内部变量$- 当前页可打印的行数,属于Perl格式系统的一部分$! 根据上下文内容返回错误号或者错 阅读全文