zufallsnamengenerator: rätsel der stunde (Allgemeines zu Perl)

[thread]8051[/thread]

zufallsnamengenerator: rätsel der stunde

lichtkind

2006-06-03 08:51

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

ich hab was geschrieben das geht so

Code: (dl )

1
2

$name .= chr 65 + int rand 26 for 1..3 + int rand 3;
print $name;

schreibt man es so

Code: (dl )

print $name .= chr 65 + int rand 26 for 1..3 + int rand 3;

macht es was ganz anderes. und es ist nichtmal trivial warum. ich halt es für ein interessantes rätsel der woche. also bitte nicht gleich verraten.

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Linuxer

2006-06-03 12:47

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Hi,
ich erahne es ;o)
Was soll man denn machen mit der vermuteten Lösung?

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

lichtkind

2006-06-03 17:52

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

wir können es ja irgendwo in der wiki ablegen,

oder vorsichtige andeutungen machen\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

vayu

2006-06-05 14:44

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

und was ist nun des rätsels lösung? :)

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

Thorium

2006-06-06 01:32

User since
2003-08-04
232 Artikel
BenutzerIn

Hier einen Tipp, da ich nicht weiss wo im Wiki ihr das Zeug eingetragen habt:
[color=lightgray]In Perl haben Rückgabewerte eine besondere Bedeutung...[/color]

Per|li|nist der; -en, -en <zu â...ist>: a) AnhÃ¤nger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.

sid burn

2006-06-06 02:04

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Irgendwie verstehe ich die ganze Problematik nicht so ganz.

Einmal wird ein "print" immer innerhalb der for Schleife aufgerufen. print wird also öfters aufgerufen, und bei jeden Schleifendurchlauf wird das Ergebnis geprinted. Also print wird 3-5 mal aufgerufen.

Und bei der zwei zeilenversion kommt das print erst nach der for Schleife. Also wenn der String bereits fertig zusammen gesetzt ist, erst dann wird der String geprinted. ...

Ist ja auch klar das dann dabei etwas anderes heraus kommt. Du machst ja auch etwas anderes. Und trivial finde ich es ebenso. ???

Vielleicht wird es mit einem zusätzlichen Newline ersichtlicher...

Code: (dl )

print $name .= chr 65 + int rand 26, "\n" for 1..3 + int rand 3;

Ausgabe:

Code: (dl )

J
JT
JTM
JTMR
JTMRX

\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

Linuxer

2006-06-06 15:45

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Jo, ist auch trivial und springt sofort ins Auge ... :ghostface:

Besser finde ich es zu erklären, wenn man sich die Mühe macht und schreibt den Code um als klassische Schleife mit passender Klammerung; dann wird es wirklich klar, was passiert.

Nach nun drei Tagen bin ich so frei, das eben geschriebene umzusetzen und meine Lösung hier nun anzugeben:

Code (perl): (dl )

1
2

$name .= chr 65 + int rand 26 for 1..3 + int rand 3;
print $name;

wird zu

Code (perl): (dl )

for ( 1 .. 3 + int rand 3 ) {
  $name .= chr 65 + int rand 26;
}
print $name;

und

Code (perl): (dl )

print $name .= chr 65 + int rand 26 for 1..3 + int rand 3;

wird zu

Code (perl): (dl )

1
2
3

for ( 1 .. 3 + int rand 3 ) {
  print $name .= chr 65 + int rand 26;
}

\n\n

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2006-06-03 08:51.