Perl - How to create a tcp socket? - Hallo sahabat Dev-Create, Pada Artikel yang anda baca kali ini dengan judul Perl - How to create a tcp socket?, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan
Artikel perl,
Artikel socket,
Artikel tcp, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.
Judul : Perl - How to create a tcp socket?
link : Perl - How to create a tcp socket?
The program attempts connection at a periodic interval, which is passed as 'execution_interval'.
#!/usr/bin/perl
use IO::Socket;
use POSIX qw/strftime/;
if (@ARGV != 4)
{
usage();
exit;
}
my $hostname = $ARGV[0];
my $port = $ARGV[1];
my $timeout = $ARGV[2];
my $interval = $ARGV[3];
my $logdir = "/tmp/";
my $datestamp = strftime('%m-%d-%y_%H:%M:%S',localtime);
$mday = (localtime(time))[3];
my $logfile = $logdir."$hostname\_$port\_tcp_socket\_$datestamp.log";
open LOG, ">>","$logfile" or die $!;
LOG->autoflush(1);
while(1) {
my $sock = new IO::Socket::INET (PeerAddr => $hostname,
PeerPort => $port,
Proto => 'tcp',
Timeout => $timeout);
$cur_datestamp = strftime('%m-%d-%y_%H:%M:%S',localtime);
$cur_mday = (localtime(time))[3];
if(!$sock) {
print LOG "\n$cur_datestamp : Error - Could not create socket to $hostname on $port: $!";
sleep $interval;
next;
}
if($cur_mday != $mday) {
close(LOG);
$logfile = $logdir."$hostname\_$port\_tcp_socket\_$datestamp.log";
open LOG, ">>","$logfile" or die $!;
LOG->autoflush(1);
$mday = $cur_mday;
}
print LOG "\n$cur_datestamp : Socket created to $hostname on $port";
close($sock);
sleep $interval;
}
close(LOG);
sub usage
{
print "Invalid parameters \nUsage: ./tcp_socket.pl \n";
}
Please let me know, of any corrections/improvements.
Anda sekarang membaca artikel Perl - How to create a tcp socket? dengan alamat link https://dev-create.blogspot.com/2010/07/perl-how-to-create-tcp-socket.html
Judul : Perl - How to create a tcp socket?
link : Perl - How to create a tcp socket?
Perl - How to create a tcp socket?
The following program can be used to create a tcp connection to a host on a specified port.The program attempts connection at a periodic interval, which is passed as 'execution_interval'.
#!/usr/bin/perl
use IO::Socket;
use POSIX qw/strftime/;
if (@ARGV != 4)
{
usage();
exit;
}
my $hostname = $ARGV[0];
my $port = $ARGV[1];
my $timeout = $ARGV[2];
my $interval = $ARGV[3];
my $logdir = "/tmp/";
my $datestamp = strftime('%m-%d-%y_%H:%M:%S',localtime);
$mday = (localtime(time))[3];
my $logfile = $logdir."$hostname\_$port\_tcp_socket\_$datestamp.log";
open LOG, ">>","$logfile" or die $!;
LOG->autoflush(1);
while(1) {
my $sock = new IO::Socket::INET (PeerAddr => $hostname,
PeerPort => $port,
Proto => 'tcp',
Timeout => $timeout);
$cur_datestamp = strftime('%m-%d-%y_%H:%M:%S',localtime);
$cur_mday = (localtime(time))[3];
if(!$sock) {
print LOG "\n$cur_datestamp : Error - Could not create socket to $hostname on $port: $!";
sleep $interval;
next;
}
if($cur_mday != $mday) {
close(LOG);
$logfile = $logdir."$hostname\_$port\_tcp_socket\_$datestamp.log";
open LOG, ">>","$logfile" or die $!;
LOG->autoflush(1);
$mday = $cur_mday;
}
print LOG "\n$cur_datestamp : Socket created to $hostname on $port";
close($sock);
sleep $interval;
}
close(LOG);
sub usage
{
print "Invalid parameters \nUsage: ./tcp_socket.pl
}
Please let me know, of any corrections/improvements.
Demikianlah Artikel Perl - How to create a tcp socket?
Sekianlah artikel Perl - How to create a tcp socket? kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.
Anda sekarang membaca artikel Perl - How to create a tcp socket? dengan alamat link https://dev-create.blogspot.com/2010/07/perl-how-to-create-tcp-socket.html
