Perl通过文件句柄将内容赋值给一个hash

[ol][*]data0:[*]apple[*]banana[*]cherry[/ol][ol][*]open my ($d), \'data0\'[*]my %a = map { chomp$_, 1 } [*]print \"$_:$a{$_}\\n\" for keys %a[/ol][ol][*]data1:[*]apple? ? 20[*]banana??15[*]cherry??22[/ol][ol][*]open my ($d), \亮闭'data1\'[*]my %a = map { split} [*]print \"$_:$a{$_}\\n\" for keys %a[/ol][ol][*]data2:[*]apple[*]20[*]banana[*]15[*]cherry[*]22[/ol][ol][*]open my ($d), \'枯改data2\'[*]my %a = map { chomp$_} [*]print \"$_:$a{$_}\\n\" for keys %a[/没键判ol]

Hwnd=Plugin.window.MousePoint()

这个是获取鼠标指向窗口句柄，赋值于Hwnd。

就穗搏是在那个窗口启动后台脚本所用的句柄猜轿祥可帆雀以直接用Hwnd代替。

---