Zufallsberechnung für Auswahlverfahren (gelöst) (Allgemeines zu Perl)

[thread]17524[/thread]

Zufallsberechnung für Auswahlverfahren [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+3 replies
geloescht

2012-06-30 10:46
User since
2012-06-19
141 Artikel
BenutzerIn
Hallo Forum

Für meine Homepage [...] benötige ich für die Fertigstellung des Links "Ausstieg" eine Art Zufalls-Funktion.

In einer CSV-Datei stehen Ratschläge in Reimform (Beispiel):

Zeile1: Das ist hier ein Reim
Zeile2: Ist zwar nur sehr klein
Zeile3: Das Gegenteil von groß
Zeile4: Trotzdem ganz famos!

Also bilden immer vier Zeilen einen Reim!
Das Auslesen in Viererblöcken bekomme ich hin. Wofür ich noch keine Lösung habe, ist das erstellen eines Skalars, der einen Zufallswert enthält.

Quasi:
Code: (dl )

1 2 3 4 5 6

# Startwert $WertMin = 0; # wenn die Datei beispielsweise 11 Reime enthält (0 bis 10 = 11). $WertMax = 10; #Berechne (Irgendwie) $Random
Also eine Art Zufallsfunktion/Befehl, mit der ich die $Random füllen könnte.

Ziel soll sein, daß der Besucher der Internetseite beim Klicken auf den Link Ausstieg, bei jedem Besuch dieses Links einen anderen Spruch zu sehen bekommt.

Gruß HP-User
Last edited: 2012-10-05 11:25:03 +0200 (CEST)
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
- +2 replies
- FIFO
  
  2012-06-30 11:06
  
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  
  $zufall = int(rand(11));
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - geloescht
    
    2012-06-30 11:10
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hallo FIFO
    
    Danke, das sieht einfach aus ;-)
    
    Ich hab nur solche Sachen gefunden:
    
    Code: (dl )
    
    my $number = 10 + int rand( 15-10+1 ); # ( 10,11,12,13,14, or 15 )
    
    Und solchen "Hardcore"-Code:
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    # sub random_int_between { # my($min, $max) = @_; # # Assumes that the two arguments are integers themselves! # return $min if $min == $max; # ($min, $max) = ($max, $min) if $min > $max; # return $min + int rand(1 + $max - $min); # }
    
    Da probier ich doch lieber Deine Version *g*
    
    Merci nochmal...
    
    Gruß HP-User
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

View all threads created 2012-06-30 10:46.