小编Tre*_*ree的帖子

如何查找mysql DB是奴隶而不是通过查询使用"show slave status"？

for Ex : 
package test1 ; 

my %hash = ( a=> 10 , b => 30 ) ;

1;

in Script : 

use test1 ;

print %hash ;  # How to  make this avilable in script without sub

if (%hash)和之间有什么区别if (defined %hash)？

my %hash ;

if ( %hash) { 

  print "defined "; 
}

if (defined %hash)  { 
  print "defined ";
}

如何使用JavaScript <option>对<select>标记元素进行排序？

这是我的HTML:

<form action="example.asp">
<div>
<select size="3">
<option value="op2" >Option 2</option>
<option value="op1">Option 1</option>
<option value="op4">Option 4</option>
<option value="op3">Option 3</option>

</select>
</div>
</form> 

我想要比赛

 my @array = ( 'Tree' , 'JoeTree');

    foreach (@array ) {
      if ( $_ =~ /^(Joe)Tree/gi) {
        print "matched $_";
      }
    }

它只匹配JoeTree.它不匹配树？

如何找出目录的模式(权限)？

#!/usr/bin/perl

use strict;
use warnings;

my $s = "sad day
 Good day
 May be Bad Day 
 ";

$s =~ s/\w+ \w+/_/gm;

print $s;

我试图用_替换单词之间的所有空格,但它不起作用.这有什么问题？

我想捕获外部命令的退出代码,同时用自定义错误消息替换其标准错误输出.

my $ret = system("which mysql");
if ($ret != 0) {
    say "Error";
}

如果mysql不存在可执行文件,则会显示which命令错误消息,这是我不想要的.如何摆脱它？

system("ssh test.host.com");

它要求permentaly添加键或不？

我想自动它应该说是!

如何获取其键与给定正则表达式匹配的哈希元素？没有使用任何模块(例如Tie :: RegexpHash)

怎么做到这一点？

%s = (
        'as2-queen' => 1 ,
        'as1-queen' => 2,
    );


my $regex = qr/queen/ ;

if ( $s{$regex}) {
  print " I am here " ;
}

〜