<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>批处理之家 - Perl</title>
    <link>http://www.bathome.net/forum-45-1.html</link>
    <description>Latest 20 threads of Perl</description>
    <copyright>Copyright(C) 批处理之家</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Sat, 02 May 2026 13:39:28 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>http://www.bathome.net/static/image/common/logo_88_31.gif</url>
      <title>批处理之家</title>
      <link>http://www.bathome.net/</link>
    </image>
    <item>
      <title>[ 已解决 ] [Perl]请问，空的花括号 {} 能运行吗？</title>
      <link>http://www.bathome.net/thread-86498-1-1.html</link>
      <description><![CDATA[kuohao.pl

输出

按照AI自动信息deepseek的说法，是应该可以的，但是实际执行卡在BOM字头什么的。
请问，如果按照语句结构，是可以执行的吗？]]></description>
      <category>Perl</category>
      <author>zzz19760225</author>
      <pubDate>Sun, 29 Mar 2026 10:34:10 +0000</pubDate>
    </item>
    <item>
      <title>AI问答: Perl 解析模块 Marpa::R2 和 Parse::RecDescent 哪个好?</title>
      <link>http://www.bathome.net/thread-86446-1-1.html</link>
      <description><![CDATA[从谷歌AI问的, 转载一下
Perl的解析模块, Marpa::R2 和 Parse::RecDescent 哪个好? 他们之间有哪些渊源?]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Thu, 26 Mar 2026 14:00:34 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]捕获平衡组(配对括号、多层镶嵌)结构化的歪招</title>
      <link>http://www.bathome.net/thread-86444-1-1.html</link>
      <description><![CDATA[我看到之前论坛有不少相关的帖子和讨论。但是本人没有参与，主要是自己几乎没有遇到类似需求。
不过最近遇到了 :-)

首先考虑偷懒的做法，比如交给 DOM 解析器处理



输出结果：


性能差了点，耗时 600ms，不过比起写正则应该节省了不少调试的时间。 ...]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Wed, 25 Mar 2026 14:03:53 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]Chrome浏览器 cookies 数据提取和解密</title>
      <link>http://www.bathome.net/thread-75842-1-1.html</link>
      <description><![CDATA[声明, 这个方案是2020年做的, 已经不适用于新版本的chrome. 但是网上搜寻一下也可以找到对应新版本的方案.

最初需求是通过perl mojo模块批量处理一些跨境电商的产品数据, 统计友商的信息, 当时的接口访问已经有些严格, 无法完全在本地实现模拟登录.
于是尝试通过获取浏 ...]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Thu, 19 Mar 2026 08:37:45 +0000</pubDate>
    </item>
    <item>
      <title>[ 已解决 ] 求perl+Tk下动态播放gif的基本功能代码</title>
      <link>http://www.bathome.net/thread-75689-1-1.html</link>
      <description><![CDATA[只要能将gif原本的内容速度播放出来就可以了。
linux mint22.2 
perl 5 (v5.38.2)
Tk version: 804.036
deepseep的各种回答越看越糊涂，除了显示静态gif，有一次有过一次简单代码可以播放GIF但是后来不断换代码，那个代码就再也找不到了，而且那个代码不是原样播放，是 ...]]></description>
      <category>Perl</category>
      <author>zzz19760225</author>
      <pubDate>Wed, 03 Dec 2025 06:37:56 +0000</pubDate>
    </item>
    <item>
      <title>[已解决] 请问，perl5321164的Tk空白页面程序，如何运行起来？</title>
      <link>http://www.bathome.net/thread-71133-1-1.html</link>
      <description><![CDATA[WIN764，Strawberry perl5321164，D盘的解压文件夹改为perl53211文件夹
通义提供的语句，文件字符集U-8想显示一个空白页面，但是没有显示出来。
命令行执行出错（好像说是安装错了，与前面安装的几个冲突了。）按照说的去，也显示可以的啊。直接命令行，可以跳出一个窗 ...]]></description>
      <category>Perl</category>
      <author>zzz19760225</author>
      <pubDate>Sun, 31 Aug 2025 04:13:04 +0000</pubDate>
    </item>
    <item>
      <title>[ 已解决 ] 求助，perl如何键盘单字符输入就执行？</title>
      <link>http://www.bathome.net/thread-71063-1-1.html</link>
      <description><![CDATA[输入需要加回车，才能执行。
请问怎么输入就能执行，如choice单字符，就执行后续命令。（可设置为单1，2，3，4，5多字符，约定定量输入就执行，也可以）
谢谢大佬们！
-----------------------------我是分割线-------------------------------- ...]]></description>
      <category>Perl</category>
      <author>zzz19760225</author>
      <pubDate>Wed, 06 Aug 2025 04:23:03 +0000</pubDate>
    </item>
    <item>
      <title>[ 已解决 ] Perl循环print显示时，&lt;stdin&gt;有效，sleep失效问题？</title>
      <link>http://www.bathome.net/thread-70859-1-1.html</link>
      <description><![CDATA[sleep模式：
模式：
之前有添加\\n换行，也可以了，
是不是必须得加换行啊？]]></description>
      <category>Perl</category>
      <author>zzz19760225</author>
      <pubDate>Wed, 14 May 2025 12:05:11 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]函数返回复合数据结构</title>
      <link>http://www.bathome.net/thread-70639-1-1.html</link>
      <description><![CDATA[emm... 其实这都不值一提，今天偶然看到知乎有个perl的话题下，有个人拿这个函数返回值说事：
客观地说，Perl 是不是快死了？ Whoami 的回答
-
Perl确实冷门的不行，但是这个复合数据结构的返回还是支持的。输出结果


这个 gen_data 也可以这么写 ...]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Fri, 07 Mar 2025 14:32:51 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]硬盘对拷文件后批量校验MD5</title>
      <link>http://www.bathome.net/thread-70632-1-1.html</link>
      <description><![CDATA[robocopy 是坠吼的，从来没用过这么好的工具，学习了！]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Thu, 06 Mar 2025 05:05:46 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]GUI显示多线程任务进度</title>
      <link>http://www.bathome.net/thread-65385-1-1.html</link>
      <description><![CDATA[经常遇到需要多线程处理的需求，但是在终端混合输出的结果非常混乱，即使每条信息加上线程ID，又或是使用不同的缩进。
最初考虑在线程间共享GUI句柄，结果发现仅有的几个GUI框架并不支持线程共享。
    于是改了方案，单独开一个线程跑GUI，创建一个线程共享的字符串数 ...]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Sun, 05 Mar 2023 12:34:37 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]warning 信息定制 - 向上追溯调用者的函数名以及行号</title>
      <link>http://www.bathome.net/thread-65380-1-1.html</link>
      <description><![CDATA[warning 信息输出：


die 可以做同样的调整，可以在崩溃之前执行相应的数据保存、日志输出操作。]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Sun, 05 Mar 2023 00:54:03 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]旋转、倾斜、缩放混合变换矩阵的分解和重组</title>
      <link>http://www.bathome.net/thread-65361-1-1.html</link>
      <description><![CDATA[源自某一个需求，要把多种变换合并成的矩阵解算还原成  旋转角度值、X倾斜角度值、X/Y缩放值
碰巧 Straberry Perl 自带 Imager::Matrix2d 模块，支持简单的变换矩阵运算，就拿来验证了。输出]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Fri, 03 Mar 2023 14:17:26 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]在线获取股票数据，构建本地数据库、数据可视化</title>
      <link>http://www.bathome.net/thread-65350-1-1.html</link>
      <description><![CDATA[之前在知乎搜索相关接口的时候查到一个 pysnowball，进去页面一看其实也是抓取雪球网站的数据
只需要从调试模式获取一次 token 可以长期使用，不需要密码登录]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Thu, 02 Mar 2023 14:03:40 +0000</pubDate>
    </item>
    <item>
      <title>perl 文本排序及修改</title>
      <link>http://www.bathome.net/thread-63984-1-1.html</link>
      <description><![CDATA[1、把3.2004 改成T01放到前面，%后对应的T0*也要改成TO1，
2、再排1-2位小数的，从小排到大，对应该的T02往后加
3、再排3位小数尾数等于1的，往后排序
1.txt 修改成2.txt的效果

1.txt 内容   
M48
T01C.8510
T02C1.5000
T03C1.8510
T04C2.5000
T05C3.2004
%
M71
G93X0Y ...]]></description>
      <category>Perl</category>
      <author>xx/xx</author>
      <pubDate>Fri, 07 Oct 2022 00:34:00 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]跨境平台市场大盘数据可视化(结合Echarts.js)</title>
      <link>http://www.bathome.net/thread-61056-1-1.html</link>
      <description><![CDATA[不知道图片是否正常显示，等待两秒吧~


附件见末尾3C_Market_DataVisualization.7z]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Sat, 18 Dec 2021 15:09:12 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]批量抓取(非阻塞)跨境电商平台市场大盘数据</title>
      <link>http://www.bathome.net/thread-61055-1-1.html</link>
      <description><![CDATA[环境 Win10, Strawberry Perl
Mojolicious的非阻塞请求时不限制请求量的，为了避免阻塞，额外安装模块 Mojo::UserAgent::Role:ueued，用于限制同一时间的请求数
因为非阻塞请求是给 $ua 传一个回调函数，这种情况参数是固定的($ua, $tx)，为了给回调函数增加一个参数（ ...]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Sat, 18 Dec 2021 14:30:34 +0000</pubDate>
    </item>
    <item>
      <title>[Perl]P站视频下载</title>
      <link>http://www.bathome.net/thread-60324-1-1.html</link>
      <description><![CDATA[P站大家懂的  

用到的模块：
JE (Javascript解析库）
Mojolicious （网络）

使用方法，将指定视频网址末尾15位的keyword复制放到 @list 数组中。以及找到Agent的地址更新到proxy设置]]></description>
      <category>Perl</category>
      <author>523066680</author>
      <pubDate>Sun, 10 Oct 2021 08:16:52 +0000</pubDate>
    </item>
    <item>
      <title>请教一下perl的切片操作应该怎么写</title>
      <link>http://www.bathome.net/thread-58455-1-1.html</link>
      <description><![CDATA[读入的变量是INDEX 00 04:00:65，需要转换成04，00，65
最终转换成

04*系数1 + 00*系数2 + 65*系数3
这个代码应该如何写?]]></description>
      <category>Perl</category>
      <author>minase</author>
      <pubDate>Fri, 30 Apr 2021 06:30:41 +0000</pubDate>
    </item>
    <item>
      <title>perl的imagemagik安装包哪里有下载</title>
      <link>http://www.bathome.net/thread-58441-1-1.html</link>
      <description><![CDATA[我在github搜索了，没有找到啊。
我需要在windows安装。这个是
在cpan安装吗?]]></description>
      <category>Perl</category>
      <author>minase</author>
      <pubDate>Thu, 29 Apr 2021 01:06:52 +0000</pubDate>
    </item>
  </channel>
</rss>