325232100的博客_perl_51CTO博客

鸿蒙开发者社区

WOT技术大会

公众号矩阵

移动端

短视频免费课程课程排行直播课软考学堂

全部课程厂商认证 IT技术 24年11月软考 PMP项目管理免费题库

在线学习

文章资源问答课堂专栏直播

51CTO

鸿蒙开发者社区

51CTO技术栈

51CTO官微

51CTO学堂

51CTO博客

CTO训练营

鸿蒙开发者社区订阅号

51CTO软考

51CTO学堂APP

51CTO学堂企业版APP

鸿蒙开发者社区视频号

51CTO软考题库

51CTO博客

首页
关注
排行榜
精品课程
免费直播
软考题库

科目全、试题精、讲解专业，扫码免费刷

搜索历史清空

热门搜索

查看【】的结果
写文章
创作中心
登录注册

# perl

perl监控mysql slave 端口

一个监控mysql replication 是否同步,状态,端口,服务的小脚本.仅供参考. #!/usr/bin/env perl use warnings; use strict; use DBI; use Net::SMTP; use Net::SMTP_auth;&n

mysql

数据库

perl

perl监控

slave port

原创 2011-09-13 17:19:04 915 阅读

perl获取天气预报信息结合139邮箱推送到手机端

最近工作开始忙起来了,也不看天气预报了.直到今天下雨把我淋透了..看来,天气预报还是很重要的.所以写了个小脚本获取 www.ip138.com 接口上的天气预报.通过139邮箱发送到手机端.代码如下: #!/usr/bin/perl use warnings; use strict; use LWP::User

职场

休闲

perl

获取天气预报

原创 2011-09-13 17:00:43 6132 阅读 1点赞 2评论

查询IP地址来源

工作中经常要查看IP地址位于的地址信息,没错,www.ip138.com可以查询到.但是当大批量的查询时,你该怎么办?难道也要一个一个去查询?这种重复性的工作非常耽误时间,不如写个脚本.实现批量查询,脚本和本人博客中的查询手机SIM卡所在省份所使用的方法一样.我也处于刚起步的菜鸟阶段.希望和大家一起学习... 脚本如下: #!/usr/bin/perl -w u

IP

HTML

休闲

perl

TreeBuilder

原创 2011-09-12 15:20:57 2758 阅读

mysql 备份脚本

mysql 备份脚本..写的很一般..高手见了不要笑俺.. #!/usr/bin/perl -w use warnings; use strict; use DBI; my $backup_dir = "/root/perl/backup"; m

mysql

数据库

休闲

mysql备份

mysql_backup

原创 2011-08-09 15:21:13 490 阅读

perl处理文本

公司大批量添加VPN用户,如果一个一个添加手就脱臼了 ... 主配置文件change.conf大体如下: li.jie pptpd Li.jiE 192.168.1.1 dong.zhuo p

职场

休闲

文本

perl

原创 2011-08-03 11:05:03 4832 阅读

小perl的文本处理

employee文件中记录了工号和姓名 100 Jason Smith 200 John Doe 300 Sanjay Gupta 400 Ashok Sharma bonus文件中记录工号和工资 100 $5,000 200 $500 300 $3,00

职场

休闲

perl

perl文本

原创 2011-07-29 13:51:28 673 阅读

perl中的几个模块使用.

perlCPAN模块DBI.DBD::Mysql my $db_host = "localhost"; my $db_port = "3306"; my $db_user = "root";

职场

休闲

perl_module

原创 2011-07-28 17:25:51 722 阅读

统计网络连接数

大家都知道用awk结合netstat统计网络连接数,那么用perl如何实现呢? 如下: netstat -n | awk '/^tcp/ {++state[$NF]} END {for(key in state) print key,"\t",state[key]}' 先看 netstat -n 执行结果为: Active Internet con

netstat

职场

休闲

perl

统计网络连接数

原创 2011-07-26 11:02:13 807 阅读

services.pl

只开启应用服务,并关闭所有不相关的系统服务.提高性能. #!/usr/bin/perl -w use warnings; use strict; my %myservices = ( &nb

职场

休闲

系统服务

perl

服务

原创 2011-07-26 10:06:45 377 阅读