用perl写的单位电脑信息采集程序-尊龙凯时

主要用于收集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(){
            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 = '';
}