引用自
理想情况下，用户可能希望将Perl数组作为参数传递，如下所示：
@a = (10,20,30,40);
@b = (50,70,60,200);
gd::plotpts($im,\@a,\@b,4,1); # Error!
但是，这个脚本会生成一个类型错误，而不是人们所期望的那样。虽然这样的行为可能看起来是限制性的或怪异的，但酒杯一直被故意设计成以这种方式操作。事实上，这种方法甚至有好处。如果将Perl数组用作C数组，则将创建一个副本，验证其类型正确性，并在每次将数组传递给C函数时解除分配。对于大型数组，这将带来很大的性能开销。空间要求也是一些C程序关注的问题。例如，一个数值
浏览 11提问于2011-06-27得票数 1
回答已采纳
4回答
这就是我所面临的情况。
$perl_scalar = decode_json( encode ('utf8',$line));
decode_json返回一个引用。我确信这是一个数组。如何找到$perl_scalar的大小？？根据Perl文档，使用@name引用数组。有解决办法吗？
此引用由一个散列数组组成。我想要得到散列的数量。
如果我做长度($perl_scalar)，我得到的一些数字与数组中的元素数不匹配。
浏览 1提问于2011-05-04得票数 18
回答已采纳
1回答
在PERL中，列表是如何在内部表示的？有人告诉我它被表示为链表，真的吗？如果是这样的话，这不是解释器的开销吗？我无法想象它的样子。
浏览 1提问于2011-05-12得票数 2
回答已采纳
下面的python代码使我能够在每一种可能的组合中使用字符串并用连字符替换空格：
from itertools import product
def dashed_combos(inputstring):
words = inputstring.split()
for combo in product(' -', repeat=len(words) - 1):
yield ''.join(w for pair in zip(words, combo + ('',)) for w in pair)
这将从字符串co
浏览 4提问于2015-08-10得票数 0
回答已采纳
我发现使用arrayref的范围就是这样的：
@$aref[2..$#$aref]
因此，情况是我无法访问所有这些不同的perl环境(以测试它)，但是如果最终将在所有这些环境上编译的代码都无法编译，我就会遇到麻烦。
Perl版本：5.16.2、5.10.1和5.8.8
有人知道吗？
如果不聪明，google就不可能从物理上解决perl语法的复杂问题。我不够聪明去做这件事。
你知道吗？@$arr_ref[-3..$#$arr_ref]给你最后三个元素，然后整个数组被附加到上面。这显然是[-3..5]的意思:将元素-3 (= 3)给5，然后通过5追加0。
这是因为perl不以合理的方式处理它，除非
浏览 0提问于2013-08-20得票数 0
回答已采纳
2回答
我在JavaScript中有一个数组：
['html', 'css', 'perl', 'c', 'java', 'javascript']
如何删除"perl“元素？
必须删除第三个元素。它必须是删除值为"perl“的元素。
浏览 43提问于2014-01-31得票数 37
回答已采纳
1回答
我是Perl方面的新手。
需要帮助了解为什么perl要从特定位置(@INC)加载库。
执行以下操作使我感到满意：
$ perl -V
Summary of my perl5 (revision 5 version 10 subversion 1) configuration:
Platform:
osname=linux, osvers=2.6.9-68.9.elsmp, archname=x86_64-linux
uname='linux xxxxxx01 2.6.9-68.9.elsmp #1 smp tue jan 29 09:49:28 est 2008
浏览 7提问于2014-04-28得票数 0
回答已采纳
1回答
我有一些启动C#脚本的perl代码。然后，perl脚本就有了自己的子进程。
我遇到的问题是，当我试图读取标准输出时，C#会等待所有Perl子进程完成，然后返回所有输出。
是否可以动态读取所有Perl子进程的标准输出？
->C# process
->Perl process
-> Perl child process
-> Perl child process
-> Perl child process
在cmd中运行perl脚本时，所有输出都是正确的。
浏览 1提问于2013-07-24得票数 1
1回答
我有一个包含唯一内容(数组)的bash脚本，例如
bash_arrray.sh
locDbList=(default default_test)
我需要在Perl脚本中使用这个数组。
是否可以以某种方式将数组定义从bash文件加载到Perl中？
如果不是，那么我如何定义一个具有相同数组的Perl文件并将其加载到另一个Perl脚本中呢？
在第二种情况下：
perl_arrray.pl
second_perl_file.sh ( load the perl_array in here ).
最后一种选择是将数组信息放入一种我可以从Perl和bash中读取的格式，例如ini文件
浏览 0提问于2013-01-17得票数 0
回答已采纳
2回答
我知道Perl中的传统“列表”在内部实现为真正的双链接列表。因此，索引对list元素的访问是缓慢的。这是一个动态列表的成本，它可以被分割、扩展、缩小。
但是，出于性能原因，可以使用malloc()一些内存块并为其元素创建静态大小和预定义大小的向量:例如，固定大小的双链接列表可以表示为大小为4(prev_v_index) + 4(next_v_index) + 8(data_ptr又名REF) =16个字节的元素序列。因此，我们可以像在C: elem_ptr=vector_ptr+(index*elem_size)这样的编译语言中那样访问这个向量的每个元素--通过一些特定于体系结构的对齐(x86
浏览 1提问于2018-01-22得票数 0
回答已采纳
4回答
在Windows中，Perl模块安装在C:/Perl64/site/lib/中。在Ubuntu系统中对应的位置是什么？
浏览 0提问于2013-01-10得票数 4
1回答
我正在编写一个脚本，允许创建一个json对象与特定图形的信息一起与SigmaJS一起使用。 需要强调的是，用户必须指出必须进行多少次迭代才能定义将存在于图中的节点数量。我对这门语言是个新手，在代码中将迭代放在5中只是举个例子。 use strict;
use warnings;
use JSON;
my $json_obj = new JSON;
my %perl_data;
for (my $i=0; $i <= 5 ; $i++) {
$perl_data{nodes} = [{id => "..", label => ".."
浏览 9提问于2019-05-03得票数 0
回答已采纳
我是一个全新的perl和javascript新手，正在尝试让一个javascript for循环通过一个perl数组来将标记插入到google地图实例中。映射被创建，for循环运行，但是插入了5个相同的标记，因为循环似乎没有正确运行。有没有更好的方法在javascript中访问这个数组？
@latlongarray = (0,0,20,20);
$length = @latlongarray;
{
print <<HTML;
<html>
<head>
<script type="text/javascript"
src=
浏览 1提问于2012-03-20得票数 0
3回答
我有一个YAML数组：
myarray:
- PHP
- Perl
- Python
如何使用ruby将其转换为bash数组？
Arr[0]='PHP'
Arr[1]='Perl'
Arr[2]='Python'
浏览 3提问于2015-01-23得票数 1
回答已采纳
2回答
我是否可以将数组从perl传输到c++，而不向hdd移动任何东西？我可以用perl生成一个数组，保存在一个文件中，然后在c ++中读取。但是，是否可以只在内存中执行这个操作呢？
浏览 3提问于2013-11-26得票数 0
回答已采纳
@array1 = ('20020701', 'Sending Mail in Perl', 'Philip Yuson');
@array2 = ('20020601', 'Manipulating Dates in Perl', 'Philip Yuson');
@array3 = ('20020501', 'GUI Application for CVS', 'Philip Yuson');
@main = (\@array1, \@array
浏览 0提问于2010-12-10得票数 1
回答已采纳
1回答
最近，我用一些更新的东西取代了老化的(386)监控机器，因为我有CentOS的驱动问题，所以我决定使用Debian 6(挤压)代替。虽然在过去，我更喜欢从源代码编译，这一次，我认为我会尝试坚持使用apt和安装软件包的方式。
我想这是不可避免的问题。主要关注的是，当我尝试用代码(PHP或Perl)创建映像时，GD中似乎没有任何图像支持，出现了类似这样的错误消息：
Can't locate object method "png" via package "GD::Image"
我可以将"png“替换为"jpg”或"gif"，
浏览 0提问于2011-12-23得票数 4
我在浏览时遇到了这个特殊的变量($#_)。我试着找出它的意思，但什么也找不到。请让我知道这个特殊变量是什么意思。
浏览 0提问于2011-08-10得票数 4
回答已采纳
有没有人尝试在Linux的Mono中使用perlembed？
这是链接：
这是我对DllImport签名的第一次尝试：
private const string PERL_LIB = "/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so";
[DllImport(PERL_LIB, EntryPoint = "perl_alloc", SetLastError = true)]
public static extern IntPtr Alloc();
[DllImport(PERL_LIB
浏览 0提问于2009-07-28得票数 6
回答已采纳
2回答
我试图从perl返回一个数组到bash。
我的perl文档有一个数组，然后我使用return(@arr)。
从我的bash脚本中
VAR = `perl....
当我回显VAR时，我得到1长字符串的aray，所有数组vars都没有空格连接。
谢谢
浏览 0提问于2018-07-30得票数 1
回答已采纳
1回答
我想将第二列中的值小于特定值的行分隔开。
示例输入：
id1 19501112
id2 19831207
id3 20001212
id6 20000101
id10 20061213
id11 20081212
id12 20100109
id13 20101218
id14 20101212
id15 20111111
id16 20150919
id20 20141415
我想提取第二个字段的值小于20100101的行。所以，我的输出是：
id1 19501112
id2 19831207
id3 20001212
id6 20000101
id10 20061213
id11 2008
浏览 0提问于2015-10-01得票数 4
回答已采纳
#!/usr/bin/perl
use Data::Dumper;
use strict;
use List::Util qw(shuffle);
my @arr = [qw(Foo Bar Baz Qux Quux Quuz)];
@arr = shuffle @arr;
print Dumper @arr;
Perl版本是v5.32.0。我看到的结果总是Foo Bar Baz Qux Quux Quuz。
$ ~/tmp/shuffle.perl
$VAR1 = [
'Foo',
'Bar',
'Baz'
浏览 2提问于2021-02-19得票数 2
回答已采纳
这在Perl中意味着什么？
if (@array)
if (!@array)
这是否意味着如果我们要求Perl检查数组是否存在？
谢谢
浏览 5提问于2013-10-14得票数 6
回答已采纳
给定如下输出：
-rw-r--r-- 1 tinosino staff 4.0K 21 Mar 2012 EtcHosts_Backup_2012-03-21_21-19-10.txt
-rw-r--r-- 1 tinosino staff 3.8K 1 Apr 2012 EtcHosts_Backup_2012-04-01_01-06-12.txt
-rw-r--r-- 1 tinosino staff 3.9K 18 Jun 2012 EtcHosts_Backup_2012-06-18_18-33-40.txt
-rw-r--r-- 1 tino
浏览 2提问于2013-03-31得票数 1
回答已采纳
我想知道如何在Perl中实现这个功能。
cat /etc/shadow | awk -F ":" '/root/{print $2}'
最好听听您对这类任务有什么更好的意见: Perl或awk。
浏览 0提问于2018-03-12得票数 0
回答已采纳
4回答
如果第一个字段是重复的，则查找awk (或sed)一行程序以从输出中删除行。
我见过的一个删除重复行的例子是：
awk 'a !~ $0; {a=$0}'
我试着使用它作为基数，但没有成功(我以为把$0改成$1会起作用，但似乎行不通)。
浏览 0提问于2010-04-09得票数 14
回答已采纳
2回答
some name;another thing; random; value value value value value
我正在尝试替换random;使用sed后出现的空格。例如，保留some name中的空格是很重要的。
这将用逗号替换所有空格。如何匹配像*;*;*;这样的表达式，并在行的其余部分使用sed并用逗号替换空格？
sed -e 's/ /,/g'
谢谢
浏览 0提问于2019-10-10得票数 9
回答已采纳
由于我想通过PHP调用一个perl脚本，我几乎要发疯了。
我有一个PHP表单，我在其中放入一个MySQL查询，该查询存储在一个文件中，并选择一些变量。
如果我调用像"top“这样的SHELL命令...一切都很好，但是只要我尝试用变量调用perl脚本，就没有任何结果。
应该存储结果的文件保持为空。
这是PHP文件中的调用部分：
if (isset($_POST['submit'])) {
$file = 'query.sql';
$query = $_POST['query'];
file_put_contents($file, $quer
浏览 1提问于2014-03-17得票数 0
我几乎没有使用Python、Perl和Ruby等语言的经验，但我已经用Smalltalk开发过一段时间了。有一些非常基本的Smalltalk类，它们非常流行并且是跨Smalltalk实现的：
FileStream
ReadWriteStream
Set
Dictionary
OrderedCollection
SortedCollection
Bag
Interval
Array
在Python、Perl和Ruby中，哪些类是等价的或有效的语义替代品？我发现了几个比较语法的语言比较页面，但是对于核心库和基础库的翻译似乎没有什么帮助。
我还想知道在Python、Perl或Ruby中是否存在Sma
浏览 1提问于2011-08-25得票数 7
回答已采纳
我想知道，-MO=Deparse是否向您展示了所有的Perl优化，为什么在Perl 5.10中没有将其折叠起来？
$ perl -MO=Deparse -e'[qw/foo bar baz/]->[0]'
['foo', 'bar', 'baz']->[0];
-e syntax OK
IRC上的一些人认为，O=Deparse可能并不是全部展示出来，但它确实显示了一些恒定的折叠。
$ perl -MO=Deparse -e'use constant "foo" => "bar
浏览 0提问于2010-08-24得票数 8
1回答
我有一个包含数千个字符串的.txt文档，这些字符串都有类似的布局，但是其中一些行还有我不想要的其他信息。
下面是一个例子：
202212_08,ABC123/A1234,AB,,C123
202212_08,CDEF1233/A5678,FG,,C345
我希望产出如下：
20221208,ABC123,C123
20221208,CDEF1233,C344
我尝试过使用正则表达式，但是我一直得到一个错误，输出是空的。谢谢你的帮助。
浏览 0提问于2022-12-08得票数 0
回答已采纳
2回答
我只是尝试将Perl中的数组与+操作符连接起来，得到了奇怪的结果：
perl -wE 'say([1, 2, 3] + [4, 5, 6])'
73464360
对散列做同样的操作似乎是语法错误：
perl -wE 'say({} + {})'
syntax error at -e line 1, near "} +"
Execution of -e aborted due to compilation errors.
第一个表达式的结果是什么？有任何记载吗？
浏览 1提问于2017-02-16得票数 1
回答已采纳
3回答
捕获特定的数组列并将其写入文件
、、、、
我有一个数组，其数据如下：
( "10.1.1.1 api sd1", "10.1.1.1 lst sd2" )
是否有可能从数组中提取每一行第二列中的元素并将其放入文件中？例如，在上述情况下，预期结果是：
api
lst
浏览 4提问于2014-10-15得票数 1
回答已采纳
4回答
我正在尝试创建一个perl脚本，以便将文件内容加载到一个维度数组中，但它似乎不起作用。任何帮助都将不胜感激！
这是我正在尝试的，但它不起作用。
#!/bin/perl
use List::Util qw(first);
@filelist = ("file1", "file2", "file3");
sub Load_File{
my $File_Name = shift;
open my $handle, '<', $File_Name;
chomp( my @lines = <$handle>)
浏览 6提问于2016-03-04得票数 0
回答已采纳
4回答
#!usr/bin/perl
@array = ();
open(myfile,"sometext.txt");
while(<myfile>)
{
chomp;
push(@array,[split(" ")]);
}
close(myfile);
print @array[0];
它输出的不是这个多维数组中第一个数组的元素，而是十六进制(？)指针引用。如果有人知道我如何打印这个数组，请张贴，我将不胜感激。
浏览 0提问于2010-03-02得票数 3
回答已采纳
没有技术原因不允许@array和/或%hash作为子例程的参数。例如：push @list, 1, 2，-允许这样做。
我们可以用来实现这一点。
mypop (\@)
但是，尽管如此，我们还是得到了数组/哈希作为引用：
sub test (\%\@) {
my( $hash, $array ) = @_;
...
有什么历史原因不允许下一个呢？
my( %hash, @array ) = @_;
禁止这样做有什么好处呢？
浏览 1提问于2018-02-16得票数 0
回答已采纳
我知道如何向散列中添加新元素，但我需要对新元素进行排序，并首先打印它们。
我发现，打印出来的散列会跟随序列本身，而不是随机打印，我知道当我添加一个新的，它将直接出现在底部。有任何方法可以直接在散列的顶部添加新元素吗？
或者在添加新元素之后，它们可以先显示出来吗？(散列中的所有元素都将显示，但新元素将位于顶部)
浏览 9提问于2022-03-21得票数 0
我确信有一种非常简单的方法可以做到这一点，但每当我搜索示例时，我都会得到两步法。下面是我通常要做的：
$data =~ m/(my_query)/;
$result = $1;
我希望将$result设置为与正则表达式相同的行，并且从不使用$1。谢谢！
浏览 4提问于2013-05-29得票数 1
回答已采纳
2回答
我在一个文件中有几百行，有着相同的结尾。
我的锻炼(同样的结果)：
$ cat x.txt | sort -u
$ cat x.txt | sort -u | uniq -u
$ cat x.txt | sort -u | awk '!a[$0]++'
media_w2089898193_b1344100_sleng_2437.ts
media_w2089898193_b1344100_sleng_2438.ts
media_w2089898193_b1344100_sleng_2439.ts
media_w2089898193_b1344100_sleng_2440.ts
浏览 3提问于2020-12-05得票数 1
回答已采纳
4回答
我在命令行上有以下查询，我希望输出值显示在单行上，这样我就可以将其输入到监视系统中，我想知道如何通过perl、sed、awk来实现这一点。
我的命令行
activemq:query -QQueue=PCA --view QueueSize,ConsumerCount,EnqueueCount,DequeueCount
输出
ConsumerCount = 1
QueueSize = 0
DequeueCount = 148248
EnqueueCount = 148248
Desierd输出
1 0 148248 148248
谢谢
浏览 8提问于2014-04-10得票数 1
回答已采纳
我很少有python经验，也没有perl知识，但我需要将连接到MySQL服务器的perl代码转换为python。
在perl子程序中，在标准连接操作之后，出现的代码是：
my @tmp = @{$dbh->selectall_arrayref( $sql )};
my @types;
foreach my $t (@tmp) {
push @types, @$t[0];
}
return @types;
其中$sql是MySQL选择查询。在python函数中，我要做的是：
cursor = conn.cursor()
cursor.execute( sql )
tmp = curso
浏览 0提问于2016-06-29得票数 0
回答已采纳
我有一个很大的文件，其中包含了如下所示的行。Unix中是否有sed或awk命令，我可以用于删除第二列中数据长度<60的每一行。在这个例子中，我只剩下前3行。到目前为止我一直在尝试失败。
Query1 1041 SVTQLTNDLFQTYLRKILS*MFKVIGCSDLLGNPLTLATN*IDGVLDLVQEPWSNS*KLS 862
Query1 1707 TTSNLTWLMQKNYMRQGILQFYKVIGSSDLLGNPIGLIDKLGSGVLEFFSEPYKGLLKPG 1767
Query1 2131 TIQTLSNLIIKNYVRQGILQFYKILGSSD
浏览 1提问于2015-12-17得票数 0
回答已采纳
2回答
我对perl和apache相当陌生，我的代码似乎有点小问题。
我有3份文件：
hw.pm
package hw;
sub calc {
my $num1 = shift;
my $num2 = shift;
return $num1 + $num2;
}
1;
startup.pl
use lib qw(path to where hw.pm is located);
1;
hel.pl
#!/usr/bin/perl -w
use hw;
use CGI qw(:standard);
print header;
my $ans = calc(5,4);
print
浏览 3提问于2011-02-28得票数 0
3回答
我刚刚开始使用一个在线教程(大约15分钟前)。我做了一个小的子例程来测试一些Perl特性，并想知道是否有可能在运行时确定传递给子调用的参数是数组还是标量。让我们以我所写的子为例：
#!/usr/bin/perl
sub somme_prod {
if (scalar(@_) > 1) {
$facteur = shift(@_);
foreach my $nb (@_) {
$resultat += $nb
}
return ($resultat * $facteur);
}
浏览 3提问于2012-08-12得票数 1
回答已采纳
1回答
我正在尝试编写一个自动化其他perl脚本的脚本。本质上，我有一些脚本为我汇总数据，需要每周运行一次。我也有一些需要在周末运行的东西，如果有问题的话，可以给我发邮件。除了自动化之外，我已经处理好了电子邮件和所有的东西。从互联网搜索来看，似乎使用Proc：：后台是可行的方法。我试着编写一个非常基本的脚本来测试它，但无法完全弄清楚。我对Perl非常陌生，以前从未自动化过任何东西(除了通过windows任务调度程序)，所以我真的不明白代码在说什么。
我的代码：
use Proc::Background;
$command = "C:/strawberry/runDir/SendMail.pl
浏览 3提问于2012-08-07得票数 0
3回答
**这是一个风格问题，而不是“编码问题”**
例如，在Perl中，测试复杂数据结构中是否存在元素或键是很直观的。如果我像这样反序列化一段json：
[ { 'foo' : 'bar' } ]
我会这样做：
if ($array[0]{foo}) {
print "foo exists\n";
}
if ($array[0]{bar}) {
print "bar exists\n";
}
有了这个结果：
$ perl tmp.pl
foo exists
$
如何在Python中轻松而优雅地完成这一任务？
浏览 4提问于2020-10-07得票数 0
回答已采纳
下面的脚本智能地匹配两个数组的片段。一开始，两个数组是相同的，我得到了合理的结果。然后我更改其中一个数组并智能匹配两个新的切片，但它仍然显示这两个切片是相同的。但是，当我将切片复制到数组中时，智能匹配数组表明它们确实是不同的。
脚本：
#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
my @x = qw (one two);
my @y = qw (one two);
my @x_s;
my @y_s;
print "Before change: values are the same:\n";
@x_s
浏览 0提问于2012-02-07得票数 8
回答已采纳
我第一次尝试编写bash完成，我对取消引用bash数组的两种方法(${array[@]}和${array[*]})感到有点困惑。
下面是相关的代码块(它可以工作，但我想更好地理解它)：
_switch()
{
local cur perls
local ROOT=${PERLBREW_ROOT:-$HOME/perl5/perlbrew}
COMPREPLY=()
cur=${COMP_WORDS[COMP_CWORD]}
perls=($ROOT/perls/perl-*)
# remove all but the final part of
浏览 1提问于2010-07-27得票数 109
回答已采纳
至于标题，我遇到错误Can't locate Net/SNMP. my in @INC (您可能需要在尝试从netbeans运行我的perl脚本时安装Net::SNMP模块。它清楚地表明我需要安装Net::SNMP模块。但是，我已经在我的windows上安装了net-snmp模块，并按照教程进行了配置。Net::SNMP和net-snmp有什么不同？如果是，如何在windows 8.1和10上安装Net::SNMP？我已经在我的电脑上安装了activeperl和net-snmp。感觉没有希望，因为已经做了一些研究，但仍然无法找到解决这个问题的方法。
我们非常感谢您的帮助。谢谢
浏览 2提问于2016-06-24得票数 2
3回答
我正在寻找一个与以下php代码等效的Perl：
foreach($array as $key => $value){
...
}
我知道我可以这样做foreach循环：
foreach my $array_value (@array){
..
}
这将使我能够对数组值执行操作-但我也想使用键。
我知道有一个Perl散列，它允许您设置键-值对，但我只需要数组自动提供给您的索引号。
浏览 4提问于2012-05-16得票数 7
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
