baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl>
@liste; $"=' '; get "Id==* sort=d_okey,dtyp", "../bgd/bgdata";
while (get_next("../bgd/bgdata")) { if (index(" @liste "," $d_okey ")<0) { push (@zahl, $i) if $_loop != 0; $i=0; push (@liste, $d_okey);
$i++; } else { $i++; } }
push (@zahl, $i);
##### Ausgabe der Liste in der nur jedes Element 1x vorkommt out "<TABLE BORDER=1>";
$x=0; foreach $liste (@liste) { get "o_okey==$liste o_okey2==1", "../bgd/bgorte"; out "<TR><TD>$o_kreis</TD>"; # Kreis out "<TD>$liste "; # Ortsschlüssel if (($o_okey eq $liste) && ($o_okey2 eq "1")) { out "$o_ortgesamt "; # Ortsname } else { out "kein Ort! "; # Ortsname not found } out "</TD><TD ALIGN='RIGHT'> ($zahl[$x]) </TD></TR>"; # Anzahl Adressen $x++; }
out "</TABLE>";
</perl>
|
Alle Einträge zum Thema: | Zur Liste |
<perl>
@liste; $"=' '; get "Id==* sort=d_okey,dtyp", "../bgd/bgdata";
while (get_next("../bgd/bgdata")) { if (index(" @liste "," $d_okey ")<0) { push (@zahl, $i) if $_loop != 0; $i=0; push (@liste, $d_okey);
$i++; } else { $i++; } }
push (@zahl, $i);
##### Ausgabe der Liste in der nur jedes Element 1x vorkommt out "<TABLE BORDER=1>";
$x=0; foreach $liste (@liste) { get "o_okey==$liste o_okey2==1", "../bgd/bgorte"; out "<TR><TD>$o_kreis</TD>"; # Kreis out "<TD>$liste "; # Ortsschlüssel if (($o_okey eq $liste) && ($o_okey2 eq "1")) { out "$o_ortgesamt "; # Ortsname } else { out "kein Ort! "; # Ortsname not found } out "</TD><TD ALIGN='RIGHT'> ($zahl[$x]) </TD></TR>"; # Anzahl Adressen $x++; }
out "</TABLE>";
</perl>
get ["Id","==","*","sort=d_okey,dtyp"], "../bgd/bgdata";
out runtime(); nach der get_next schleife.
<perl> get "d_okey==*","../bgd/bgdata"; while (get_next("../bgd/bgdata")) { $Anzahl{$d_okey}++; }
foreach $d_okey(sort {$a<=>$b}keys %Anzahl) { out " $d_okey $Anzahl{$d_okey} <BR>"; } out runtime();
</perl>
Liste der Einträge von 47700 bis 47850: | 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 |