Skip to main content

Alles für die Homepage... Scripte, Templates, Workshops und Support

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.

CODE:
#!/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

virtuelles büro home office

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

meta quest 3 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 […]


Ähnliche Beiträge



Keine Kommentare vorhanden


Du hast eine Frage oder eine Meinung zum Artikel? Teile sie mit uns!

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind markiert *