#!/usr/bin/perl use strict;use DBI;my $dbName = 'dwh1';my $dbUser = 'dwm';my $dbUserPass = 'dwm';my $dbh =...
转载
2014-12-31 10:20:00
124阅读
2评论
我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)
领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知.
用到email::send模块,因为需要用到Gmail
#!/usr/bin/perl
use warnings;
use strict;
use Email::Sen
推荐
原创
2012-11-05 16:45:39
941阅读
点赞
2评论
此代码只可做参照，因每个项目不同，拉取代码的方式不同此项目有多个服务微服务架构：pay-parent-pom pay-soa-base pay-spi 等 因此更新每个服务需要将服务git pull，很费时间，所以写了此shell脚本，一键更新所有的服务至最新。思想：遍历所有的dirs服务列表，一个个命令更新执行。
原创
2022-03-29 11:39:19
1888阅读
在Linux系统上，Perl编程语言是一个非常强大灵活的工具，它可以让用户轻松地编写脚本以自动化各种任务。本文将介绍如何在Linux环境下编写Perl脚本。
首先，要在Linux系统上编写Perl脚本，你需要安装Perl解释器。大多数Linux发行版都默认安装了Perl，如果你的系统上没有安装Perl，你可以通过包管理工具来安装它，比如在Ubuntu系统上你可以使用以下命令来安装Perl：
`
#! /usr/bin/perl#this script is used to backup the dns files before modifiy #also if there is any mistaken,you can restore the filesuse strict;use warnings;use File::Copy::Recursive "dirco
原创
2010-05-13 23:04:26
530阅读
近期偶然玩了一下CGI，收集点资料写篇在这里留档。 如今想做HTTP Cache回归測试了，为了模拟不同的响应头及数据大小。就须要一个CGI按须要传回指定的响应头和内容。这是从老外的測试页面学习到的经验。CGI事实上就是使用STDIN和环境变量作为输入, STDOUT做为输出。按照Http协议生成相
转载
2017-04-21 20:17:00
130阅读
2评论
目标：以整合各类项目管理系统中的用户体系及权限体系为目标，实现SVN的集成式动态鉴权支持平台：usvn、禅道等 - 开发中，本文仅对前期的探索工作做点整理开发环境：Windows、XAMPP 1
转载
2014-06-23 08:03:00
134阅读
2评论
地址：https://github.com/1054294965/git-tianlong-note/tree/test主要是
原创
2023-03-16 20:08:17
186阅读
一、git介绍Git是一个开源的分布式版本控制系统，可以有效、高速地处理从很小到非常大的项目版本管理 。分布式版本控制系统 没有 “中央服务器” ，每个人的电脑上都是一个完整的版本库。二、git的四个重要概念1.工作区：我们本地的项目文件夹，也是我们修改代码的地方。2.暂存区：暂存修改的地方，使用git add可以把修改提交到暂存区。3.版本库：真正存放每个版本代码的地方。记录了代码的各个版本，使
转载
2023-06-16 20:40:53
166阅读
内存、磁盘 不足%5、%10、%15通过钉钉进行告警。
原创
2023-08-09 11:48:49
142阅读
git commit -m "hello world" Commit message 的格式 每次提交，Commit message 都包括三个部分：Message header，Message body 和 Message footer。 <type>(<scope>): <subject> // ...
转载
2021-07-20 18:39:00
296阅读
2评论
IDEA Commit message 编写参考: Commit message 和 Change log 编写指南安装
原创
2022-09-15 11:14:56
1102阅读
前言近期使用Typora编写文档的时候，写一些篇章比较短的文章还好。但是当篇章过长，标题目录过多的时候，那样就会导致阅读效果很差
原创
2022-07-22 22:09:53
252阅读
my @ss = ("a","b","c","d");print $ss[1] 显示为aprint @ss[1,3] 显示为a c@ss的标量为4if (@ss < 5){command}else{command}if($date == $today){command;}elseif($date == $christmas){command;}else{command;}prin
原创
2014-01-20 19:52:01
566阅读
一、system perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态. [root@AX3sp2 ~]# cat aa.pl #! /usr/bin/perl -w $file = "wt.pl"; system("ls -l wt.pl ...
转载
2021-07-16 10:05:00
1178阅读
2评论
今天学习了perl的哈希 哈希符号%%#!/usr/bin/perl perl头，如果不能运行则需要换成 #!/usr/bin/perl -wmy %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4); 哈希数a对应1、b对应2、c对应3、d对应4 也可写成my %ss = ('a',1,'b',2,'c',3,'d',4);
原创
2014-01-20 19:50:47
999阅读
perl 编码风格：
1.K.R
2.GNU
3.BSD
采用K&R
转载
精选
2011-01-19 16:16:06
427阅读
x? 匹配 0 次或一次 x 字符串 /cg?i/ 找到 c 后面跟着 0个或是 1个 g ，再跟着 i 的字符串，如同/cg{0,1}i/ ...
转载
2017-01-10 17:33:00
694阅读
2评论
如果对于一个绝大部分内容是静态的网站，只有极少数的地方需要动态显示，碰巧你又了解一点perl知识，那么nginx + perl的结合就能很好解决问题。要想nginx支持perl脚本，在编译nginx时候需要如下参数：./configure --with-http_perl_module如果make时候出现如下类似错误： Can’t locate ExtUtils/Embed.pm in @INC
[oracle@jhoa 2]$ cat a2.pl foreach $key (keys %main::) {print "\$$key => $main::{$key}\n";}[oracle@jhoa 2]...
转载
2014-12-25 21:02:00
146阅读
2评论
