perl

1热度

2回答

的含义根据该文档 \ W [3]匹配一个 “字” 的字符（字母数字加上 “_”，加其他连接器标点字符加的Unicode引号）我不明白什么是“加上其他连接器标点符号加上Unicode标记”，该文档似乎没有说。什么是\w真的？

0热度

2回答

我有这么一小撮代码，出于某种原因，从http://localhost/cgi-bin/sysinfo.sh运行时无法执行。我在CentOS 7的虚拟机上，我会尽我所能的帮助。我似乎无法得到这些指示，但是他们在Vi中是正确的。 #!/bin/bash echo -e "Content-type: text/html\r\n\n" echo " <html> <head> <titl

1热度

1回答

仅在测试中报告失败测试::更多

我对随机生成的数据进行了大量检查。我怎样才能得到报告消息只为失败的测试，如果检查是好的，什么也不显示？

3热度

2回答

限制在Perl脚本中执行的程序的同时实例数（大于1）

我在Perl脚本中使用资源密集型程序[特别是将文件传输到Google Drive的rclone]。我还没有搞清楚如何我想打电话给rclone，因为我需要限制的rclone实例基于一些条件（什么有关预防服务器超载，死机，崩溃等）的数量。我希望脚本在执行rclone之前等待apt系统的“条件”（这可能需要很长或无限的时间）。一些细节：脚本本身基本上是通过包含由另一个程序（可能很多）的文件的文件或

0热度

1回答

Perl如何从另一个包中导入我的包？

这是我的文件夹结构： XFolder/ XFolder/YFolder/ XFolder/YFolder/package1.pl XFolder/package2.pl 在package2.pl，我有： package X::Pa2 在package1.p1，我有： package X::Y::Pa1 在package1.pl，当我这样做： use X::Pa2; 我得到 C

0热度

1回答

我不明白“push”返回的值

use strict; use warnings; sub maximum_value { my @array = @_; my @array1 = shift(@_); my @array2 = push(@_, 0); print "@array\n"; print "@array1\n"; print "@array2\n

5热度

5回答

如何用多行搜索和替换多行

我查看了有关搜索和替换的其他答案，但我无法理解这些模式。我怎样才能更改文件的这一部分（行号153 ... 156） let view = string.utf8 offset.pointee += string.substring(to: range.lowerBound).utf8.count length.pointee = Int32(view.distance(

2热度

2回答

如何通过符号表来访问子主::和子的名字在一个标量

假设我有一个功能foo（或::foo，或者main::foo如果你喜欢），我定义 use strict; my $sub_name = 'foo'; 我想间接调用foo，因为“名称存储在$sub_name中的函数”。（对于这个例子来说，假设调用应通过列表1, 2, 3作为参数。）我知道，有一种方法用符号表工作main::直接，对待它就像一个散列做到这一点像数据结构一样。这个符号表的咒语

-1热度

2回答

如何将数组推送到嵌套散列

有没有人可以解释如何将数组推入嵌套散列。假设我创建了一个嵌套散列，并且希望将一个数组推入另一个键的值中，以及如何访问这些数组的值。对不起，如果我在解释我的查询时在技术上是错误的。这里是我的代码部分： if ($line !~ /#/) { @region = split /\t/, $line; @ancestor = split /:/, $region[

0热度

1回答

如何访问由此自卸车输出表示的散列？

我正在破解一个git-svn Perl脚本。我有一个$paths变量，我认为它包含一个单独的路径数组，但是我很难对它进行迭代。我的最终目标是向一条路径添加一个附加属性。这里是自卸车输出。 { "/dira" => { action => "A", copyfrom_path => undef, copyfrom_rev => -1 },