Opened by Gast at 2005-07-09 03:59
Hallo, ich bin noch ziemlich am Anfang mit Perl und
habe mit folgender Aufgabe ein Problem.
Ausgabe 7 stellige Wort,
1-3 immer aus letter
4-7 immer aus ziffern
ausgabe zb. abc12vw
n: anzahl der ausgebenden zeilen z.b. 100 unterschiedliche 7 stelle Wörter
Mein Lösungansatz, der aber nicht funktioniert. Kann jemand helfen?
Danke im vorraus.
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1120905376-->
habe mit folgender Aufgabe ein Problem.
Ausgabe 7 stellige Wort,
1-3 immer aus letter
4-7 immer aus ziffern
ausgabe zb. abc12vw
n: anzahl der ausgebenden zeilen z.b. 100 unterschiedliche 7 stelle Wörter
Mein Lösungansatz, der aber nicht funktioniert. Kann jemand helfen?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
@letters = ("a", "b", "c", "d",
"e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w",
"x", "y", "z");
@ziffern = ("1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "a", "b", "c", "d",
"e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w",
"x", "y", "z");
$siz = 7;
for $n (1..100) {
for ($i=0; $i<$siz; $i++) {
if ($i==0 or $i==1 or $i==2) {
$wort .= $letters[rand(26)]
} else {
$wort .=$ziffern[rand(36)];
}
}
print $wort . "\n";
}Danke im vorraus.
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1120905376-->