举个栗子

马辰龙De技术分享

:: :: :: ::

::

随笔分类 - Perl

一道关于停车计费的问题

摘要：程序允许30分钟，期间要求用户输入来模拟车辆进入、出去的行为输入的内容为一串字符串，每个不同的字符串代表一辆车. 程序允许30分钟，期间要求用户输入来模拟车辆进入、出去的行为输入的内容为一串字符串，每个不同的字符串代表一辆车. 纪录所有车每次进出的时间，计算时间、次数和价格. 价格依照价格表，阶阅读全文

posted @ 2016-07-11 10:53 ChenlongMa 阅读(368) 评论(0) 推荐(0)

求两个字符串最大公共字符串(听说是微软几年前面试题)

摘要：两个字符串的最大公共子串,是一个程序员们常常考到和想到的题目，听讲是当年微软面试时要求做的一个程序,写一个返回两个任意字串中最大公共串的函数，即abcdef 和 qcfbcc 返回值为bc 注：你要考虑到字符串中最大公共串相等的问题。例如 dddabd123456abcdefeeeee 234dd 阅读全文

posted @ 2016-07-11 10:51 ChenlongMa 阅读(363) 评论(0) 推荐(0)

ucloud api 签名加密perl版

摘要：ucloud api文档中对签名加密的方法实在看不明白，而且没有perl版本，特意写了一份供大家参考阅读全文

posted @ 2016-07-09 14:30 ChenlongMa 阅读(555) 评论(0) 推荐(0)

perl 增量、全量备份脚本

摘要：脚本采用json配置文件，可以自定义，备份目录，全量备份周期，增量备份时间等。 JSON配置文件: 主程序阅读全文

posted @ 2016-07-09 14:20 ChenlongMa 阅读(578) 评论(0) 推荐(0)

使用Mail::Sender发送带图片的html邮件

摘要：需要指出的一定要保持编码的一致，否则会导致要么html乱码，或者主题乱码。如果有多个图片，可以采用多个Attach，html调用的图片名称为Attach中定义的。效果图： config.ini 阅读全文

posted @ 2016-07-09 14:17 ChenlongMa 阅读(1048) 评论(0) 推荐(0)

zabbix api 获取所有主机名、IP

摘要：主要添加了1条selectInterfaces记录，本质就是对于数据库就是join这张表。perl代码如下：阅读全文

posted @ 2016-07-09 14:13 ChenlongMa 阅读(4894) 评论(0) 推荐(0)

使用coro+anyevent 异步协程获取IP运营商

摘要：主要使用coro协程+AnyEvent::HTTP::LWP::UserAgent 异步http请求，查询数据库中IP字段，返回运营商。如需要获取其他类型的字段，修改正则即可，此方法的好处是，不需要获取本地IP库，提高IP精准度。缺点，需要很好的网络质量。CODE如下: 阅读全文

posted @ 2016-07-09 14:12 ChenlongMa 阅读(478) 评论(0) 推荐(0)

keepalive配置文件转化JSON

摘要：无论在管理LVS配置中，对keepalive的配置文件管理是必不可少的，解析配置文件也是核心功能之一，现在把自己写的一些思路分享给大家~ 阅读全文

posted @ 2016-07-09 14:05 ChenlongMa 阅读(535) 评论(0) 推荐(0)

perl版阿里云签名公共参数方法

摘要：阿里云的签名验证真心蛋疼,比如时间戳做了二次utf8转码,文档中的签名结果与实际不相符等. 阅读全文

posted @ 2016-07-08 21:54 ChenlongMa 阅读(464) 评论(0) 推荐(0)