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", $_