| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| 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>
$merkmodell="";
$erstersatz=1;
$zaehler=0;
get "Modell==* ","main";
while (get_next("main"))
{
if ($erstersatz==1)
{
$merkmodell=$Modell;
}
if ($merkmodell ne $Modell)
{
out $zaehler, " ",$merkmodell;
$zaehler=0;
}
else
{
$zaehler++;
}
}
</perl>
<perl>
get "sort=Modell","main","main";
$merkmodell=$Modell;
$zaehler=0;
while (get_next("main"))
{
if ($merkmodell ne $Modell)
{
out $zaehler, " ",$merkmodell;
$merkmodell=$Modell;
$zaehler=1;
}
else
{
$zaehler++;
}
}
out $zaehler, " ",$merkmodell;
</perl>
<perl>
get "Modell==* ","main";
while (get_next("main"))
{
$Anzahl{$Modell}++;
}
{
out "$Modell - Anzahl: $Anzahl{$Modell}<br>";
}
</perl>
<perl>
get "Modell_1==* ","main";
while (get_next("main"))
{
$Anzahl{$Modell_1}++;
$Anzahl{$Modell_2}++;
$Anzahl{$Modell_3}++;
foreach $Modell_1(keys %Anzahl)
{
out "$Modell - Anzahl: $Anzahl{$Modell_1}<br>";
}
</perl>
<perl>
get "Modell==* ","main";
while (get_next("main"))
{
$Anzahl{$Modell}++;
}
foreach (@sortiert)
{
out "$_ - Anzahl: $Anzahl{$_}<br>";
}
</perl>
<perl>
get "Modell==* ","main";
while (get_next("main"))
{
$Anzahl{$Modell}++;
}
@sortiert=sort { $temp{$a} <=> $temp{$b} } keys %temp;
@reversed=reverse @sortiert;
foreach (@reversed)
{
out "$_ - Anzahl: $Anzahl{$_}<br>";
}
</perl>
@sortiert=sort { $temp{$a} <=> $temp{$b} } keys %temp;
aus dem temp. array werden die keys als liste zusammengefasst und dabei nach der sort {} -bedingung sortiert. Dabei steht $a für den linken, $b für den rechten wert der values. Das ist praktisch ne kleine sub, die entweder 1 für grösser, 0 für = oder -1 für kleiner zurückliefert. Könnte man auch so schreiben (aus selfhtml):
sub NummernSort {
if($a < $b)
{ return -1; }
elsif($a == $b)
{ return 0; }
else
{ return 1; }
}
<perl>
get "Modell==* ","main";
while (get_next("main"))
{
$Anzahl{$Modell}++;
}
foreach $Modell(sort (keys %Anzahl))
{
out "$Modell - Anzahl: $Anzahl{$Modell}<br>";
}
</perl>
<perl>
#------------------------------------------------#
#--SR Ermitteln VK-Statistik #
#------------------------------------------------#
sub do_vkstat
{
get "zahl_1==*","../acd/acvk";
while (get_next("../acd/acvk"))
{
$Anzahl{$zahl_1}++;
$Anzahl{$zahl_2}++;
$Anzahl{$zahl_3}++;
$Anzahl{$zahl_4}++;
}
&do_content_o("200","196","","",""); # Ausgabe Content-Section
&do_headline("VK-Statistik","","","140"); # Ausgabe Content-Headline
out <<EOF;
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR><TD ALIGN="center">
<TABLE WIDTH='90%' BORDER=0>
<TR><TH CLASS='th1'>Gebiet</TH>
<TH CLASS='th1' COLSPAN=7>Verkäufe</TH></TR>
EOF
foreach $zahl_1(sort (keys %Anzahl))
{
out "<TR BGCOLOR=" . ($_loop %2 ? "#A0A0A0" : "#E0E0E0") . ">\n";
out "<TD CLASS='b8' ALIGN='center'> $zahl_1 </TD>";
out "<TD CLASS='b8' ALIGN='center'> $Anzahl{$zahl_1} </TD>";
out "</TR>\n";
}
out "</TD></TR></TABLE>";
out "<BR><BR><A CLASS='link3' HREF='javascript:window.close();'>[Schliessen]</A>\n";
out "</TD></TR></TABLE>\n";
&do_content_u; # Ausgabe Content-Section Unten
}
</perl>
<perl>
#------------------------------------------------#
#--SR Ermitteln VK-Statistik #
#------------------------------------------------#
sub do_vkstat
{
get "zahl_1==*","../acd/acvk";
while (get_next("../acd/acvk"))
{
$Anzahl{$zahl_1}++;
$Anzahl{$zahl_2}++;
$Anzahl{$zahl_3}++;
$Anzahl{$zahl_4}++;
}
&do_content_o("200","196","","",""); # Ausgabe Content-Section
&do_headline("VK-Statistik","","","140"); # Ausgabe Content-Headline
out <<EOF;
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR><TD ALIGN="center">
<TABLE WIDTH='90%' BORDER=0>
<TR><TH CLASS='th1'>Gebiet</TH>
<TH CLASS='th1' COLSPAN=7>Verkäufe</TH></TR>
EOF
foreach $zahl_1(sort (keys %Anzahl))
{
out "<TR BGCOLOR=" . ($_loop %2 ? "#A0A0A0" : "#E0E0E0") . ">\n";
out "<TD CLASS='b8' ALIGN='center'> $zahl_1 </TD>";
out "<TD CLASS='b8' ALIGN='center'> $Anzahl{$zahl_1} </TD>";
out "</TR>\n";
}
out "</TD></TR></TABLE>";
out "<BR><BR><A CLASS='link3' HREF='javascript:window.close();'>[Schliessen]</A>\n";
out "</TD></TR></TABLE>\n";
&do_content_u; # Ausgabe Content-Section Unten
}
</perl>
foreach $zahl_1(sort {$a<=>$b}keys %Anzahl)
{
out "<TR BGCOLOR=" . ($_loop %2 ? "#A0A0A0" : "#E0E0E0") . ">\n";
out "<TD CLASS='b8' ALIGN='center'> $zahl_1 </TD>";
out "<TD CLASS='b8' ALIGN='center'> $Anzahl{$zahl_1} </TD>";
out "</TR>\n";
}
$cnt=1;
foreach $zahl_1(sort {$a<=>$b}keys %Anzahl)
{
out "<TR BGCOLOR=" . ($cnt %2 ? "#A0A0A0" : "#E0E0E0") . ">\n";
out "<TD CLASS='b8' ALIGN='center'> $zahl_1 </TD>";
out "<TD CLASS='b8' ALIGN='center'> $Anzahl{$zahl_1} </TD>";
out "</TR>\n";
$cnt++;
}
| Liste der Einträge von 47851 bis 48001: | 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 |