脚本 - 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
主题： 116

116 主题

202 帖子

最新文章 Re: Perl 6 中文教学 - 在线文档
由 523066680 查看最新帖子
2023年01月28日 20:57
Lua
主题： 1

1 主题

1 帖子

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

活跃主题

回复总数

阅读次数

最新文章

Perl 6 中文教学 - 在线文档

最新文章由 523066680 « 2023年01月28日 20:57
回复总数： 2
由 523066680 » 2021年11月15日 23:23

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

Naoum Hankache naoum@hankache.com
ohmycloud
wenjie1991

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

2 回复总数

983 阅读次数

最新文章由 523066680
2023年01月28日 20:57
Termux脚本工具批量修改视频文件扩展名

最新文章由 rubyish « 2023年01月26日 02:49
回复总数： 1
由 523066680 » 2022年12月16日 15:35

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

toggle.pl
调用：
perl toggle.pl

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

1 回复总数

151 阅读次数

最新文章由 rubyish
2023年01月26日 02:49
[Perl][图片处理]判断一张壁纸是深色还是浅色

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

由 523066680 » 2022年12月12日 21:20

参考：

* (

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

* (

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

0 回复总数

117 阅读次数

最新文章由 523066680
2022年12月12日 21:20
如何单独使用正则表达式验证所有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 回复总数

1195 阅读次数

最新文章由 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 回复总数

819 阅读次数

最新文章由 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 回复总数

1387 阅读次数

最新文章由 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 回复总数

1365 阅读次数

最新文章由 523066680
2021年12月20日 10:02
[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 回复总数

1786 阅读次数

最新文章由 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 回复总数

2112 阅读次数

最新文章由 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 回复总数

2280 阅读次数

最新文章由 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 回复总数

10605 阅读次数

最新文章由 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 回复总数

2914 阅读次数

最新文章由 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 回复总数

9556 阅读次数

最新文章由 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 回复总数

41954 阅读次数

最新文章由 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 回复总数

6659 阅读次数

最新文章由 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 回复总数

5911 阅读次数

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

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

占位、索引

3 回复总数

6483 阅读次数

最新文章由 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 回复总数

5538 阅读次数

最新文章由 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 回复总数

5507 阅读次数

最新文章由 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 回复总数

8741 阅读次数

最新文章由 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 回复总数

5429 阅读次数

最新文章由 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 回复总数

5944 阅读次数

最新文章由 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 回复总数

6554 阅读次数

最新文章由 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 回复总数

7131 阅读次数

最新文章由 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 回复总数

5748 阅读次数

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

返回论坛首页

在线用户

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