Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7469[/thread]

IP "würfeln"



<< >> 6 Einträge, 1 Seite
COSTI
 2005-11-14 19:00
#60123 #60123
User since
2005-11-14
9 Artikel
BenutzerIn
[default_avatar]
Kann mir einer ein Perl Modul schreiben, der mir eine IP "würfelt"
(kriege ich net hin)


THX
BungeeBug
 2005-11-14 19:17
#60124 #60124
User since
2004-03-16
54 Artikel
BenutzerIn
[default_avatar]
Code (perl): (dl )
 perl -e 'print (int(rand(253)+1).".".int(rand(253)+1).".".int(rand(253)+1).".".int(rand(253)+1));'


Nen Modul musst du schon selbst draus machen ;)\n\n

<!--EDIT|BungeeBug|1131988739-->
MfG
BungeeBug
COSTI
 2005-11-14 20:25
#60125 #60125
User since
2005-11-14
9 Artikel
BenutzerIn
[default_avatar]
THX, jetzt muss ich nur noch wissen wie sich das programm unendlich mal wiederholt.
(oh man ich bleib doch bei c++^^)
pq
 2005-11-14 20:55
#60126 #60126
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
while (1) drumherum. das ist aber doch wirklich einfach...
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
GwenDragon
 2005-11-14 20:55
#60127 #60127
User since
2005-01-17
14757 Artikel
Admin1
[Homepage]
user image
Code: (dl )
1
2
3
4
use integer;
while (1) {
  print (rand(253)+1).".".(rand(253)+1).".".(rand(253)+1).".".(rand(253)+1);
}
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
pq
 2005-11-14 20:59
#60128 #60128
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
print join ".", map int rand(253)+1, 1..4 while 1
jetzt zeig mir mal, wie das in C++ einfacher geht =)\n\n

<!--EDIT|pq|1131994791-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
<< >> 6 Einträge, 1 Seite



View all threads created 2005-11-14 19:00.