主要用于收集ip、mac、姓名、房间，后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。 ############################# use strict; use Tk; use Encode; #SOCKE参数 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);     } #确定函数 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         } #重置函数 sub cancel{     $label_notice->configure(-text => hanzi('重置为空'));     $room = '';     $name = ''; }