小编joe*_*joe的帖子

我尝试\n从哈希值中删除所有换行符():

my %var_h = (  "ID"   => " This is Test 
                           This is new line TEST 


                           newline Test end ");

如何从值中删除所有新行%var_h？

我试过,s/\\n//g但我无法让它工作.

码:

%a =  ( 1 => "ONE" , 
        2 => "TWO" ,
        3 => " Three", ); 
$test_value = 1 ;

foreach $key (sort(keys %a)) {
    if  ($key == $test_value ) { 
        print $a{$key}; 
    }

}

我只想以非常短的方式实现相同的操作.这有什么捷径吗？

如何确定所有哈希键是否都具有某些值？

我需要找到在不同输入上执行程序的总时间.程序读取一些数据并将其写入另一个文件.数据值和数据大小每次都不同.

我想知道对于所有大小的数据一般需要多长时间.

算法是否基于程序的总时序进行单次执行？

例如,如果我知道

for single execution 
a.program - execution time   1.2sec 
          - its create file  100 kb file 

在不同的数据大小上,我可以找出n次执行需要多长时间？

我只想找到在XML :: Simple中禁用排序操作的方法

例如:

#!/usr/bin/perl

use strict;
use warnings;

use XML::Simple;

my %my_xml = (
    NAME  => [ 'test' ],
    EMAIL => [ 'test@example.com' ],
    ID    => 12,
);

my $xs = XML::Simple->new;
print $xs->XMLout(\%my_xml, RootName => "datas", NoSort => 1);

__END__

我得到以下输出:

<datas ID="12">
  <EMAIL>test@example.com</EMAIL>
  <NAME>test</NAME>
</datas>

但我希望输出为:

<datas ID="12">
  <NAME>test</NAME>
  <EMAIL>test@example.com</EMAIL>
</datas>

我怎样才能做到这一点？

$HoA{teletubbies} = [ "tinky winky", "dipsy", "laa-laa", "po" ];

如何在arrayref(s)的哈希中找到元素的数量？它应该返回4.

DDD(数据显示调试器)可以用于Perl数据结构吗？

%s = (  t2* => [ a,b,x],
        IAm => 'ALL' ) ;

my $key = 't2000' ;

在上面的示例中,t2*匹配$key,但我无法检索相应的哈希值.

当密钥是正则表达式时,检索值的最佳方法是什么？

我正在寻找在代码segement大小创建的方法应该是16 MB(c ++字节代码大小是16 MB)

我正在阅读超过百万行的百万文件.

但是已经尝试使用常规表现来替换它们.

我的琴弦是("老虎","狮子","猴子")并用字符串"动物"代替它们;

我已经使用正则表达式替换

$line =~ s/tiger/animal/g;
$line =~ s/lion/animal/g;
$line =~ s/monkey/animal/g;

处理时,执行期间需要花费大量时间.

在这里,我想了解为什么这很慢,我怎样才能更快地解决这个问题呢？

我无法使用任何外部模块来解决此问题.