脚本 - FuniCode 编程论坛

脚本

版面

主题

帖子

最新文章

Python
Life is short, you need Python - Bruce Eckel
Package Index, Python 3.5.3 documentation
主题： 31

31 主题

78 帖子

最新文章爬虫程序加了动态代理ip为什么还是会被封呢？
由 yiniuyun 查看最新帖子
2019年03月05日 15:47
Ruby
主题： 3

3 主题

5 帖子

最新文章 RubyGems 镜像- Ruby China
由 vicyang 查看最新帖子
2016年11月15日 09:21
Perl
There's more than one way to do it!
https://metacpan.org http://perlmonks.org
主题： 114

114 主题

197 帖子

最新文章如何单独使用正则表达式验证所有email地址？
由 523066680 查看最新帖子
2022年03月23日 08:57
Lua
主题： 1

1 主题

1 帖子

最新文章 Program in Lua 中文版.pdf
由 523066680 查看最新帖子
2018年05月07日 11:08

活跃主题

回复总数

阅读次数

最新文章

如何单独使用正则表达式验证所有email地址？

最新文章由 523066680 « 2022年03月23日 08:57

由 523066680 » 2022年03月23日 08:57

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

0 回复总数

565 阅读次数

最新文章由 523066680
2022年03月23日 08:57
Mojo::DOM 解析XML开关

最新文章由 523066680 « 2022年03月20日 20:03

由 523066680 » 2022年03月20日 20:03

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

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

0 回复总数

465 阅读次数

最新文章由 523066680
2022年03月20日 20:03
[Perl]跨境平台市场大盘数据可视化(结合Echarts.js)

最新文章由 523066680 « 2021年12月20日 10:03

由 523066680 » 2021年12月20日 10:03

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

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

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

0 回复总数

626 阅读次数

最新文章由 523066680
2021年12月20日 10:03
[Perl]批量抓取(非阻塞)跨境电商平台市场大盘数据

最新文章由 523066680 « 2021年12月20日 10:02

由 523066680 » 2021年12月20日 10:02

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

0 回复总数

1012 阅读次数

最新文章由 523066680
2021年12月20日 10:02
Perl 6 中文教学 - 在线文档

最新文章由 523066680 « 2021年11月15日 23:23

由 523066680 » 2021年11月15日 23:23

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

Naoum Hankache naoum@hankache.com
ohmycloud
wenjie1991

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

0 回复总数

680 阅读次数

最新文章由 523066680
2021年11月15日 23:23
[Perl]P站视频下载

最新文章由 523066680 « 2021年10月11日 22:35
回复总数： 2
由 523066680 » 2021年10月11日 16:53

P站大家懂的 :confidence

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

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

2 回复总数

1480 阅读次数

最新文章由 523066680
2021年10月11日 22:35
Subroutine Signatures - 子例程参数署名

最新文章由 523066680 « 2021年04月20日 02:20

由 523066680 » 2021年04月20日 02:20

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

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

0 回复总数

1847 阅读次数

最新文章由 523066680
2021年04月20日 02:20
Termux 切换到后台保持运行（防止进程冻结）

最新文章由 523066680 « 2021年04月18日 13:30

由 523066680 » 2021年04月18日 13:30

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

0 回复总数

1847 阅读次数

最新文章由 523066680
2021年04月18日 13:30
Domins - 陶敏修

最新文章由 rubyish « 2020年07月18日 18:37
回复总数： 4
由 523066680 » 2019年04月03日 18:56

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

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

4 回复总数

10211 阅读次数

最新文章由 rubyish
2020年07月18日 18:37
Perl7

最新文章由 rubyish « 2020年07月18日 18:35
回复总数： 1
由 523066680 » 2020年07月06日 13:39

FireShot Capture 008 - Perl Programmers - Facebook -

1 回复总数

2659 阅读次数

最新文章由 rubyish
2020年07月18日 18:35
Mojo::DOM 将多个匹配节点的属性返回到数组

最新文章由 523066680 « 2019年10月20日 00:07

由 523066680 » 2019年10月20日 00:07

Example
my @s = @{$dom->find( recordset )->map(attr=> value )};

0 回复总数

9385 阅读次数

最新文章由 523066680
2019年10月20日 00:07
LWP::UserAgent 下载知乎视频

最新文章由 zzz19760225 « 2019年09月26日 09:50
回复总数： 10
由 523066680 » 2018年06月28日 15:52
1

2
首发：

视频示例：

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

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

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

use Modern::Perl;...
10 回复总数

41444 阅读次数

最新文章由 zzz19760225
2019年09月26日 09:50
Perl GUI - AliExpress 库存调整工具

最新文章由 523066680 « 2019年09月02日 17:26
回复总数： 2
由 523066680 » 2019年09月02日 17:25

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

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

2 回复总数

6437 阅读次数

最新文章由 523066680
2019年09月02日 17:26
Perl AliExpress 产品信息、SKU、销量信息提取，导出EXCEL

最新文章由 523066680 « 2019年08月29日 06:56

由 523066680 » 2019年08月29日 06:56

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

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

0 回复总数

5722 阅读次数

最新文章由 523066680
2019年08月29日 06:56
Perl 提取 AliExpress 订单详情

最新文章由 523066680 « 2019年08月28日 15:58
回复总数： 3
由 523066680 » 2019年08月28日 15:49

占位、索引

3 回复总数

6219 阅读次数

最新文章由 523066680
2019年08月28日 15:58
IUP - Timer

最新文章由 523066680 « 2019年08月13日 23:42

由 523066680 » 2019年08月13日 23:42

use utf8;
use IUP ':all';
use Date::Format;
use Time::HiRes qw/gettimeofday/;
STDOUT->autoflush(1);

my @label;
my @timer;

for my $id ( 0 .. 2 )
{...

0 回复总数

5362 阅读次数

最新文章由 523066680
2019年08月13日 23:42
[Perl]Prima 获取剪切板文本 - Unicode 形式

最新文章由 paktc « 2019年07月13日 11:03

由 paktc » 2019年07月13日 11:03

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

0 回复总数

5339 阅读次数

最新文章由 paktc
2019年07月13日 11:03
[Perl]批量爬取ZOL壁纸 - 车模系列

最新文章由 xueshumeng « 2019年07月13日 07:41
回复总数： 3
由 523066680 » 2018年11月03日 08:39

LWP::UserAgent 版

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

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

=info
Author:...

3 回复总数

8014 阅读次数

最新文章由 xueshumeng
2019年07月13日 07:41
ActivePerl 更新到 5.28

最新文章由 523066680 « 2019年07月04日 10:52

由 523066680 » 2019年07月04日 10:52

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

0 回复总数

5284 阅读次数

最新文章由 523066680
2019年07月04日 10:52
[挑战]JSON格式与 Perl数据格式互转，按特定规则格式化

最新文章由 523066680 « 2019年06月23日 20:30
回复总数： 1
由 523066680 » 2019年06月23日 20:21

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

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

1 回复总数

5760 阅读次数

最新文章由 523066680
2019年06月23日 20:30
[Perl]爬虫 - 抓取并积累某平台订单记录

最新文章由 523066680 « 2019年06月02日 14:47

由 523066680 » 2019年06月02日 14:47

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

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

0 回复总数

6380 阅读次数

最新文章由 523066680
2019年06月02日 14:47
获取指定天数内的中行外汇牌价历史记录（美元兑人民币）

最新文章由 523066680 « 2019年05月19日 07:29
回复总数： 1
由 523066680 » 2016年09月05日 17:47

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

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

use strict;
use...

1 回复总数

6928 阅读次数

最新文章由 523066680
2019年05月19日 07:29
[日常]bilibili blv视频文件转移到同一目录并编号

最新文章由 523066680 « 2019年05月18日 17:23

由 523066680 » 2019年05月18日 17:23

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

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

0 回复总数

5163 阅读次数

最新文章由 523066680
2019年05月18日 17:23
[Perl]运算符重载与表达式抽象语法树转有理数运算

最新文章由 523066680 « 2019年04月30日 08:45
回复总数： 2
由 523066680 » 2019年04月16日 14:31

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

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

2 回复总数

7441 阅读次数

最新文章由 523066680
2019年04月30日 08:45
[Perl]闭包与回调函数 - 多线程下载并显示支线进度

最新文章由 523066680 « 2019年03月19日 08:38

由 523066680 » 2019年03月07日 20:16

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

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

0 回复总数

6090 阅读次数

最新文章由 523066680
2019年03月19日 08:38

返回论坛首页

在线用户

正浏览此版面之用户：没有注册用户和 1 访客