nicht angemeldet
Der Quellcode muss folgendermassen aussehen:
#!/usr/bin/perl
Script baut eine Verbindung zum Braunschweiger Zeitserver auf
$hostname = "ptbtime2.ptb.de";
print "content-type:text/html\n\n";
$zeitstring = &get_time;
Zeitstring kommt in der Form "Mon Nov 27 05:56:37 2000" also splitten
@a[tag,monat,Jahr,Zeit,Mez]
@b[stunden.minuten,sekunden]
@a = split(/ /,$zeitstring);
@b = split(/:/,$a[3]);
print "<html><body>";
print "$b[0]<br>$b[1]<br>$b[2]<br>$a[0]<br>$a[1]<br>$a[2]<br><br>";
print "</body></html>";
exit;
--- Subfunctions ---
Zeit vom Server holen
sub get_time{
use IO::Socket;
my $client_sock = new IO::Socket::INET (
PeerAddr => $hostname,
PeerPort => 13,
Proto => 'tcp') || return "Kein Socket...$!";
my $server_time = <$client_sock>;
$client_sock->close();
return "$server_time";
}