baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
Alle Einträge zum Thema: | Zur Liste |
<perl> get "Id==*","dbname"; #dbname ändern while (get_next("dbname")) # hier auch { %{Ds.$x++}=%_loop; #Datensätze werden kopiert push @Liste,$i++; #eine Datensatznummer hinzufügen }
{ $Zufall=int(rand(@Liste)); # Zufällig ein Element der Dsnummernliste auswählen $merken=$Liste[$Zufall]; # Inhalt dieses Elementes merken foreach $var (keys %{Ds.$merken}) # Dazugehörigen Ds holen { ${$var} = ${Ds.$merken}{$var}; # Variablen benutzerfreundlich machen }
out <<EOF;
$Email, $url, $Name ----------<br> EOF #### Ausgabe ende #### do { $Temp = shift(@Liste); # erstes Element der liste kopieren/löschen push(@Liste,$Temp) if ($Temp!=$merken); wenn es nicht der ausgegebene Ds war - hinten wieder anstellen }while($Temp!=$merken); }while (@Liste!=0); </perl>
Liste der Einträge von 54751 bis 54901: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |