问题标签 [perlscript]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
1 回答
2689 浏览

perl - 如何创建带有操作的 HTML 按钮并使用 PerlScript 将其附加到 DOM?

我专门讨论的是来自 ActiveState 的 IE 嵌入式脚本语言“PerlScript”。

我目前有以下内容,但是当按下按钮 3 时,没有任何动作发生。

0 投票
1 回答
105 浏览

windows - 为什么在 Internet Explorer 中缓冲对 html 页面的写入?有办法解决吗?

我为使用客户端 PerlScript 的 IE 编写了一个非常小的 html 页面。在脚本中,我启动了一个创建 TCP 套接字的单独进程。启动该过程后,我启动了一个侦听器,它在读取行时将 HTML 附加到 div 的末尾,另外为了调试,我在读取每一行时添加了警报。

问题是警报会在读取行时出现,但 HTML 不会更新,直到该过程完成。这是为什么?有没有办法强制页面呈现,以便我可以获得相同的行为?

这是页面:

我查看了 PerlScript 的在线文档,该文档非常稀疏。我正在寻找有关如何命令 IE 触发页面呈现、响应这些 html 插入...等的提示。

在研究这一点时,我发现如果我在 div 上使用 onclick 而不是 onload,我可以在读取行时渲染它。也许我没有使用正确的事件并且在触发子例程之前页面没有完全呈现?我对这里的 IE 感到非常沮丧(第 9 节)。

是的,当我在命令行情况下使用它时,一切都会按预期触发。CreateServer/CreateClient 只是客户端和服务器的 IO::Socket::INET 的包装器。

更新(基于@Oleg V. Volkov 的回答):

我修改了 go 并添加了一个读取一行的 _read() 函数,然后将控制权传递回浏览器进行渲染。似乎做得不错。

这似乎接近实时更新。

0 投票
1 回答
737 浏览

vb6 - 选择 MS Script Control 1.0 的语言作为 Perl 脚本时出错

在我的 VB 6 应用程序中,我 Script Control 1.0用于通过我的应用程序运行外部脚本。但是在运行时,我收到以下错误。

我已经安装了 ActivePerl 5.14,并且在运行以下代码时出现错误:

任何想法可能是什么问题?

0 投票
1 回答
174 浏览

regex - 需要使用 shell 脚本删除 txt 文件中的特定行

我需要在文件中搜索特定字符串并删除文件中的所有行,直到我再次到达特定字符串。基本上我需要删除两个特定字符串之间的所有行。
例如

预期输出应该是:

0 投票
0 回答
37 浏览

sql - 如何从 sql 中自动压缩文件

我有一个 SQL 表,其中包含每个时期的结果(例如 2013 年 1 月)。这些是我遵循的步骤:

  1. 我想从每个时期中选择记录。
  2. 将结果放入 CSV 文件中。
  3. 然后复制标题并将 CSV 文件保存到具有不同名称的文本文件中。
  4. 然后获取文本文件并 gzip 该文件。
  5. 现在找到文本文件中的记录并创建一个计数文件。(。文本)
  6. 现在获取该 gzip 文件和计数文件并创建一个 .tar 文件。
  7. 再次创建一个指向 .tar 文件的计数文件。

我必须为该表中的所有时间段执行这些步骤。

有没有更简单的方法来做到这一点,比如 Perl/Python 脚本或批处理文件之类的?

0 投票
3 回答
77 浏览

regex - 如何从文件中读取字符串并将它们拆分为不同的数组?

我正在为我的大学练习而苦苦挣扎...我需要从文件中读取字符串并将它们放入不同的变量中...团队,请查看并请在空闲时间回复...

输入文件:(test_ts.txt)

脚本:

输出:

预期输出:

尝试使用拆分:

尝试拆分后得到的输出:

0 投票
1 回答
41 浏览

perl - Perl 脚本附加日期

我每天都在我的服务器上运行这个 perl 脚本,并得到脚本的以下输出。我正在尝试修改脚本以将当前时间也包含在输出中。我该怎么做呢?

这是我当前的脚本:

电流输出:

期望的输出:

0 投票
1 回答
344 浏览

perl - perl 将变量分配给具有关系的数组

请建议如何在具有关系的数组中传递 3 个变量。

我想在@array 中赋值,这样如果我寻找任何实例,我应该得到所有 a、b、c 的值。

除了逗号之外还有什么方法可以在数组中分配一个值。像 $a:$b:$c 或 $a>$b>$c 我需要这个,因为我想 grep 1 record(a) 并获取 (a:b:c)

谢谢,

0 投票
0 回答
117 浏览

regex - Perl One Liner:“在 -e 第 1 行的 EOF 之前的任何地方都找不到字符串终止符”

我知道这很简单,但我无法找到根源。我遇到了一个错误,我无法在这个简单的一个班轮中破译它的根本原因。我正在使用带有草莓 Perl 5.18.2.1-32bit 的 Window 7。

程序 1:仅对非空行进行编号

输出:

程序 2:仅对所有行进行编号

输出:

使用的样本日志:

0 投票
3 回答
2924 浏览

regex - 使用 Perl 计算文件或目录中所有文件中所有单词的出现次数

所以我正在尝试编写一个 Perl 脚本,它将接受 3 个参数。

  1. 第一个参数是输入文件或目录。
    • 如果是文件,会统计所有单词出现的次数
    • 如果是目录,它将递归遍历每个目录并获取这些目录中文件中所有单词的所有出现次数
  2. 第二个参数是一个数字,它将显示出现次数最多的单词的数量。
    • 这将仅将每个单词的数字打印到控制台
  3. 将它们打印到输出文件,该文件是命令行中的第三个参数。

它似乎正在递归搜索目录并查找文件中所有出现的单词并将它们打印到控制台。

如何将这些打印到输出文件,以及如何获取第二个参数,即数字,比如 5,并让它在控制台打印出出现次数最多的单词,同时将单词打印到输出文件?

以下是我到目前为止所拥有的: