Perl环境及飞书机器人脚本

OPENSSL 安装

检查版本

openssl version -a

如果已经安装则测试一下信息

OpenSSL 1.0.2k-fips  26 Jan 2017
built on: reproducible build, date unspecified
platform: linux-x86_64
options:  bn(64,64) md2(int) rc4(16x,int) des(idx,cisc,16,int) idea(int) blowfish(idx) 
compiler: gcc -I. -I.. -I../include  -fPIC -DOPENSSL_PIC -DZLIB -DOPENSSL_THREADS -D_REENTRANT -DDSO_DLFCN -DHAVE_DLFCN_H -DKRB5_MIT -m64 -DL_ENDIAN -Wall -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector-strong --param=ssp-buffer-size=4 -grecord-gcc-switches   -m64 -mtune=generic -Wa,--noexecstack -DPURIFY -DOPENSSL_IA32_SSE2 -DOPENSSL_BN_ASM_MONT -DOPENSSL_BN_ASM_MONT5 -DOPENSSL_BN_ASM_GF2m -DRC4_ASM -DSHA1_ASM -DSHA256_ASM -DSHA512_ASM -DMD5_ASM -DAES_ASM -DVPAES_ASM -DBSAES_ASM -DWHIRLPOOL_ASM -DGHASH_ASM -DECP_NISTZ256_ASM
OPENSSLDIR: "/etc/pki/tls"
engines:  rdrand dynamic 

如果未安装则运行命令

wget http://www.openssl.org/source/openssl-1.1.0 
tar -zxv openssl-1.0.2p.tar.gz
cd openssl-1.0.2p/
./config 
make && make install
./config shared 
make clean
make  && make install

安装PERL

yum install perl

安装CPANM

yum install perl-CPAN
yum install -y perl-App-cpanminus.noarch

如果找不到yum,请到到git仓库源码下载 https://codeload.github.com/miyagawa/cpanminus/tar.gz/App-cpanminus-1.7907

tar -xzvf cpanminus-App-cpanminus-1.7907.tar.gz 
cd  cpanminus-App-cpanminus-1.7907/App-cpanminus/
perl Makefile.PL
cp bin/cpanm /usr/bin/cpanm
cpanm -h  ##检查安装成功

安装HTTPS模块及JSON依赖包

https请求需要依赖一下模块

cpanm JSON
cpanm Crypt::SSLeay
cpanm LWP::Protocol::https --force

报警程序

#!/usr/bin/perl
use utf8;
use strict;
use warnings FATAL => 'all';
use HTTP::Request;
use HTTP::Headers;
use LWP::UserAgent;
use JSON;


my $flyserver="https://open.feishu.cn/open-apis/bot/v2/hook/";
my $flytokent="17d8d6d5-9f9d-479e-b6cb";

my $json = JSON->new();

sub sendMessage{
	my $message={text=>$_[0]};
	my $header = HTTP::Headers->new( Content_Type => 'application/json; charset=utf8', );
	my $url=$flyserver.$flytokent;
	my $data={content=>$message,msg_type=>"text"};
	my $http_request = HTTP::Request->new( POST => $url, $header, encode_json($data));
	my $user_agent = new LWP::UserAgent;
	my $response = $user_agent->request($http_request);
	print $response->content;
}
sendMessage("perl 报警测试");