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";}

先到这儿，明天继续