Guten Tag,
derzeit bin ich dabei einen Time Client in Perl zu schreiben.
Die Source ist zu 50% fertig.
Source Code Screen
Spoiler anzeigen
Soucre Code
PHP
#!/usr/local/bin/perl
#Usage: timeclient [server_host_name]
$them = 'localhost';
$port = 9876 ;
$AF_INET = 2;
$SOCK_STREAM = 1;
$sockaddr = 'S n a4 x8';
($name, $aliases, $proto) = getprotobyname('tcp');
($name,$aliases, $port, $proto)=getservbyname($port, 'tcp') unless $port =~ /^\d+$/;
($name,$aliases, $type, $len, $thataddr)=gethostbyname($them);
$that = pack($sockaddr, $AF_INET, $port, $thataddr);
if ( socket(SOCK, $AF_INET, $SOCK_STREAM, $proto ) ){
print "Socket ok.\n";
}
else {
die $!;
}
if(connect(SOCK, $that)){
print "Connect ok.\n";
}
else {
die $!;
}
select(SOCK); $| = 1; select (STDOUT);
$hertime = <SOCK>;
close(SOCK);
print "Server machine time is: $hertime\n";
@now = localtime($hertime);
print "\t$now[2]:$now[1] ", $now[4]+1,"/$now[3]/$now[5]\n";
