JavaScript nicht aktiv!
| Tipps & Tricks | |
 |
Linux Windows Programmieren |
| Ereignisse | |
 |
am 23. May besonderes heute was war im Jahr Personen geboren |
| Bildergalerie | |
 |
die neuesten Desktop-Bilder Blumen Fahrzeuge Landschaften mit Ortsangabe |
| Spiele | |
 |
Kreuzworträtsel Stadt Land Fluss Allgemeinwissen Bilder Quiz Lustiges Bilder Quiz Technik Quiz Länder Quiz |
| Tools | |
 |
Internetspuren Konvertierungen Umrechnungen Umwandlungen |
| Sonstiges | ||
|
Astronomie Erde Daten Kalender |
Gesundheit Energie Sparen Internet Links |
|
| Sitemap Kontakt Impressum |
| » Games (117) | » Gesundheit (173) | » Gewuerze (104) | » Hardware (35) | » Haushalt (977) |
| » Heilkraeuter (443) | » Linux (298) | » Programmieren (215) | » Software (91) | » Vor100Jahren (6) |
| » Windows (235) |
| Kategorie: Programmieren / Perl |
321 x gelesen, 25. März 2007
#!/usr/bin/perl
use IO::Socket;
my ($line, $port, $sock, @servers);
my $VERSION='1.0';
($server = $ARGV[0]) || &usage;
$begin = ($ARGV[1] || 0);
for ($port=$begin;$port<=65000;$port++) {
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
P... [mehr]