perl初学

#! /bin/perl -w  #开头，根据系统不同可能需要修改
use IO::Socket::INET;#perl socket库
use Time::HiRes qw(gettimeofday);#以秒为单位
use POSIX qw(strftime);####strftime简单实用
use POSIX ":signal_h";
use Thread;
use IO::Select;
use strict;#使用use是个好习惯，它可以进行严格的perl语法检查
#使用use加载模块或子程序

our $LOG_NAME="./log/xxxx.log";

打印16进制：

sub print_hex{
    my($msg) = @_;
    my @bits = unpack("C*", $msg);
    my $i = 0;
    my $bit;
    foreach $bit (@bits){
        printf("%02x ", $bit);
        $i++;
        if ($i == 16){
            $i=0;
            print "\n";
        }
    }
    print "\n";
}

先到这儿，明天继续