小编pav*_*van的帖子

我已将最常见的emp表导出为CSV.我想将每个列名称作为哈希键并将值存储在数组中.

下面是代码

 use Data::Dumper;
    open($fh,"<EMP.csv");
    %hash = ();

    local $/= "\n";

    while(<$fh>){

         @columnNames = split(/,/,$_) if $. ==1;     
         @columnValues = split(/,/,$_);  
          push @{hash->{@columnNames}} ,@columnValues;       
    }

    print Dumper(\%hash);

当我尝试打印哈希时,我得到了这个

$VAR1 = {
          '8' => [
                   '"EMPNO"',
                   '"ENAME"',
                   '"JOB"',
                   '"MGR"',
                   '"HIREDATE"',
                   '"SAL"',
                   '"COMM"',
                   '"DEPTNO"
',
                   '"7839"',
                   '"KING"',
                   '"PRESIDENT"',
                   '""',
                   '"11/17/1981"',
                   '"5000"',
                   '""',
                   '"10"
',

但我期待这一点

$VAR1 = { '"EMPNO"'=>[12,3,4,5,6,7,8,9],
          '"EMPNAME"'=>["pavan","kumar"...],

};

$hashdef = "Mouse=>Jerry, Cat=>Tom, Dog=>Spike";

%hash = split /,|=>/,$hashdef;

print "$_=>$hash{$_}" foreach(keys %hash);


Mouse=>JerryDog=>SpikeCat=>Tom

我是新来的perl可以任何人解释我能够知道的分裂函数里面的正则表达式 被用作两者的选择,但我仍然感到困惑

%hash = split /|=>/,$hashdef;

我得到了输出

S=>pe=>J=>eT=>or=>rm=>,y=>,u=>sM=>og=>D=>oC=>ai=>kt


%hash = split /,/,$hashdef;
Mouse=>Jerry=>Cat=>TomDog=>Spike=>

请解释上述情况

当页面加载时，我正在用javascript写一个简单的无限计数器开始计数

当鼠标指针位于视口之外时，我想停止计数器

请帮忙？

        var i=0;


            setInterval(function (){
               i++;

               document.getElementById("counterLoop").innerHTML=i;

            },1000);

    var viewportWidth  = document.documentElement.clientWidth;
     var viewportHeight = document.documentElement.clientHeight;


     function getCursorXY(e) {   
CurX = (window.Event) ? e.pageX : event.clientX + (document.documentElement.scrollLeft ? document.documentElement.scrollLeft : document.body.scrollLeft);
CurY = (window.Event) ? e.pageY : event.clientY + (document.documentElement.scrollTop ? document.documentElement.scrollTop : document.body.scrollTop);

}

如何捕获视口宽度和高度的鼠标移动事件

我无法连接到数据库.下面是不起作用的Perl脚本:

use DBI;   

my $dbh = DBI->connect(
    'dbi:mysql:orders;mysql_socket:/opt/lampp/var/mysql/mysql.sock',
    $username,
    $password,
    { RaiseError => 0, AutoCommit => 0 },
)
  or die $DBI::errstr;

通常当我尝试mysql.sock使用open函数打开文件时出现错误但我无法打开它.

最近我使用chilkat perl库发送电子邮件

http://www.example-code.com/perl/smtp_simpleSend.asp

当我创建新对象

use chilkat();

#  The mailman object is used for sending and receiving email.
$mailman = new chilkat::CkMailMan();
$mailman->put_SmtpHost("smtp.chilkatsoft.com");
#  Set the SMTP login/password (if required)
$mailman->put_SmtpUsername("myUsername");
$mailman->put_SmtpPassword("myPassword");

当我尝试使用Dumper方法打印对象时,它什么都不返回.

print Dumper($mailMan);
$VAR1 = bless( {}, 'chilkat::CkMailMan' );

我们如何隐藏上面的祝福对象中的数据？