我需要创建一个小的Perl脚本,它会创建一个TCP套接字,并将从此套接字输入的内容放入MySQL表中。
背景:我通过这个TCP套接字从Siemens Hipath电话系统获取呼叫数据记录。我必须将这些CSV格式的数据写入数据库以备将来使用。我收到的格式如下:13.05.14;15:01:14;3;10;00:26;00:00:45;0123456789;;1;
我是Perl的新手,有一些“初学者”问题: 1:如何将该脚本作为守护进程在后台运行? 2:该脚本仅处理交付的CSV行的最后一行。如果有两行,则忽略第一行。如何解决这个问题? 3:今天我从我的脚本中得到了这个输出:DBD::mysql::st execute failed: MySQL server has gone away at ./hipath-CDR-Server.pl line 41. 发生了什么?
有人能帮我解决这些可能很简单的问题吗?
这是我目前的成果:
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use IO::Socket::INET;
my $dbh = DBI->connect('DBI:mysql:database=hipathCDR;host=localhost','***','***',{ RaiseError => 1, AutoCommit => 1 }, );
my $sql = 'INSERT INTO calls (Datum,Zeit,Leitung,Teilnehmer,Rufzeit,Gespraechszeit,RufNr,Gebuehr,Typ) VALUES (?,?,?,?,?,?,?,?,?)';
my $sth = $dbh->prepare($sql);
# auto-flush on socket
$| = 1;
# creating a listening socket
my $socket = new IO::Socket::INET (
LocalHost => '0.0.0.0',
LocalPort => '4444',
Proto => 'tcp',
Listen => 5,
Reuse => 1
);
die "cannot create socket $!\n" unless $socket;
while(1)
{
# waiting for a new client connection
my $client_socket = $socket->accept();
# get information about a newly connected client
my $client_address = $client_socket->peerhost();
my $client_port = $client_socket->peerport();
# read up to 1024 characters from the connected client
my $data = "";
$client_socket->recv($data, 1024);
chomp ($data);
my @values = split(';', $data);
print "Array: @values\n";
$sth->execute(@values);
# write response data to the connected client
$data = "ok";
$client_socket->send($data);
# notify client that response has been sent
shutdown($client_socket, 1);
}
$socket->close();