perl 相关问题

Perl是一种过程的,高级的,通用的动态编程语言,以其对正则表达式和字符串解析功能的本机支持而闻名。有关Perl的问题,请使用此标记。对于与新(但相关)语言“Perl 6”相关的内容,请使用perl6标记。对于其他语言的Perl样式正则表达式,请使用regex标记,如果它们基于PCRE库,则使用pcre标记。

主程序与子程序中的代码

你如何决定是将代码放在 Perl 脚本的子例程中还是主要部分中? 我知道如果您需要重用代码,您会将其放入子例程中,但是如果您不重用怎么办?我...

回答 4 投票 0

如何从 Perl 数组中删除重复项?

我有一个 Perl 数组: 我的@my_array =(“一”,“二”,“三”,“二”,“三”); 如何从数组中删除重复项?

回答 11 投票 0

是否可以让 Test::more 报告间接调用者(n 级调用者)的线路?

我使用 Perl 的 Test::more 编写了一些测试框架,特别是使用 ok($test_result, $test_description)。 作为一些测试“集群”,我编写了一个执行多个 ok() 的子例程...

回答 1 投票 0

Perl 中的 @ :: ARGS 是什么?

我正在阅读一些代码并发现(代码接受文件名和命令行参数) @::ARGS = ($0,@ARGV); 但是,我无法理解表达式的第一部分。到底是什么

回答 1 投票 0

Perl 十六进制数的负表示总是符号扩展为 8 个字节

我在 Perl 中使用 sprintf 将十进制数转换为其等值的十六进制数,如下所示: 我的 $positive = sprintf("X'%02X'", 1); # X'01' 我的$负数 = sprintf("X'%02X'", -1); #X'

回答 2 投票 0

从 perl 插入 mysql 时的 dup 条目

我正在从 Perl 插入 mysql 数据库。第一次插入后出现重复错误。这是我用于插入的代码。我正在从 json 响应中提取一个 id。我有输出...

回答 2 投票 0

上传文件页面出现函数未定义错误

尝试制作用于上传文件的html页面。我为该过程创建了一个 upload.cgi。并将以下代码添加到我的 html 页面中: 尝试制作 html 页面来上传文件。我为该过程创建了一个 upload.cgi。并将以下代码添加到我的 html 页面中: <form id="uploadForm" action="https://gpstest.surveybook.net/upload/upload.cgi" method="post" enctype="multipart/form-data"> <label for="file_upload">Select a file:</label> <input type="file" name="file_upload" id="file_upload" onchange="uploadFile()"><br> </form> <script> $(document).ready(function(){ function uploadFile() { // Get the form element var form = document.getElementById('uploadForm'); // Submit the form form.submit(); } }) </script> 它应该在选择文件时上传,但我收到错误(在控制台中):“未捕获的引用错误:上传文件未定义” 我是否可能因为无法访问 upload.cgi 而收到此错误,如果不是,我就没有主意了,感谢任何帮助。 提前致谢。 出现错误“Uncaught ReferenceError: uploadFile is not Define”是因为 uploadFile 函数是在 $(document).ready 函数内部定义的,这使得它无法在全局范围内访问。 HTML 中的 onchange 属性尝试从全局范围访问 uploadFile,因此出现错误。 要解决此问题,您应该将 uploadFile 函数移到 $(document).ready 函数之外。 <script> function uploadFile() { // Get the form element var form = document.getElementById('uploadForm'); // Submit the form form.submit(); } $(document).ready(function(){ // Other jQuery code can go here }) </script> <form id="uploadForm" action="https://gpstest.surveybook.net/upload/upload.cgi" method="post" enctype="multipart/form-data"> <label for="file_upload">Select a file:</label> <input type="file" name="file_upload" id="file_upload" onchange="uploadFile()"><br> </form> 您遇到问题是因为您在 DOM 加载后定义函数。在这里,您有两种更新脚本的选项: $(document).ready(function(){ //Other codes }) function uploadFile(){ // Get the form element var form = document.getElementById('uploadForm'); // Submit the form form.submit(); } 或 var uploadFile; $(document).ready(function(){ uploadFile = function(){ // Get the form element var form = document.getElementById('uploadForm'); // Submit the form form.submit(); } })

回答 2 投票 0

如何过滤文件选择

我有以下形式的文件 wrfout_d01_2024-02-08_01_00_00 wrfout_d01_2024-02-08_02_00_00 wrfout_d01_2024-02-08_03_00_00 ... 其中最后一个非零数字是该月的日期。我只想选择

回答 1 投票 0

列出正则表达式匹配的所有模式

我正在寻找一种方法来列出有限正则表达式中的所有可能模式(不重复)。有资源吗

回答 2 投票 0

Perl 模式匹配

我有一个像这样的文本文件 这是一条垃圾线 这是一条垃圾线路2 这是一条垃圾线路3 消息1 这是第一行文字 这是第二行文字 这是第三...

回答 5 投票 0

在 Linux 中打印第一个匹配和第二个匹配之间的行,第二个匹配在第一个匹配之后出现

我有一系列数据,我想在一场比赛之后以及第一场比赛之后的下一场不同比赛后打印数据,例如, 我有 AAA AAAD 血脑屏障 CCC AAA AADD 想要A之间的数据...

回答 1 投票 0

HiPi(Raspberry Pi 库)因 undef 子例程而失败 HiPi::GPIO::xs_gpio_*

无论我尝试使用模块 HiPi / HiPi::GPIO 控制 GPIO 引脚的什么功能 - 它总是失败 未定义的子例程 &HiPi::GPIO::xs_gpio_write 调用于 /usr/local/lib/aarch64-linux-gnu/per...

回答 1 投票 0

控制C时自动解锁表

我观察到,如果我在正在运行的 perl DBI 脚本上按下 Control C,则同一脚本的下一次运行将挂起。 我已经用 ps 确认点击 control C 后脚本没有运行....

回答 1 投票 0

如何在具有相同扩展名的多个输入文件上运行 Perl 脚本?

如何在具有相同扩展名的多个输入文件上运行 Perl 脚本? perl 脚本名.pl 文件.aspx 我希望它对当前目录中的所有 aspx 文件运行。

回答 7 投票 0

Perl :: 特殊字符的使用

我正在阅读一些代码并发现(代码接受文件名和命令行参数) @::ARGS = ($0,@ARGV); 但是,我无法理解表达式的第一部分。到底是什么

回答 1 投票 0

迭代字符串来模拟打字时,Sleep 没有任何效果

我想制作一个脚本,将字符串字母一一输入 我的 $str = '测试字符串'; 我的 @spl = split '',$str; 对于(@spl){ 打印“$_”; 睡眠(1); } 打印 ” ”; sleep() 不这样做...

回答 3 投票 0

使用 sleep 迭代字符串来模拟打字

我想制作一个脚本,将字符串字母一一输入 我的 $str = '测试字符串'; 我的 @spl = split '',$str; 对于(@spl){ 打印“$_”; 睡眠(1); } 打印 ” ”; sleep() 不这样做...

回答 3 投票 0

Test2::Mock 的“原型不匹配”警告

运行以下代码: #!/usr/bin/env perl 使用5.038; 使用 Test2::Mock; 使用时间::高分辨率; my($mock) = Test2::Mock->new( 类 => '时间::HiRes', 覆盖 => [ 获取时间...

回答 1 投票 0

Perl 拆分具有双引号和空格的字符串

我有一个像这样的字符串:“abc”“cd - e”。我需要将其分成以下两个字符串: “abc” “cd-e” 我在 Perl 中尝试了多种选项,但无法满足我需要的选项。有人可以指导吗...

回答 4 投票 0

Perl:判断给定数字是否是素数

我正在尝试编写一个子例程来确定传入的数字是否为素数,但它无法正常工作。我传入的数字不应被识别为素数。有没有...

回答 3 投票 0

© www.soinside.com 2019 - 2024. All rights reserved.