FuniCode 编程论坛

原文链接：
(?:(?:\r\n)? )*(?:(?:(?:[^() @,;:\\ .\ \000-\031]+(?:(?:(?:\r\n)? )+|\Z|(?=[\[ () @,;:\\ .\ ]))| (?: |\\.|(?:(?:\r\n)? ))* (?:(?:\r\n)?...

因为xml和html有些规则是不一样的，如果按html解读，标签会被自动转为小写，to_string时还可能发生其他变化。

Mojo::DOM->new->xml(1)->parse( $xml内容 );

不知道图片是否正常显示，等待两秒吧~

附件见末尾 =info
类目各层级交易占比可视化
Author: 523066680/vicyang
2020-04

Echarts旭日图模板: sunburst-drink_tmpl.html
颜色分配：按ID %...

环境 Win10, Strawberry Perl
Mojolicious的非阻塞请求时不限制请求量的，为了避免阻塞，额外安装模块 Mojo::UserAgent::Role::Queued，用于限制同一时间的请求数
因为非阻塞请求是给 $ua 传一个回调函数，这种情况参数是固定的($ua,...

有阵子没关注Perl 6 了，一直对其中的 Grammar 有点兴趣，

Naoum Hankache naoum@hankache.com
ohmycloud
wenjie1991

本文档旨在为您提供 Perl 6 编程语言的快速概述。 它可以让 Perl 6 初学者快速上手。

P站大家懂的 :confidence

用到的模块：
JE (Javascript解析库）
Mojolicious （网络）

使用方法，将指定视频网址末尾15位的keyword复制放到 @list 数组中。以及找到Agent的地址更新到proxy设置 use utf8;
use...

在 Mojo::UserAgent 官方示例中，有一段非阻塞请求的示例

# Non-blocking request
$ua -> get ( 'mojolicious.org' => sub ( $ua , $tx ) { say $tx -> result -> dom -> at (...

把以前的爬虫（固定延迟，抓取同一个页面）放到旧的小米手机Termux上面跑，一天后发现抓的页面时间点断断续续。
于是另写一个固定延时显示时间的脚本做测试 # 测试进程是否持续执行
use Date::Format;
STDOUT->autoflush(1);
while (1)
{
printf...

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

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

FireShot Capture 008 - Perl Programmers - Facebook -

Example
my @s = @{$dom->find( recordset )->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
2019-09...

用途：线上数百个产品，底价、海外仓库存设置各不相同，在线编辑非常繁琐。
同时平台营销活动的折扣率也需要针对性设置。因此需要一份完整的产品数据表，包含每个产品的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: 'cross',
label:...

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

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

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

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

use strict;
use...

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

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

[5, + , [ , / , 7]]
(29/7)
[[ , + , 3], - , ]
(20/7)

其中分数/有理数 有现成的模块 Math::BigRat 和 Number::Fraction。
自己实现部分功能可以熟悉一下重载。 =info
表达式抽象语法树 转 有理数运算...

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

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

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

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

C:\Users>chcp 65001
Active code...