用perl查询oracle数据库中存在的lock

原文地址oracle lock
1用Perl TK模块 查询DB中的LOCK
use DBI;
use Tkx;
use DBD::Oracle qw(:ora_session_modes);
$mw = Tkx::widget->new(”.”);
$mw->g_wm_title(”Oracle Lock”);
$content = $mw->new_ttk__frame(-padding => “5 5 12 0″);
$content->g_grid(-column => 0, -row => 0, -sticky => “nwes”);
$mw->g_grid_columnconfigure(0, -weight => 1);
$mw->g_grid_rowconfigure(0, -weight => 1);
$e1= $content->new_tk__entry( -width => 27, -textvariable => \$uname);
$e1->g_grid(-column => 2, -row => 0,-sticky => “nwes”);
$lbl = $content->new_ttk__label(-text => “username:”);
$lbl->g_grid(-column => 1, -row => 0,-sticky => “nwes”);
$e2= $content->new_tk__entry( -width => 27, -textvariable => \$passwd);
$e2->g_grid(-column => 2, -row => 1,-sticky => “nwes”);
$lb2 = $content->new_ttk__label(-text => “password:”);
$lb2->g_grid(-column => 1, -row => 1,-sticky => “nwes”);
$e3= $content->new_tk__entry( -width => 27, -textvariable => \$dsn1);
$e3->g_grid(-column => 2, -row => 3,-sticky => “nwes”);
$lb3 = $content->new_ttk__label(-text => “dsn:”);
$lb3->g_grid(-column => 1, -row => 3,-sticky => “nwes”);
$ba1 = $content->new_tk__button(-text => “sure”, -command => sub {sure();});;
$ba1->g_grid(-column =>2, -row => 4,-sticky => “nwes”);;
$ba1->g_bind(”<1>”, sub {sure();});
# $ba1->g_bind(”", sub {sure();});
($lb = $content->new_tk__listbox(-height =>
15,-width=>100))->g_grid(-column => 1, -row => 5, -sticky
=> “nwes”);
($s = $content->new_ttk__scrollbar(-command => [$lb, "yview"],
-orient => “vertical”))->g_grid(-column =&