我的第一个perl脚本：简单socket通信

很简单、很初级的一个perl程序，功能为将指定文件的内容，以socket方式发送到接收端。


#!/usr/bin/perl
use IO::Socket;
use strict;

#指定日志、配置文件路径

my $log_file="/wls/monitoropr/pubweb/log/sendres.log";
my $config_file="/wls/monitoropr/pubweb/perl/conf/pubweb.conf";
my $title;
my $servername;
my $file;


#写日志的方法

sub wrt_log
{
 my ($msg,$log_file)=@_;
 my $time = `date +%D-%T`;
 chomp($time);
 open my $wrt,">>$log_file";
 print $wrt "$time >".$msg."\n";
 close $wrt;
}

#socket通信的方法

sub send_socket{
 my $error="";
 open(my $hand,"$file");
 #@array=<$hand>;       
 while(my $res=<$hand>){
   $error=$error.$res;
 }
 close($hand);
 if($error){
  #向指定socket发送消息
  eval{
   my $socket = IO::Socket::INET->new(PeerAddr => "10.11.100.136:29999",
                                     Proto    => "tcp",
                                     Type     => IO::Socket::SOCK_STREAM,
                                     Timeout => 300);
   if(defined($socket))
   {
      my @now = localtime(time);
      my $nowTime = sprintf('%04d%02d%02d%02d%02d%02d',$now[5]+1900, $now[4]+1, $now[3], $now[2],  $now[1],  $now[0]);
      my $error_info='