perl 监控数据变化

最新推荐文章于 2024-06-29 17:30:05 发布

scan724

最新推荐文章于 2024-06-29 17:30:05 发布

阅读量768

点赞数

分类专栏： Perl DBI

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/49093827

版权

Perl DBI 专栏收录该内容

54 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这是一个使用Perl脚本监控Oracle数据库中表记录数变化的程序。它首先连接到名为'oadb'的数据库，查询VXSPACE.FORMMAIN_1530表的记录数，并将其与之前存储在count.txt中的数值进行比较。如果记录数发生变化，脚本将发送邮件通知，并更新count.txt文件。

摘要由CSDN通过智能技术生成

!/usr/bin/perl

use strict;

use DBI;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Net::SMTP;
sub send_mail{
if (@_ != 2){print “请输入2个参数\n”;exit 1};
( m,

了解本专栏

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
打赏
0
评论
perl 监控数据变化

!/usr/bin/perluse strict;use DBI; use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP; sub send_mail{ if (@_ != 2){print “请输入2个参数\n”;exit 1}; (m,m,n) = @_; #将参数赋值给变量 my
复制链接

扫一扫

专栏目录

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

打赏作者

scan724 你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20

扫码支付：¥1

获取中

扫码支付

您的余额不足，请更换扫码支付或充值

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。