cost 97 ms
如何让 LWP::UserAgent 缓存连接?

在 perl 脚本中,我像这样使用 LWP::UserAgent: 在执行 $ua-get 几千次从https://example.com获取 URL 之后,我希望 $ua->conn_cache 有十个打开的连接。 但是,如果我使用 Data::Dumper 并执行以下操作: 我只看 ...

2021-12-03 16:48:48 1 16
正则表达式仅当字符串包含指定的内容但不包含其他内容时才匹配

我正在尝试在 perl 中实现一个 REGEX,如果字符串包含我指定的任何内容,它就会匹配,但如果字符串包含其他任何内容,即使它还包含我的正则表达式元素,它也必须失败。 例如: 如果我输入DQJ作为 s 序列,程序就会死亡。 但是,如果我输入ACH ,则不会,因为它至少包含来自正则表达式模式的一 ...

2021-12-02 14:30:27 2 36
在 Perl 中直接操作 PNG 颜色图

我正在开展一个项目,将打包成专有容器格式的图像转换为单独的 PNG 图像,然后将这些图像重新打包成更灵活的容器格式。 对此的奇怪限制之一是颜色图条目的顺序对于最终应用程序的正确操作至关重要(某些图像的调色板取决于当前显示的其他图像的调色板)。 有什么方法可以(最好是在 Perl 中)直接操作 PN ...

2021-12-02 00:54:09 0 6
在特定位置的基因组 fasta 中添加重复而不会弄乱注释?

我想在基因组 fasta 文件中添加一堆扩展重复,例如。 特定位置的 100 个 ATT,例如 Chr1-1:2。 我如何在生物信息学上更新相应的 gtf 或 gff3 文件,以便相应的基因组注释保持准确? 我可以手动为注释文件中的每个值添加 300,但我相信有人会有更聪明的方法来解决这个问题。 ...

2021-12-01 20:52:01 0 4
用 perl 替换多个文件中除第一个匹配项之外的所有匹配项

我需要在多个文件中进行查找/替换,但我想保留匹配项的第一次出现并替换所有其他文件。 这可能已经在其他地方得到了回答,但搜索起来有点困难。 我目前正在使用: perl -pi -w -e 's/THING/SOMETHING_ELSE/g;' ./src/**/*.py perl -pi -w -e ...

2021-12-01 20:47:54 2 27
如何减少 wav 文件保存在 /tmp 文件夹中所花费的时间

我正在使用 perl 脚本来保存从星号生成的音频文件。 我想使用 STT 引擎将音频文件转换为文本,但是在将音频文件保存在 /tmp 目录中时,它需要将近 1 分钟的时间,有时甚至更多,在保存文件之前,STT 被调用并获取 wav 文件和最终未能给出文本文件 这是我正在使用的代码 记录文件 如何 ...

2021-12-01 15:28:43 0 17
使用未初始化的值 perl 格式

我有一个模块和一个 perl 文件。 当我运行此脚本时,我收到此错误消息Use of uninitialized value 。 当我打印时,我可以看到进入子程序的所有值。 我正在使用 perl 版本 5.16.3。 相同的代码在 perl 5.6.1 等较低版本中工作。 你有什么解决办法吗 ...

2021-12-01 14:29:53 0 6
在 Mojolicious 中,我可以转发到另一个动作吗?

在 Mojolicious lite 应用程序中,我想在修改参数和存储后将路由转发到另一个操作。 现在我正在通过像这样重定向来解决这个问题; 它工作正常,但我希望这一切都发生在幕后,而不是暴露重定向的路径。 那可能吗? ...

2021-12-01 09:11:57 0 8
Perl Dynaloader 在调用带参数的函数时出现使用错误

使用 Perl Dynaloader 模块,我们正在加载一个 .so 文件,并使用“DynaLoader::dl_find_symbol”来查找符号并使用“DynaLoader::dl_install_xsub”进行安装,最后我们将该函数调用为 &ExConfig_fnInitialize( ...

2021-12-01 06:27:57 0 15
Perl - 比较两个大的 txt 文件并从第一个返回所需的行

所以我对 perl 编程很陌生。 我有两个 txt 文件,combined_gff.txt 和 pegs.txt。 我想检查 pegs.txt 的每一行是否是 combine_gff.txt 中任何行的子字符串,并在名为 output.txt 的单独文本文件中仅输出来自 combine_gff.tx ...

2021-12-01 00:36:07 2 20
如何使用 Perl 库 Crypt::OpenSSL::X509 正确获取 SAN

我之前一直在使用 Crypt::X509,但现在我将我的代码移植到更新的支持库 Crypt::OpenSSL::X509。 证书中最重要的字段是 CN 和 SAN,我希望有一个简单的调用,如: 但相反,我必须使用繁琐的代码: 但更糟糕的是,返回的字符串带有寄生的“.”。 在里面,我需要创建一 ...

2021-11-30 18:57:40 1 24
正则表达式使用 sed 或 Perl 来注释 XML 块

我正在尝试仅使用sed或perl -pi (我唯一可用的工具)在 openAM 内的 web.xml 中评论一个部分。 所以,我在这里复制: 但我试图只评论<servlet-mapping>...</servlet-mapping> (但只有带有 /ccversion ...

2021-11-30 18:03:53 2 66
为什么在正则表达式中需要 (?(R)...|...) if 条件?

我正在查看一些正则表达式文档,但被某些东西弄糊涂了。 (?(R)...|...)上下文中的(R)条件据说是: perl有点神秘: (右) 检查表达式是否已在递归内部求值。 完整语法: (?(R)then|else) PCRE用处不大: (?(R ...

2021-11-30 10:33:51 1 27

 
粤ICP备18138465号  © 2020-2021 STACKOOM.COM