復(fù)制代碼 代碼如下:
主要用于收集ip、mac、姓名、房間,后來又加入了維修記錄的功能。服務(wù)器端接受數(shù)據(jù)并存入數(shù)據(jù)庫中。
#############################
use strict;
use Tk;
use Encode;
#SOCKE參數(shù)
my $PF_INET = 2;
my $port = 2345;
my $remote_addr = pack('SnC4x8',$PF_INET,$port,192,168,138,228);
my $SOCK_DGRAM = 2;
#Frame
my ($label_room, $label_name, $label_ctrl, $label_notice);
#確定、取消
my ($enter, $cancel);
#房間、姓名變量
my ($room, $name);
$room = '';
$name = '';
#主界面
my $mw = MainWindow->new(-title => hanzi('信息收集'));
$mw->minsize(qw/200 100/);
$mw->maxsize(qw/200 100/);
#三個Frame
$label_room = $mw->Frame( qw/-borderwidth 2 -relief groove/ )->pack( qw/-side top -fill both/ );
$label_name = $mw->Frame( qw/-borderwidth 2 -relief groove/ )->pack( qw/-side top -fill both/ );
$label_ctrl = $mw->Frame( qw/-borderwidth 2 -relief groove/ )->pack( qw/-side top -fill both/ );
#房間號碼輸入
$label_room->Label(-text => hanzi('房間號碼'))->pack(qw/-side left -expand 1/);
$label_room->Entry(-textvariable => \$room, -relief => 'groove')->pack(qw/-side right -expand 1/);
#姓名輸入
$label_name->Label(-text => hanzi('姓名'))->pack(qw/-side left -expand 1/);
$label_name->Entry(-textvariable => \$name, -relief => 'groove')->pack(qw/-side right -expand 1/);
#確定與重置
$enter = $label_ctrl->Button(-text => hanzi('確定'), -command => \enter)->pack(qw/-side left -expand 1/);
$cancel = $label_ctrl->Button(-text => hanzi('重置'), -command => \cancel)->pack(qw/-side right -expand 1/);
#提示
$label_notice = $mw->Label(-text => hanzi('歡迎使用'), -relief => 'groove', -background => '#FFFF99')->pack(qw/-side bottom -fill x/);
MainLoop();
#漢字解碼
sub hanzi{
return decode('gb2312', shift);
}
#確定函數(shù)
sub enter{
chomp($room);
chomp($name);
$room =~ s/^\s+//;
$name =~ s/^\s+//;
if($room eq '' or $name eq ''){
$label_notice->configure(-text => hanzi('輸入不能為空')) ;
return 0;
}#if
else{
open(IPCF,'-|',"ipconfig -all");
my ($mac_addr, $ip_addr, $out_buffer);
while(IPCF>){
chomp;
if($_ = ~s/(.*)(00(\-[0-9A-Z]{2}){5})(.*)/$2/){
$mac_addr = join('', split(/-/,$_));
}
if($_ = ~/IP Address/){
$_ = ~s/(.*)([0-9]{3}(\.[0-9]{1,3}){3})(.*)/$2/;
$ip_addr = $_;
}
}#while
$out_buffer = $room."\t".$mac_addr."\t".$ip_addr."\t".encode('utf8', $name);
socket(UDP_CLIENT, $PF_INET, $SOCK_DGRAM, getprotobyname('udp'));
send(UDP_CLIENT, $out_buffer, 0, $remote_addr);
close(UDP_CLIENT);
close(IPCF);
$mw->destroy();
}#else
}
#重置函數(shù)
sub cancel{
$label_notice->configure(-text => hanzi('重置為空'));
$room = '';
$name = '';
}