1回答
在Perl中有没有像java中的LinkedHashMap那样的数据结构？
或者Perl中的LRU数据结构
更新：@TLP基本上我希望有哈希表数据结构，但我也可以保持键进入的顺序，在我处理列表中的键后删除键。
更新：@ccheneson Tie::IxHash one似乎不是我想要的，我想弹出一个最旧的密钥，但Tie::IxHash弹出最新的密钥，如何在tie::ixHash中获得最旧的键值对？我希望有一个队列结构(以及哈希结构，我想以最简单的方式找到键)，新的键，值对不断进入，我保持处理最旧的键和删除最旧的键。
更新：@ FMc Tie::IxHash是我需要的，Tie::IxHash-&g
浏览 3提问于2011-08-23得票数 1
回答已采纳
我正在使用Perl v5.18.2。
我希望散列元素按照Perl的模块的顺序打印，但是哈希似乎只被排序，直到它被传递给Template。
use strict;
use warnings;
use Tie::IxHash;
use Template;
use Test::More;
tie my %hash, 'Tie::IxHash';
%hash = ('one' => 1, 'two' => 2, 'three' => 3);
my %vars = ('hash' => \%has
浏览 4提问于2016-07-27得票数 1
回答已采纳
我有两个数组，我想用它们来生成哈希表
use warnings;
use strict;
use List::MoreUtils;
use Tie::IxHash;
my %KEY_VALUE;
tie %KEY_VALUE,'Tie::IxHash';
my @KEY= qw(
0
0
5
1
1
1
2
2
2
2
3
4
);
my @VALUE= qw(
A
B
C
D
E
F
G
H
I
J
K
L
);
@KEY_VALUE{@KEY}=@VALUE;
print join("\t",%KEY_VALUE);
我得到的结果是：
0
浏览 0提问于2018-10-11得票数 0
我如何按顺序将这些数组保存到数组的散列中，而不是按字母顺序，只需按数组保存即可。
stackoverflow不允许我发布，因为没有足够的细节，所以我这样做了-
#!/usr/bin/perl
use warnings;
use strict;
use Tie::IxHash;
use Data::Dumper;
my @NAME= qw(AA AB AC BA BB BC CA CB CC AA AB AC BA BB BC CA CB CC AA AB AC BA BB BC CA CB CC AD CD CE CF BD BE);
my @FAMILY= qw(A A A B B B
浏览 0提问于2018-10-22得票数 1
我可以使用IxHash记住散列的插入顺序。
use Tie::IxHash;
my %hash;
tie(%hash, 'Tie::IxHash');
%hash = (
x => 10,
z => 20,
q => { a1 => 1, a3 => 5, a2=>2,},
y => 30,
);
printf("keys %s\n", join(" ", keys %hash));
=> keys x z q y
嵌套的散列呢？
printf("keys %s\n&#
浏览 6提问于2010-06-09得票数 9
回答已采纳
我使用IxHash来记住散列的插入顺序。但是，当使用克隆来复制散列时，我得到一个空的散列。
use strict;
use Switch;
use Data::Dumper;
use Clone qw(clone);
use Tie::Autotie 'Tie::IxHash';
our %h_basic_values;
my $t = tie our(%h_inner_hash), "Tie::IxHash";
my $t1 = tie our(%h_inner_hash1) , "Tie::IxHash";
%h_inner_hash =
浏览 2提问于2010-08-29得票数 4
IxHash生成一个对象，该对象具有一组基本完整的行为，既包括数组，也包括散列。但是我没有找到与each函数等效的函数，它返回(键、值)对。
我是不是忽略了？
如果我不得不使用我自己的，我会想像这样的东西是可行的：
use Tie::IxHash;
$t = Tie::IxHash->new( a,1,b,2,c,3 );
while (($x1, $x2) = map { $_ => $t->Values($_) } $t->Keys ) { say "$x1 => $x2"; }
但是输出是一个无穷级数
a => 1
..。原因我还不
浏览 1提问于2013-02-15得票数 2
回答已采纳
我正在尝试创建一个散列数组，每个散列都是一个绑定的、有序的IxHash。在遍历我的初始哈希时，键确实是按顺序排列的。然而，一旦我把它们推到一个数组上，排序就消失了。我知道当哈希被推到数组上时，我对它发生的事情知之甚少，但如果有人能告诉我，我将不胜感激。
#! /usr/bin/perl -w
use strict;
use Data::Dumper;
use Tie::IxHash;
my @portinfo;
tie (my %portconfig, 'Tie::IxHash',
'name' => [ 'Name',
浏览 3提问于2012-08-06得票数 1
回答已采纳
我正在尝试创建一个哈希，以保留键被添加的顺序。在“创建哈希并保留的添加顺序”一节中，它给出了一个修改哈希的片段，因此当您执行keys时，它会按照插入到哈希中的顺序返回键。
当我执行以下代码片段时：
use strict;
our %foo;
use Tie::IxHash;
tie (%foo, Tie::IxHash);
它失败了，因为：
Bareword "Tie::IxHash" not allowed while "strict subs" in use at /nfs/pdx/home/rbroger1/tmp.pl line 4.
Execution
浏览 4提问于2010-02-25得票数 5
回答已采纳
我知道如何向散列中添加新元素，但我需要对新元素进行排序，并首先打印它们。
我发现，打印出来的散列会跟随序列本身，而不是随机打印，我知道当我添加一个新的，它将直接出现在底部。有任何方法可以直接在散列的顶部添加新元素吗？
或者在添加新元素之后，它们可以先显示出来吗？(散列中的所有元素都将显示，但新元素将位于顶部)
浏览 9提问于2022-03-21得票数 0
2回答
如何对类的散列成员进行排序？我的类看起来像这样
package TestSuiteInterface {
use Tie::IxHash;
sub new {
my ($class, $name) = @_;
my $self = {};
my %schedulerdata = {};
tie(%schedulerdata, 'Tie::IxHash');
$self->{name} = $name;
$self->{scheduler} =
浏览 0提问于2020-02-12得票数 0
我想增加哈希值，从每个$COMMUNITY的0开始，定义一个数组@指示器，从0到数组@NAME的相同索引，并将其推送到值，但这不是我想要的，我不知道如何实现。我非常清楚，这个值并不是按顺序排列的，因为数组中的位置不是先组织好的，而是如何准确地做到这一点，然后如何打印Sub散列$FAMILY的每个第一个值。例如,
community 0 = name 0 4 7
community 1 = name 0 3 8
community 2 = name 0 3 6
#!/usr/bin/perl
use warnings;
use strict;
use Tie::Autotie 'Ti
浏览 0提问于2018-10-26得票数 0
回答已采纳
我使用XML::Simple来解析XML文件。下面给出了XML文件的代码
use Tie::IxHash;
tie %$data, "Tie::IxHash";
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple;
$data = $xml->XMLin("ship_order.xml");
print Dumper($data);
XML文件，(ship_order.xml)
<?xml version="1.0" encoding="UTF-8"
浏览 0提问于2010-09-13得票数 0
回答已采纳
在Perl中：
my %members = ( "fools" => 6,
"monsters" => 2,
"weirdos" => 1,
"coders" => 1,
浏览 2提问于2013-08-30得票数 0
回答已采纳
我有一个Tie::IxHash对象，它已经初始化如下：
my $ixh = Tie::IxHash->new('a' => undef, 'b' => undef, 'c' => undef);
稍后，我想为这三个键分配一个值qw/1 2 3/的列表。我似乎找不到办法在一份声明中做到这一点。
(我在一个步骤中分配键，在另一个步骤中分配值，是因为这是API的一部分，用户可能希望使用(key，value)接口来添加值。)
我试过$ixh->Values(0..2) = qw/1 2 3/;，但是那个方法不喜欢在左手边。
浏览 3提问于2013-06-09得票数 0
回答已采纳
如何保持为第二个VAR添加散列元素的顺序？
(散列的散列)
例如：
use Tie::IxHash;
my %hash;
tie %hash, "Tie::IxHash";
for my $num (0 .. 5){
$hash{"FirstVal$num"}++;
}
for my $num (0 .. 5){
$hash{"FirstValFIXED"}{"SecondVal$num"}++;
}
print Dumper(%hash);
当转储结果时，$VAR14没有保留插入顺序：
$VAR1 = &#
浏览 0提问于2010-08-04得票数 2
回答已采纳
我有一个哈希表
%value
g=>10
i=>55
k=>4
n=>100
我有一个数组
@letters = ('k','i','n','g')
请告诉我如何按数组中键的顺序对我的散列进行排序。
浏览 0提问于2013-06-01得票数 4
回答已采纳
尝试将散列引用存储在可存储的文件中，它运行良好。不过，我还需要将密钥按顺序排序--因此我使用了以下方法
tie %$hashref, 'Tie::IxHash'; store $hashref, $filename;
但是这是行不通的--文件被创建了，但是它的大小只有50个字节，当我使用retrieve()时，我得到一个空的散列。
我尝试使用Tie::IxHash::Easy (因为我的散列是散列的)，但是没有用。有什么帮助吗？
浏览 1提问于2013-11-07得票数 3
回答已采纳
我希望有一个Perl子例程，它通过Tie::IxHash模块创建并返回有序的散列。它看起来像这样：
sub make_ordered_hash {
my @hash_contents = munge_input(@_); # I get a list of alternating keys and values
tie(my %myhash, Tie::IxHash, @hash_contents);
return %myhash;
}
现在，如果我执行my %ordered_hash = make_ordered_hash(@input_stuff)，%ordered
浏览 2提问于2010-10-29得票数 5
回答已采纳
3回答
我有以下脚本
my %hash = (
'ev2' => 'aaaa',
'ev1' => 'bbbb'
);
for my $key (sort keys %hash) {
print $key , '-' , $hash{$key}, "\n";
}
印出来
ev1 - bbbb
ev2 - aaaa
我想按添加到散列的顺序打印这些元素。
ev2 - aaaa
ev1 - bbbb
我该
浏览 2提问于2017-03-23得票数 1
回答已采纳
2回答
在Perl中是否有任何本机方式来知道访问了哪个哈希键？
某种类似于某些语言中存在的神奇方法或类似代理对象的东西？
浏览 4提问于2017-11-09得票数 0
回答已采纳
7回答
在下面的程序中使用散列计算实际列表的出现次数后，如何保持实际列表的顺序？例如，<DATA>是
a
b
e
a
c
d
a
c
d
b
etc.
使用散列，我计算了每个元素的出现次数。
我想要的是：
a 3
b 2
e 1
c 2
d 2
但下面的程序向我展示了不同的情况。
my (%count, $line, @array_1, @array_2);
while ($line = <DATA>) {
$count{$line}++ if ( $line =~ /\S/ );
}
@array_1 = keys(%count);
@array_2 =
浏览 0提问于2009-10-13得票数 22
考虑以下哈希：
my $hoh = {
'tag1' => {
'name' => 'Item 1',
'order' => '1',
'enabled' => '1',
},
'tag2' => {
'name' => 'Item 2',
'order' => '2',
'enabled' =>
浏览 0提问于2013-05-31得票数 3
回答已采纳
请考虑以下示例：
use 5.010;
use Data::Dumper;
{
package MyTestPck;
use Data::Dumper;
use Tie::IxHash;
sub ordered_hash { # http://stackoverflow.com/a/3001400/277826
tie my %hash => 'Tie::IxHash';
%hash = @_;
\%hash
}
my $fields = ordered_hash(
(map { $_ => $_
浏览 2提问于2014-07-15得票数 0
回答已采纳
2回答
下面的脚本将打印每个键的每个元素的所有标量值，如何仅打印散列中每个元素的第一个标量值。
#!/usr/bin/perl
use warnings;
use strict;
use Tie::IxHash;
my %KEY_VALUE;
tie %KEY_VALUE,'Tie::IxHash';
my %KEY_VALUE= (
0 => ['A','A','C','B','D'],
1 => ['C','C','C&#
浏览 2提问于2018-10-13得票数 0
1回答
我正在开发一种代码，它可以将句子拆分成单独的单词，然后根据散列关键字搜索单词的存在。我的代码返回100%相同的术语，在匹配之后，我用与匹配关键字相对应的值标记句子中的单词。问题是代码标签的条款，但随机值，而不是我所期望的。此外，在术语和散列键相似但不是100%相同的情况下，我如何编写正则表达式来匹配我的术语和键。注意:我已经将散列键的词干转换为它们的根形式。我可以提供一些例子:如果句子中的术语是协同的或反协同的，并且我的散列键是Synerg，我如何将上面的术语与Synerg匹配。
我的代码如下：
open IN, "C:\\Users\\Desktop\\TM\\clean_c
浏览 2提问于2012-10-24得票数 0
回答已采纳
考虑一个包含以下内容的文本文件：
apple apple pear plum apple cherry pear apple
cherry plum plum pear apple cherry pear pear apple plum
考虑一下perl一行程序：
perl -pe "s/apple/green/g and s/pear/yellow/g and s/plum/blue/g and s/cherry/red/g" < fruits.txt
这会用水果的颜色来代替所有的水果。
现在，这是否可以在一个s/g中完成，而不是上面的四个？
我还关心水果词的顺序。
浏览 1提问于2012-01-20得票数 9
回答已采纳
3回答
我正在开发一个催化剂应用程序，它使用Template::Toolkit作为模板引擎。一个页面需要一个相同输入元素的列表。它们可以从数组中提取，但我需要元素的排序顺序和描述性标签。
对于排序顺序，我会使用数组。对于存储每个键的附加值，哈希是完美的。如何将两种结合在TT中？我可以同时使用这两种方法，但这看起来很难看，而且在改变字段时可能会导致错误。
但是，我更喜欢在TT中这样做，因为表单元素的描述和顺序都是前端的事情。
这就是我在纯Perl中所做的工作：
#!/usr/bin/perl -w
use 5.10.0;
# definition of description and order i
浏览 2提问于2011-04-07得票数 1
回答已采纳
如何按照散列中添加的顺序打印散列的键/值对。
例如：
%hash = ("a", "1", "b", "2", "c", "3");
while (($key, $value) = each %hash) {
print "$key", "$value\n";
}
上述结果如下：
c3
a1
b2
我正在寻找一种打印以下内容的方法：
a1
b2
c3
提前感谢！
浏览 3提问于2013-10-25得票数 4
回答已采纳
为什么通过多次执行这个程序，合并散列的输出会发生变化？
use strict;
use warnings;
my %data1=(a=>'1',b=>'2',c=>'3');
my %data2=(d=>'4',e=>'5',f=>'6');
my %data3=(%data1,%data2);
while(my($key,$value)=each %data3)
{
print "$key:$value\n";
}
我已经验证了堆栈溢
浏览 3提问于2015-11-02得票数 3
在下面的代码中，我有一个与散列绑定的类。在FETCH函数中，我将打印键的JSON编码：
package Example::Tie;
use JSON;
my $json = JSON->new();
sub TIEHASH {
my ($pkg,@list) = @_;
bless { @list }, $pkg;
}
sub FETCH {
my ($tied,$key) = @_;
return $json->encode({key => $key});
}
package Example;
sub new {
my ($p
浏览 0提问于2017-08-02得票数 4
回答已采纳
我有一个有趣的问题，我的脚本使用ssh访问我的vmware服务器，以便从其中提取数据。我发现，如果运行脚本的机器从未连接到服务器，脚本将无法运行，因为询问我连接的主机是否应添加到我的已知主机文件中。
基于阅读一些论坛之类的，以及有类似问题的人，我想出了一个想法。我想修改“脚本主机”上的ssh_config文件，以排除对配置文件中指定的主机的已知主机检查。这将通过我创建的配置脚本来完成，该脚本向您提出各种问题，以生成xml配置文件。
现在问题来了..。
我需要修改配置文件，我认为最简单的方法就是将文件放入perl中并对其进行操作。Slurping我以前做过，但根据我所读到的指令，在perticu
浏览 0提问于2011-04-07得票数 0
回答已采纳
1回答
关于tie::file模块，我有两个疑问
我使用了tie::file模块来搜索一个55 MB的文件，并在tie::file中设置了20 MB的内存。当我试图在绑定数组上搜索字符串时，这需要很长时间。这附近有什么工作吗？
可以绑定:用于读取二进制文件的文件。绑定数组由"\n“分隔。如何使用tie::file来读取二进制文件？请给我贴上一些代码样本。
/home/a814899> perl -e的打印"x\n"x27 for 1.1024*1024；‘>a
/home/a 814899> echo "hello world“>
浏览 5提问于2013-01-17得票数 0
回答已采纳
在PHP中，当我们使用排序的数字作为键将元素插入到新的哈希表中时，结果哈希也将是有序的，这是真的吗？
那么，当我们得到密钥时，它们将被排序，而$a[0], $a[1], $a[2]也将遵循原始顺序？(虽然可以肯定的是，关键字将是这个顺序，但是值不一定是这样的)。
在PHP中，我们真的可以依靠它吗？在Perl、Python或Ruby中没有这样的行为吗？
浏览 0提问于2012-05-02得票数 2
回答已采纳
1回答
众所周知，如何在perl中迭代散列(参见，例如，)。但是，键和值的顺序是未定的，而且实际上对于perl脚本的每次运行都是不同的。
是否有一种方法可以确保相同perl脚本在相同输入数据上的每次运行都以相同的迭代顺序进行？我只关心在这个意义上的可复制性--秩序不需要被人类预测。
编辑:我用迭代的方式表达了这个问题，但可能不是哈希之上的迭代，而是不确定的哈希构建过程。我能否设置一些初始化，以一种确定性和可复制的方式构建哈希？
浏览 2提问于2015-12-22得票数 1
回答已采纳
2回答
我正在寻找一个数据结构，它最好执行相等的O(1)？用于添加/删除/检索元素时的任意数量的元素。
以下是一些额外的指导方针，
检索元素不应涉及缓慢的keys()
元素必须始终是唯一和定义的。
元素顺序不显着
元素的添加或删除不应涉及对其他元素的迭代。
检索到的元素列表中的空白是可以容忍的，可以用undef值表示。
请提出比，
sub uniqArrayFactory {
my $members = [];
my $seen = {};
my $gaps = [];
return sub {
my (%arg) = @_;
retur
浏览 3提问于2016-05-19得票数 6
回答已采纳
2回答
可以使用对象作为散列键吗？
例如，下面的代码允许我使用MyClass的一个实例作为键，但是当我迭代这些键并尝试调用get_value方法时，我得到了错误：
无法通过包"MyClass=HASH(0x12a4040)“定位对象方法"get_value”(也许您忘记加载“MyClass=HASH(0x12a4040)”？)
package MyClass;
use strict;
sub new
{
my $class = shift;
my $self = {
_value => shift
};
bless $self,
浏览 1提问于2010-08-13得票数 13
回答已采纳
1回答
我不想对条目进行排序。
使用此方法也不会保留顺序
foreach my $val (keys %hash) {
...
}
浏览 1提问于2010-09-04得票数 10
回答已采纳
最近，我在Perl中遇到了这样一种情况，即使用保持顺序的散列将使我的代码更易读、更容易使用。经过一些搜索，我发现了Tie::IxHash模块，它完全符合我的要求。在我谨慎行事并开始使用它之前，我想更好地了解它是如何工作的，以及我可以从它得到什么样的性能。
据我所知，有序关联数组通常是作为尝试实现的，我以前从未实际使用过，但确实知道它们的性能符合我的期望(我希望做大量的读写工作，并且需要始终记住最初插入的顺序键)。我的问题是，我不知道这是如何建立的：：IxHash，或者我应该期望它具有什么样的性能，或者我是否有更好的/更干净的选项(我真的不希望保留一个单独的数组和散列来完成我需要的事情，因为这样
浏览 3提问于2011-03-17得票数 4
回答已采纳
我想对下面的哈希进行排序。parentXX应该使用__displayorder的值进行排序，父主题的Xtopic和主题的Xprod应该按字母顺序排序。
$VAR1 = {
'views' => {
'parent23' => {
'__displayorder' => 2,
'vtopic1' => {
'gprod1.1' => undef,
'aprod1.2&
浏览 2提问于2013-09-11得票数 0
我想使用Perl从文件中提取四行。我有四个整数变量；例如：
a= 5;
b = 45;
c=30;
d=8;
是否可以从与这些值相对应的文件(即第5行、第45行、第30行、第8行)获取和存储四个字符串的行号？我一直在玩
-ne 'print if($.==5)';
但还有什么更有说服力的方法吗？这似乎是在检查我目前的线路.
浏览 3提问于2013-09-23得票数 1
回答已采纳
3回答
我有一个.sql文件，我正在从中读取我的输入。假设该文件包含以下输入...
Message Fruits Fruit="Apple",Color="Red",Taste="Sweet";
Message Flowers Flower="Rose",Color="Red";
现在，我已经编写了一个perl脚本来从该文件生成散列。
use strict;
use Data::Dumper;
if(open(MYFILE,"file.sql")){
my @stack;
my %has
浏览 0提问于2013-02-05得票数 4
回答已采纳
6回答
我在努力使每秒的插入量最大化。我目前的插入量约为每秒20k。我的性能实际上降低了我使用的更多的线程和CPU (我有16个可用的内核)。目前，在一个16核双处理器机器上，两个线程每秒做的比16个线程多。对问题是什么有什么想法吗？是因为我只使用了一个单神吗？是索引会让事情变慢吗？我需要使用切分吗？我想知道是否有一种方法，但也保持数据库上限.
约束：必须处理大约300 k的插入/秒，必须是自限制的(上限)，必须具有相对较快的查询能力。
Problem Space：必须处理主要手机公司的通话记录(大约300 k插入/秒)，并使这些通话记录尽可能长时间(例如，一周)。
#!/usr/bin/perl
浏览 5提问于2011-09-01得票数 31
回答已采纳
1回答
我有一个关于如何打印散列的问题：
@language(1,2,3);
for my $i (0 .. $#language)
{
$statement = $db->selectall_arrayref(
"select word from words
left outer join language
on words.languageId = language.languageId
where words.languageId = $language;"
);
%words=((@language[$language])=&g
浏览 0提问于2011-02-18得票数 0
我是Perl脚本的初学者。
我希望从文本文件中逐行读取数据，然后分配
值到相应的参数到结构中。
my_input.txt
filed_ind 0x0B uint8.unsigen int
tx_offset 0x0C uint8.unsigen int
rxpowe 0x0D uint8.unsigen int
fillers 0x0A uint8.unsigen int
cellid 0x12 uint8.unsigen int
cellnum 0x13 uint8.unsigen int
编码：
我希望将每个值赋给它们相应的参数(例如，for_ind-> 0x0B
浏览 4提问于2016-09-16得票数 1
回答已采纳
2回答
Perl复制VECT文件的特定行
、、、、
我想将文件的第7-12行复制到同一目录中的另一个.vect文件中，比如。
我希望每行复制两次，并将每行的两个副本连续粘贴到新文件中。
这是我到目前为止使用的代码，我想继续在Perl中使用这些方法/包。
use strict;
use warnings;
use feature qw(say);
# This method works for reading a single file
my $dir = "D:\\Downloads";
my $readfile = $dir ."\\2290-00002.vect";
my $writefile = $d
浏览 1提问于2018-06-15得票数 1
我正在使用perl的json模块解析json对象并更新它。
在更新了json对象之后，我们看到json中元素的顺序发生了变化，我知道json中元素的顺序并不重要。
但是我想知道有没有一种方法可以保持与输入json对象相同的顺序?因为我们与许多客户端共享更新json，我担心是否有人正在使用元素顺序被硬编码的解析器。
浏览 9提问于2016-08-08得票数 1
我尝试使用模块来编写包含10亿行的文本文件，但是它在编写了1600万行之后抛出了一个错误。
"Out of memory!"
"Callback called exit at C:/perl/lib/Tie/File.pm line 979 during global destruction."
这是我试过的代码。
use Tie::File;
tie @array, 'Tie::File', "Out.txt";
$start = time();
for ($i = 0; $i <=
浏览 2提问于2014-08-21得票数 2
回答已采纳
1回答
我试图在服务器上运行easyapache并获得以下错误：
!！未能安装CPAN Perl模块：：IxHash Net::SSL日期:格式B::Fathom Net::Ident Mail::Send B::LexInfo Devel::Symdump BSD::Resource Inline：：Flow Time::ParseDate IPC::Run3 Devel::Cover！
其想法是在我的PHP中添加mbstring扩展。
对这个问题有什么了解，或者如何在不运行easyapache的情况下添加这个扩展？
浏览 2提问于2014-12-11得票数 0
我有一个文本文件(一个排序的行数组)，其中列出了给定文本中单词形式(斜度)的出现情况及其与单词的初始形式的对应关系。我想修改这个文件，以便计算类似的表单，并用给定的表单、其出现的次数和初始表单创建一个新的文件(数组)。
我是用Perl编写的，但我认为它可以用伪代码解决。
my $word1 = '';
my $word2 = '';
foreach my $line(@lines) { #read the array by lines
$word1 = $line;
$word1 =~ s/(.+)WORD.+/$1/g; #the given for
浏览 1提问于2019-09-09得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
