Perl
关注
分享
扫一扫
文章平均质量分 62
lzqustc
这个作者很懒，什么都没留下…
展开
-
Perl之HTTP::Request
use URI::Escape;#URL编码use JSON; #发送GET请求use LWP::Simple; my $tmp = "您本次操作的验证码为：$code";my $smsmsg = uri_escape_utf8($tmp); #URL编码my $args="http://xxx?p=".$phone."&c=$smsmsg";my ...原创 2016-07-22 13:49:29 · 1526 阅读 · 0 评论 -
Perl之Net::SMTP
用户Perl写个脚本，使用Net::SMTP模块发邮件： #!/usr/bin/perl -wuse warnings;use utf8;binmode(STDIN, ':encoding(utf8)');binmode(STDOUT, ':encoding(utf8)');binmode(STDERR, ':encoding(utf8)'); use JS...原创 2017-10-16 16:54:25 · 1163 阅读 · 0 评论 -
Perl服务端通过CGI获取客户端ip地址
use CGI; my $remoteip = $ENV{"REMOTE_ADDR"}; --> 客户端IP地址my $remoteport = $ENV{"REMOTE_PORT"}; --> 端口my $http_via = $ENV{"HTTP_VIA"}; --> VIA头部 可以根据下面方式，查看整个http头部内容：my $ua...原创 2017-10-17 10:20:40 · 861 阅读 · 0 评论 -
Perl之Linux::Inotify2
关于 inotify 机制的详细介绍可以参考文章：inotify -- Linux 2.6 内核中的文件系统变化通知机制文章写得很详细，而且还给出了c语言实现的例子。 下面我就来说说Perl里面，如何利用Linux::Inotify2 实现任务异步操作的例子。比如 A进程（线程）将要完成的任务按一定规则 写到inotify监控的目录下，通过inotify机制自动解析并完成任...原创 2017-10-17 11:09:31 · 332 阅读 · 0 评论 -
Perl获取微信小程序二维码
微信小程序API：https://mp.weixin.qq.com/debug/wxadoc/dev/api/qrcode.html # 参数 $path即页面路径，比如："pages/index?query=1"sub get_wxa_code { my ($fid, $path) = @_; my $ret = get_access_token()...原创 2017-10-17 11:50:34 · 312 阅读 · 0 评论 -
PC网站通过微信扫码支付之服务端实现
支付申请说明参考：https://pay.weixin.qq.com/wiki/doc/api/native.php?chapter=3_1 微信扫码支付可分为两种模式，本示例选择模式二，具体流程及API文档参考：https://pay.weixin.qq.com/wiki/doc/api/native.php?chapter=6_5 下面仅说明服务端的实现，主要包含两部分...原创 2017-10-17 17:28:28 · 977 阅读 · 0 评论 -
苹果应用内支付之服务端的实现
本文主要讲移动APP实现苹果支付的服务端实现步骤。 苹果应用内支付的流程可参考：1、 官网说明：https://developer.apple.com/library/content/releasenotes/General/ValidateAppStoreReceipt/Chapters/ValidateRemotely.html#//apple_ref/doc/uid/TP40...原创 2017-10-18 11:21:22 · 2343 阅读 · 0 评论 -
支付宝移动支付之服务端实现
支付宝（蚂蚁金服）移动支付的交互流程请参考：https://doc.open.alipay.com/doc2/detail?treeId=59&articleId=103658&docType=1 和微信支付的流程大体一致，即：1、客户端提交订单内容信息2、服务端根据订单内容信息（可以根据业务需要添加额外信息，而且要指定notify_url地址），按照签名规则生...原创 2017-10-18 15:30:38 · 406 阅读 · 0 评论 -
Perl之Net::APNS实现苹果消息推送
Net::APNS is Apple Push Notification Service. Push message to iPhone and get unavalble-devicetoken. 苹果开发者官网说明：The APNs provider API lets you send remote notification requests to APNs. Net::A...2017-10-18 16:26:42 · 207 阅读 · 0 评论 -
MongoDB开发LBS应用
随着近几年各类移动终端的迅速普及，基于地理位置的服务（LBS）和相关应用也越来越多，而支撑这些应用的最基础技术之一，就是基于地理位置信息的处理。关于LBS的详细介绍及通用的几个解决方案，可以参考：深入浅出Symfony2 - 结合MongoDB开发LBS应用 本文主要举例说明使用Perl语言 + MongoDB实现查找附近的人的实现方案。涉及的官方API说明文档列表：1、2...2017-10-18 17:04:43 · 242 阅读 · 0 评论 -
Perl之Spreadsheet::ParseExcel
转载：http://www.alonely.com.cn/CGI-Perl/20160908/29061.html use strict;use Spreadsheet::ParseExcel; my $parser = Spreadsheet::ParseExcel->new();my $workbook = $parser->Parse('Book1...原创 2017-04-06 11:37:57 · 2046 阅读 · 0 评论 -
Perl之Spreadsheet::WriteExcel
一般导出excel功能是出现在后台管理系统中，运营人员为了便于统计，经常需要将大量数据导出。本文主要描述如何将mongodb查询出来的数据写入excel表格。 一、安装相关模块：1、MongoDB -> 操作数据库接口文档https://metacpan.org/pod/distribution/MongoDB/lib/MongoDB/Tutorial.pod ...原创 2017-04-06 11:13:27 · 3268 阅读 · 0 评论 -
Perl之Time::Local
use Time::Local; my $now = time(); #取当前的unix时间戳 my ($sec,$min,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime();$year = $year + 1900; #注意$year表示它表示从1900年开始的年份，要处理$month = $month ...原创 2016-07-22 14:16:58 · 749 阅读 · 0 评论 -
Perl之Encode::Detect
以处理csv（内容含中文）为例，使用Encode 模块。因为csv如果包含中文，需要转码否则出现分割列的时候会出现错位。 use Encode qw /from_to/;use Encode::Detect::CJK qw(detect); sub test_csv {my $file_name = $_[0];my $table;open(CSV, $file...原创 2016-08-29 14:44:31 · 1533 阅读 · 0 评论 -
Perl之List::Util
#!/usr/bin/perluse List::Util qw/max min sum maxstr minstr shuffle/; 利用 List::Util::shuffle创建一个随机排序的数组。 sub create_rand_array { my ($min, $max)= @_;my @a = ($min..$max);@a = L...原创 2016-08-29 15:19:32 · 622 阅读 · 0 评论 -
微信内网页开发 - 微信分享（微信JS-SDK）
接口文档：微信JS-SDK说明文档 微信JS-SDK是微信公众平台面向网页开发者提供的基于微信内的网页开发工具包 一、先登录微信公众平台进入“公众号设置”的“功能设置”里填写“JS接口安全域名”。 二、H5页面引入JS文件：http://res.wx.qq.com/open/js/jweixin-1.0.0.jswx.config({ debug: tru...原创 2017-03-22 11:07:57 · 211 阅读 · 0 评论 -
微信内网页开发 - 公众号支付
接口文档：https://pay.weixin.qq.com/wiki/doc/api/jsapi.php?chapter=7_4 开发步骤：一、设置支付授权目录 二、流程1、前端H5页面请求服务端生成唯一订单号（包括用户信息，支付金额，商品信息等），服务端在数据库创建一条新记录2、前端H5页面请求服务端Perl CGI脚本进行支付： 例如https:/xxxx...原创 2017-03-22 13:14:53 · 219 阅读 · 0 评论 -
Perl之stat()函数
转载：http://blog.chinaunix.net/uid-10449864-id-2956793.html perl下的stat函数和shell下的stat命令的功能基本一致，也是取得文件的各类具体信息：stat()函数返回一个数组，下面是数组各个元素的含义：0 dev 设备号 驱动器号（C：通常是2，D：通常是3，等等）1 ino 索引节号...原创 2017-03-22 14:23:46 · 3980 阅读 · 0 评论 -
Perl之POSIX
利用POSIX模块处理 向下/向上取整 use POSIX;POSIX::ceil(3.14) => 4 #向上取整POSIX::floor(3.14) => 3 # 向下取整， 等同于 int(3.14) 利用Math::Round 做四舍五入 use Math::Round;my $num = 45.4;my $round = M...原创 2017-03-22 14:38:21 · 3231 阅读 · 0 评论 -
微信内网页开发 - 公众号发红包
接口文档：https://pay.weixin.qq.com/wiki/doc/api/tools/cash_coupon.php?chapter=13_4&index=3 一、开通现金红包权限二、下载API证书三、充值以上步骤请参考：https://pay.weixin.qq.com/wiki/doc/api/tools/cash_coupon.php?cha...原创 2017-03-22 16:29:26 · 426 阅读 · 0 评论 -
微信内网页开发 - 授权登录
接口文档：http://mp.weixin.qq.com/wiki/4/9ac2e7b1f1d22e9e57260f6553822520.html 一、开发者需要先到公众平台官网中的开发者中心页配置授权回调域名，也就是授权链接里面的redirect_url指向的服务器域名。比如你的REDIRECT_URI是 http://www.iteye.com/cgi-bin/wechat.p...原创 2017-03-23 09:48:01 · 355 阅读 · 0 评论 -
Perl获取微信小程序用户信息(包含openid,unionid)
涉及微信小程序相关AIP如下：1、wx.login2、wx.getUserInfo3、用户数据的签名验证和加解密接口wx.getUserInfo当中的 openId 和unionId属于敏感数据，所以接口的明文内容将不包含这些敏感数据。开发者如需要获取敏感数据，就需要对接口返回的加密数据( encryptedData )进行对称解密。 解密算法如下：对称解密使用的算...原创 2017-10-23 10:21:40 · 391 阅读 · 0 评论