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
Virtuelles Büro in Stuttgart Innenstadt: Flexibel, professionell und kosteneffizient

Ein virtuelles Büro in der Stuttgart Innenstadt bietet Ihnen die ideale Gelegenheit, Ihre geschäftliche Präsenz zu stärken – ohne hohe Fixkosten. Die wirtschaftsstarke Hauptstadt Baden-Württembergs ist ein Hotspot für Innovation und Unternehmertum. Eine Geschäftsadresse in dieser zentralen Lage signalisiert Professionalität und schafft Vertrauen bei Kunden und Geschäftspartnern. Gleichzeitig profitieren Sie von der hervorragenden Infrastruktur und […]
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.
Keine Kommentare vorhanden