Perl – Arrayinhalte mischen
Dieser Code beschreibt das zufällige Mischen von Arrayinhalten, als Beispiel dient die Ziehung der Lottozahlen.
Das Script als komplettes Codebeispiel.
Als Mischroutine kommt dabei ein Algorithmus nach Fisher Yates zum Einsatz.
#!/usr/bin/perl # Benutzung: # Das Script als "lotto.pl" abspeichern # Im ASCII Modus hochladen # chmod 755 vergeben und im Browser aufrufen. #Fehlerausgabe an Browser use CGI::Carp qw(fatalsToBrowser); use strict; print "Content-type: text/html \n\n"; # Lottozahlen my @lottozahlen = (1..49); # Erste Mischung... fisher_yates_shuffle(@lottozahlen); # Nochmal mischen das ganze my @zweite_mischung = (@lottozahlen); fisher_yates_shuffle(@zweite_mischung); # Zufaellige Startzahl ermitteln fuer das auslesen # der 7 Lottozahlen aus dem gemischten Array my @startzahl = (1..40); my $sz = $startzahl[rand @startzahl]; # Holen der Lottozahlen my @unsortiert = (); for (my $i = $sz; $i <= 6+$sz; $i++) { push(@unsortiert, $zweite_mischung[$i]); } print "<b>Ziehung der Lottozahlen: \"6 aus 49\"</b><hr>"; # Sortieren... my @sortiert = sort {$a <=> $b} @unsortiert; # Zusatzzahl ermitteln my $zz = $sortiert[rand @sortiert]; # Lottozahlen ausgeben... foreach my $lotto (@sortiert) { if ($lotto ne $zz) { print "$lotto<br>"; } } # Zusatzzahl ausgeben... print "<b>Zusatzzahl:</b> $zz<br><br><a href=\"lotto.pl\">...nochmal mischen</a>"; # Mischroutine nach Fisher Yates sub fisher_yates_shuffle { my $array = shift; my $i; for ($i = @$array; - $i;) { my $j = int rand ($i+1); next if $i == $j; @$array[$i,$j] = @$array[$j,$i]; } }
Beispielausgabe:
Ziehung der Lottozahlen: „6 aus 49“
2
17
19
21
25
46
Zusatzzahl 5
…nochmal mischen
Weitere Beiträge
Letzter Tag: Amazon Black Friday Deals für Technik-Liebhaber

Die Black Friday Woche bei Amazon endet heute, und Technik-Liebhaber sollten jetzt zugreifen. Für Betreiber von Webseiten oder Kreative gibt es viele spannende Angebote. Von leistungsstarken Laptops bis hin zu Software-Lizenzen finden Sie heute zahlreiche reduzierte Produkte. Auch Zubehör wie kabellose Tastaturen, externe Festplatten oder USB-Hubs sind oft günstiger erhältlich.
Meta Quest 3: Entdecken Sie das aktuelle VR-Headset

Die Meta Quest 3 ist das aktuelle Mixed-Reality-Headset von Meta, das innovative Technologien vereint, um ein einzigartiges VR-Erlebnis zu bieten. Diese VR-Brille stellt sowohl für Gelegenheitsnutzer als auch für Technikenthusiasten eine aufregende Möglichkeit dar, die Grenzen zwischen der physischen und digitalen Welt zu erkunden. Eine echte Alternative zur Apple Vison Pro. Wer etwas günstiger in […]
Amazon Prime Deal Days: Günstige Hardware-Angebote für Technikfans

Amazon bietet während der Prime Deal Days besonders günstige Hardware an. Das beliebte Shopping-Event läuft vom 8. bis 9. Oktober. Prime-Mitglieder dürfen sich auf exklusive Rabatte und Angebote freuen. Besonders Technikfans kommen in diesen zwei Tagen voll auf ihre Kosten.
Amazon-Vergleichstabellen erhöhen die Affiliate-Einnahmen

Amazon-Vergleichstabellen: Wer im Internet kaufen will, vergleicht zunächst Preise und Produkteigenschaften. Hier ist bei vielen Interessenten Amazon die erste Wahl. Gleichzeitig bietet der Branchenriese ein interessantes Partnerprogramm für Empfehlungen an. Wer sich damit ein zusätzliches Einkommen sichern möchte, bietet seinen Besuchern spezielle Amazon-Vergleichstabellen auf seiner Webseite an. So findet der Kunde schneller die relevanten Informationen […]
Keine Kommentare vorhanden