小编joe*_*joe的帖子

我需要测试Perl Application(文件操作,数据库操作......等).我正在为Perl代码寻找一些配置文件工具

是否有像Perl Code Profling的工具,如Linux中的gprof

我试过Perl fork manager和DBI.但我得到错误DBD :: mysql :: st执行失败:在查询期间丢失了与MySQL服务器的连接.

这里的示例代码:我想在低值到高值之间进行查询(我已经吐出了10k记录)

use Parallel::ForkManager;
my $pm = new Parallel::ForkManager(50);
my $db = krish::DB->new or die $!; # its has all connection details 
while ( $low < $high  ) {
    # Some value manipulation 

    my $pid = $pm->start and next; 
    #db_execution returns execution 
    while ( my $sth = db_execution ( $db, $low , $high ) ) {
        ...
        #fetch row operation 
        ...
    }
    $pm->finish;
}

sub db_execution {
    ...
    my $dbh = $db->connect( …

我试过这样的

<script type="text/javascript">
     var date2=02/09/2009;
     var date1=03/12/2009;
     var diff = date1.getDate()-date2.getDate();
     alert (diff);

</script>

但它不起作用,这个理由getDate只会起作用Date吗？

如何找到这两个日期之间的差异？我无法使用此功能,因为我在salesforce CRM apex页面中添加了javascript？

编辑1:事实上这也不起作用

<script type="text/javascript">
     var date2= new Date ("02/09/2009");
     var date1= new Date ("04/09/2009");
     var diff = date1.getDate()-date2.getDate();
     alert (diff);

</script>

编辑2:它不能正常工作......

<script type="text/javascript">
     var date2= "02/09/2009";
     var date1= "04/09/2009";
     var diff2 =    new Date(Date.parse("03/12/2009")-
                        Date.parse("02/09/2009")).toLocaleDateString();

// var new_date = new Date(1970,01,01); // var diff3 = diff2.getDate(); alert(diff2);

</script>

@my_array = undef;
if (@my_array ) {  
    print 'TRUE'; 
} else {
    print 'FALSE';
}

这将打印 TRUE

为什么数组有元素？

我正在使用Perl和XML :: Simple模块创建XML文件.我成功创建了XML文件,但问题是我<opt> </opt>的每个标签都有标签.我正在寻找任何可以避免<opt> </opt>标签的选项.我无法进行后处理以删除标签.因为文件很大.

示例:

<opt>
  <person firstname="Joe" lastname="Smith">
    <email>joe@smith.com</email>
    <email>jsmith@yahoo.com</email>
  </person>
  <person firstname="Bob" lastname="Smith">
    <email>bob@smith.com</email>
  </person>
</opt>

我正在寻找(没有<opt>标签):

  <person firstname="Joe" lastname="Smith">
    <email>joe@smith.com</email>
    <email>jsmith@yahoo.com</email>
  </person>
  <person firstname="Bob" lastname="Smith">
    <email>bob@smith.com</email>
  </person>

是否有任何函数可用于将字符串中的所有换行符转换为空格？

例如:

$a = "dflsdgjsdg
dsfsd 
gf 
sgd 
g  
sdg
sdf
gsd";

我要找的结果是:

$a = "dflsdgjsdg dsfsd gf sgd g sdg sdf gsd"

如何Data::Dumper将转储写入文件？

  use Parallel::ForkManager;
  use LWP::Simple;
  my $pm=new Parallel::ForkManager(10);
  our $a =0;
 @LINK=( 10,203, 20, 20 ,20 ,10 ,101 ,01 ,10 ) ;
  for my $link (@LINK) {
    $pm->start and next;
    my $lo = ($link * 120.22 )*12121.2121212121212121*( 12121212.1212121+ $link);
    $a = $a+ $lo ;   
    print $a."\n" ; 
    $pm->finish;
  };

  print $a ; 

我试图使用并行fork Manager模块访问并行进程上的全局变量.程序结束时全局变量仍然保持不变..如何实现这一目标？是否有可能？

我希望自动将数据从一个文本框复制到另一个文本框,即,当我编辑第一个文本框时,第二个文本框应该自发地反映相同的文本框.

在Dir / home/test中:

a.244
b.244
c.244
d.244

我想将文件重命名只是a,b,c,d.

我想删除.244.

我试过了rename s/.244// /home/test/*.244.

它不起作用.