FuniCode 编程论坛

经常遇到需要多线程处理的需求，但是在终端混合输出的结果非常混乱，即使每条信息加上线程ID，又或是使用不同的缩进。
最初考虑在线程间共享GUI句柄，结果发现仅有的几个GUI框架并不支持线程共享。
于是改了方案，单独开一个线程跑GUI，创建一个线程共享的字符串数组，存储日志。
通过 open...

use utf8;
use Encode;
use Modern::Perl;
STDOUT->autoflush(1);

warn ;
major( );

sub major
{
primary();
}

sub primary
{
warning();
}

sub...

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

Naoum Hankache naoum@hankache.com
ohmycloud
wenjie1991

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

作用，批量给当前目录下（包括子目录）的视频文件扩展名加下划线，避免相册中出现这些 蜜汁 视频的预览图 :confidence

toggle.pl
调用：
perl toggle.pl

use utf8;
use Encode;
use Modern::Perl;
use...

参考：

* (

使用 ImageMagick 图片对象的 Histogram 方法，获取一张图片的所有RGB颜色值和频率数据。
提取到二维数组，排序，按频率最高的颜色的深度做判断

* (

单纯通过 R G B 求和作为深色或是浅色的依据，有时候不太符合直觉（肉眼直观感受不同），...

原文链接：
(?:(?:\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,...

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...