perl-data-structures

    2热度

    2回答

    我使用摘要:: MD5模块,并在hexdigest用于Windows和Linux返回不同的值。 请帮我解决这个问题。 use Digest::MD5; my $ctx=Digest::MD5->new(); open RD, "input.txt"; $ctx->addfile(*RD); close RD; print $ctx->hexdigest; input.txt的文件有如

    0热度

    2回答

    我从文本文件中获取行,然后需要将它们分成单词。因此,单引号或双引号的内容应该被忽略。 例如:使用行; “$ var”,print'comment':“get'comment%two'” 应该插入数组中作为使用,行,打印。所有其他只是被忽略。 此外,我需要检查是否%单或双引号坐在里面(就像上面的例子) my @array = $file_line =~ /[\$A-z_]{2,}/g;给所有的字(加

    1热度

    1回答

    我已经编写了使用JSON :: RPC :: Server的服务器模块,并试图导入多个包(使用use)。这是Server.pl文件的代码: #!/usr/bin/perl use JSON::RPC::Server::Daemon; use add2Num; JSON::RPC::Server::Daemon->new(LocalPort => 42337) ->d

    3热度

    1回答

    我有一个哈希阵列和一个YAML,它是从linux命令中提取的。我有另一个哈希数组,具有相同的YAML集,但具有不同的值,由相同的命令(稍后运行)执行。 例如, content.none: bytes: 31046 content.image.gif: bytes: 0 和 content.none: bytes: 31050 content.image.gif

    0热度

    1回答

    我试图做这样的事情多层次哈希:解析XML时 my $xml_hash_ref = XML::Parser...... my %fields_to_check = ( '{Key1}{Key2}{Key3}{Key4}' => '..another hash...' '{Key1}{DifferentKey2}' => '...another hash...'

    0热度

    1回答

    我有一个包含10k行数据的csv文件,如下所示。 20131210,0,0,00981231231110,0123,123p1. 20131210,0,0,00981231231120,0123,123p1. 20131210,0,0,00981231231130,0123,123p1. 20131210,0,0,00981231231140,0123,123p1. 20131210,0,

    0热度

    1回答

    产生深哈希映射下面是我的代码以哈希 #!/usr/bin/perl use warnings; use JSON::PP; # Just 'use JSON;' on most systems my %name = ( 'sl' => { 'fsd' => { 'conf' => { 'ul' => '/sl

    2热度

    1回答

    如何在Perl 64位值的32位值转换为32位的perl perl -e "use integer;print 88864420<<8" 输出: 1274455040 for 64 bit perl perl -e "use integer;print 88864420<<8" 22749291520 但我想结果作为32位值甚至在64位perl。 所以请帮助我将值转换为32位。

    0热度

    1回答

    我查询表在数据库与SQL这样的: Select col1, col2 from table_name 仅供参考,COL2将是一个整数值,并COL1将是一个元素的名称。例如。 FOO, 3 BAR, 10 我希望有一个数据结构,其中的值可以像vars->{valueofcol1}解决应返回col2值。 所以 $vars->FOO 将返回3 基本上我不知道如何将SQL结果返回到数据结构,

    3热度

    2回答

    我正在尝试使用哈希值与数组值的概念生成散列。我不确定我的语法是否正确。 下面是我希望应该使用数组值创建散列哈希的代码部分。 use strict; %hash=(); open IN, "samplefile.txt" or die "cannot open file:$!"; while(<IN>){ chomp $_; my @split=split("\t", $_