综合型编程论坛

今天在 metacpan 淘模块的时候突然看到陶敏修这个中文名字，眼前一亮 :confidence

原来是 《Perl高效编程》的作者
Dominus.png

FireShot Capture 008 - Perl Programmers - Facebook -

Example
my @s = @{$dom->find("recordset [name=standard_sum]")->map(attr=>"value")};

首发：

视频示例：

其中 use Modern::Perl; 不是必需的。

2018-10 知乎的视频方案已经更新为MP4单文件，更新代码移步 三楼

=info
Author: 523066680
Date: 2018-05
=cut

use Modern::Perl;...

平台最近改版，库存修改极其难用，做一个趁手工具，当作练习。

微信图片_20190902125316.png
Strawberry Perl 5.24
附加模块 IUP =info
AliExpress 库存修改工具
Author: 523066680/vicyang...

用途：线上数百个产品，底价、海外仓库存设置各不相同，在线编辑非常繁琐。
同时平台营销活动的折扣率也需要针对性设置。因此需要一份完整的产品数据表，包含每个产品的ID、主图、最新的SKU、销量信息。

Login.pm 模块需要自行实现，使用 Mojo::UserAgent 登录。 =info...

占位、索引

Win32::Clipboard 模块，只能获取 GBK 格式的文本，要获取 Unicode 字符会出乱子，还得看输入法的设置情况。
但是 Prima 提供的剪切板操作，则支持 UTF8 参数（实质得到的是 UNICODE 编码字符）...

LWP::UserAgent 版

可以关掉脚本重新运行，会判断已完成的部分节省时间。
没开 keep_alive，提取效率偏低
运行环境： Straberry Perl 5.24

Mojo::UserAgent 版，提高效率，请跳转 3楼

=info
Author:...

之前active perl 的包管理工具出问题后就放弃使用，改用 strawberry perl
今天看到 Activestate 发的广告邮件，又下载看了一下，感觉附加模块没有 strawberry 提供的多啊，放弃～

具体的说是 Echarts.js 中使用的 JSON 格式
参考：

option = {
title: {
text: '堆叠区域图'
},
tooltip : {
trigger: 'axis',
axisPointer: {
type:...

某平台订单记录，因为在线获取的记录每一页都有重复的部分，所以代码就长了一些，要判断重叠。
每次执行会叠加更新数据，保存为 perldb 文件，使用 Storable 模块做转储

=info
爬取订单记录、积累数据
Author: 523066680/vicyang
Date:...

天数在20行设置，-7 表示从七天前开始。
my @other_day = daychange( @today, -7 );

=info
获取中行外汇牌价-美元栏目的信息
Code-By: 523066680
Date: 2015-08
=cut

use...

个人用途～
=info
将 Bilibili Download 目录下的 blv 文件收集
修改为 flv 格式 （这个目录是从手机复制到PC的）
2019-05
=cut

use Modern::Perl;
use File::Basename;
use File::Path;...

[5, "+", [[3, "-", 9], "/", 7]]
(29/7)
[[[2, "/", 7], "+",...

我们知道有些函数允许通过传递 “函数引用（指针）” 的形式，注册 “回调函数”。
某些事件循环（如timer, idle）、递归模型通过这种方式将数据传出，并转移部分控制权（由你决定怎么处理数据），回调函数执行完后交还控制权。

举个例子，Lwp::UserAgent...

官方给的一个支持Perl6的编辑器列表

不过我遇到的主要问题主要是命令行无法显示Perl6的一些输出字符，比如 ｢ ｣，设置 chcp 65001 也不能正常显示。
设置终端字体为新宋体后，可以显示了，但是又多出两个方块

C:\Users>chcp 65001
Active...

这是要表达四不像的意思？

,
use Devel::Size qw/total_size/;
our ($a, $b, $c) = ([], [], '');
for my $idx ( 0 .. 2000000 )
{
'1'; push...

假设文件大于10G，内存1G

方案：倒序，线性读取
实践总结：初始方案是从文件末尾开始，反方向逐个字节读取存入$buff变量，遇到换行符时将$buff写出并清空。
但是这种逐字节读取效率极低。改进方案是设置一定的缓存大小（例如2^16 =>...

每个游戏的详情页可能有些许差异，比如有的有作弊码、秘籍、手册，有的有midi音乐文件，有的没有。
此脚本已经做了判断，并按游戏名目录存储。

=info
Mojo::UserAgent 批量获取 nes 游戏资源
523066680/vicyang
2018-12
=cut

use...

遇到的问题：
通过Mojo::DOM直接获取文本内容（all_text方法），会自动把<br>的效果给吃掉，没有换行，也就不能像浏览器那样呈现。
当然 &nbsp; 这些符号是正常转换为 \xA0 了的。...

该网站的文章页面有手机版的，体积比PC端页面小一半以上，可以减少数据处理量。

= info     523066680 / vicyang     2018 - 12 = cut use Encode ; use Modern :: Perl ; use File...

腾讯的官方文档：
官方的签名生成示例分别是 PHP JAVA Nodejs 和 C++ 的，所以我改了一个Perl的版本，补充了提交识别网络图片的代码。
appid 和 secret_id , secret_key 我去除了，测试时请自行申请腾讯云账户后填入

=info
腾讯云...

游戏说明 - 猜数字游戏 - 专题

参考：
猜数字游戏 - Bulls and Cows