#!/usr/bin/perl$count=0;while($count < 100){print "\n\n\n\n";print "please input password: \n";$count+=2;#print "$count \n";$ftp=1;$news=2;$zhaoyun=3;$postfix=4;$oracle=5;$ntp=6;$line=<STDIN>
原创
2011-11-27 07:58:30
608阅读
#!/usr/bin/perl -w#output the largest number from a file$max_number = &max(3,5,10,4,6) ;sub max { my($max_sofar_
原创
2010-01-21 17:01:10
1607阅读
点赞
3评论
以前看小骆驼书，习题中的小程序，稍微复习点吧，暑假我再系统学习下，之前的老忘，希望博客让我记住他们。
原创
2015-06-06 19:10:09
1519阅读
perl并不难学
只有你肯学习
原创
2012-05-19 13:26:52
584阅读
[tomcat@wx02 test]$ pwd/home/tomcat/test[tomcat@wx02 test]$ cat Pkg1.pm package Pkg1;sub fun1 {print "aaaaaa\n";};1;[tomcat@wx02 test]$ cat Pkg2.pm ...
转载
2016-05-27 20:25:00
40阅读
2评论
[tomcat@wx02 test]$ pwd/home/tomcat/test[tomcat@wx02 test]$ cat Pkg1.pm package Pkg1;sub fun1 {print "aaaa...
转载
2016-05-27 20:26:00
111阅读
2评论
Template:
#!/user/bin/perl -w
use strict;
use warnings;
my $jfjdlsfl = ;
Example: 读取文件中的字符串，将每个字符串中的小写字母换成大写字母
#!/user/bin/perl -w
use strict;
use warnings; ##注意加这些title
open FIN, "<classl
原创
2023-06-29 10:03:42
37阅读
1.字符串比较if($str eq "hello"){ ...}字符串比较必须用eq，用==只适合标量2.字符串连接$str3=$str1."-".$str2;字符串连接必须用.符号，用+的话给整成数字了3.取得当前日期年月日时分秒的常用语句my($sec,$min,$hour,$mday,$mon...
转载
2015-04-02 15:56:00
148阅读
redis01:/root# cat x2.pl my $str="a19823a456123";if ($str =~/a(.*)23/){print "1----".$1."\n";};if ($str =~...
转载
2016-07-04 13:34:00
87阅读
2评论
1.概念：
XML是一种Extensible Mark-up Language，事实上他不是一种mark-up语言，他
是一种用来定义更适合特定tasks的新mark-up语言的方法。他的工作原理是：为
DTDs（Document Type Definitions）定义了语法。一个DTD定义了文档中可以出
现的一系列的元素，元素的属性以及各元素之间的关系；他还定义了元素的强制
性与可选性
原创
2012-11-25 18:04:32
2075阅读
最近在看NetApp的SDK，想做Quota快满时发E-mail给NetApp管理员的这个功能。当然，这个功能只能在目前的autosupport里有体现，智能点的就需要自己来了。本人是Perl初哥，以下代码不是最佳的，只做参考而已。
环境：
NetApp SDK 4.0 / OnTap 7.3.3 /Perl 5.8
大概的流程
1. 可以使用SDK里相关的API可以提取 Quota信息，
原创
2011-04-15 14:22:27
1280阅读
redis01:/root# cat x2.pl my $str="a19823a456123";if ($str =~/a(.*)23/){print "1----".$1."\n";};if ($str =~/a(.*?)23/){print "2----".$1."\n";};redis0...
转载
2016-07-04 13:34:00
127阅读
2评论
readme:
本文摘要perl面向对象编程的相关概念，并提供一个完整案例，文中脚本都已调试通过
使用方法：
在一个文件夹中分别建立oopperl.pl,cocoa.pm,coffee.pm,bean.pm四个文件，并写一个bat文件oopperl.bat
oopperl.bat内容:
@echo off
perl oopperl.pl %*
oopperl.pl文件如下
转载
2023-12-21 21:46:59
83阅读
#!/usr/bin/perl
`cd c:\\windows`;
@lines=`dir c:\\windows\\*.log`;
for($i=0; $i<@lines; $i++){
print
"$i\t\t$lines[$i]\n";
}
Perl真是太强大了，呵呵。
原创
2008-07-21 14:46:54
1429阅读
据传，Perl发送邮件有很多方案，但我只会用Mail::Sender这种方式，也就只能简单谈谈这种方式。 在参考众多网页后，程序书写如下： 但是，程序写好后，执行#perl mail.pl，坏了，报出如下类似错误： Can't locate Mail/Sender.pm in @INC (@INC
转载
2017-01-20 17:14:00
457阅读
子程序，类比c语言中的函数，在形式上个人认为最大的区别：没有形参1.1.定义子程序1.2.调用#! /usr/bin/perlsub marine{ $n += 1 ; print "$n\n" ;}&marine;&marine;1.3.返回值1.3.1. 基本原则所有的Perl 子程序都会返回值，在Perl 中返回值和不返回值是没有区别的。当然，不是所有Perl子程序返回的值都是有用的。由于所有的被调用的子程序都要返回值，因此使用特殊的返回值语法在大多数情况下是一种浪费。因此Larry将之简化了。当Perl 遍历此子程序时，将会计算每一步的值。此子程序中
转载
2013-09-12 21:25:00
116阅读
2评论
v-lhb-db01:/root/sbin# cat s1.pl use Net::SMTP;use HTTP::Date qw(time2iso str2time time2iso time2isoz); s...
转载
2015-05-11 16:57:00
222阅读
2评论
Perl 程序后台执行示例
原创
2021-10-15 21:04:33
514阅读
先验证linux是否安装了perl，使用perl -v测试[root@localhost shell]# perl -vThis is perl 5, version 16, subversion 3 (v5.16.3) built for x86_64-linux-thread-multi(with 33 registered patches, see perl -V for more ...
原创
2021-07-28 10:33:53
337阅读
#!/usr/bin/perl -w#创建子程序检查$values的值# sub printOK# {# if($values>10){# print "Values is $values.\n";# }# else {# print "Value is too sm
原创
2022-06-18 00:02:02
132阅读
