baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
|
Alle Einträge zum Thema: | Zur Liste |
get ["Name", "==!", "Stefan Klamm", "&", "URL", "==", $URL], "zugriffe";
get ["PLZ", "~=", "5", "&", "Flaeche", ">", "100"], "Eifelraum"; while(get_next("Eifelraum")) { out "PLZ: $PLZ, Ort: $Ort, Seite: $Page<br><br>"; }
my @query; for(my $i=0; $i<21; $i+=3) { push @query, "Wert", "==", $i, "|"; } get \@query, "datenbank";
my @query; for(my $i=0; $i>100; $i+=10) { push @query, "Flaeche", "==", $i, "|"; } get \@query, "Eifelraum"; while(get_next("Eifelraum")) { out "PLZ: $PLZ<br> Ort: $Ort<br><br><hr width='30%' align='left'"; }
for(my $i=0; $i>100; $i+=10)
<form action=" http://de3.arteurope.de/cgi-bin/baseportal.pl?htx=$htx&raum=1,7,9" method="post" enctype="multipart/form-data">
<input type="submit" value="Suchen"> </form>
my @Daten;
#---------------- und das Eingabefeld [Such] nicht leer ist { out "Suchbegriff =<b>[$Such]</b><br>"; my $i=0;
get "Id==*","Eifelraum"; while(get_next) #----------- gesucht wird in dem Feld [Text] -------------------------------
{$i++; $Daten[$i]="$i.<a href='http://arteurope.de/cgi-bin/baseportal.pl? htx=$htx&raum&Id==$_id'>$Page</a><br>"; #----------- als Link wird das Feld [Titel] ausgegeben ----------------------
} out "Treffer: $i<br>";
while ($y < $i+1){out $Daten[$y]; $y++ ;} }
<perl>
<form action="baseportal.pl?htx=/$htx" method="post" enctype="multipart/form-data"> <input type="hidden" name="htx=" value="$htx"> <p>Kreuzen Sie die gewünschten Eigenschaften an:</p> <p> <input type='checkbox' name='Parken' value=''>Parkmöglichkeit<br> <input type='checkbox' name='Lagern' value=''>Lagermöglichkeit <br> <input type='checkbox' name='Verwahren' value=''>gesicherte Unterstellung/Verwahrung <input type='submit' name='Search' value='Suchi'> </p> </form> EOF
if ($Lagern ne "") { get ["Lagern", "==","$Lagern"], "Eifelraum"; while(get_next("Eifelraum")){ out "PLZ: $PLZ, Ort: $Ort, Seite: $Page<br>"; } }
<input type='checkbox' name='Parken=' value='1'>Parkmöglichkeit<br> <input type='checkbox' name='Lagern=' value='1'>Lagermöglichkeit <br>
mit dem = hintendran kommen die Vars auch an.
get "Ort==Berlin Flaeche==140"; while(get_next...){ #hash aufbauen } get "Ort==Wien Flaeche==150"; while(get_next...){ #hash erweitern }
get "Ort==Berlin&Flaeche==140|Ort==Wien&Flaeche==150";
<form ... <select name="Region" size="3" multiple> <option>Voreifel</option> <option>Hohes Venn</option> <option>Nordeifeifel</option> </select><br/> ...</form>
get Id==["Region", "==","$Region"], "Eifelraum", "region";
while(get_next("Eifelraum")){ out "$Region $PLZ $Ort\n\n"; } } else { undef(%_get); }
<select name="Region=" size="3" multiple>
@regionen=split/\n/,$Region; foreach(@regionen){ push @where,"Region==$_"; } $where=join"|",@where;
get Id==["Region", "==","$Region"], "Eifelraum", "region"; ist falsch (Id==Region==$Region). Wenn mit Array gearbeitet werden soll, dann get ["Region", "==","$Region"], "Eifelraum", "region";
get "Ort==Berlin or $Ort==Wien", "db"; while(get_next("db")){ if(($Ort eq "Berlin" and $Flaeche == 140) or ($Ort eq "Wien" and $Flaeche == 150)) { out "Was Du sehen willst <br>"; } }
$csParken="1" if $Parken ; out<<EOF; <form action="baseportal.pl?htx=$htx&cmd=search" method="post" enctype="multipart/form-data"> <select name="Region=" size="3" multiple> <option>Voreifel</option> <option>Hohes_Venn</option> <option>Nordeifel</option> </select><br/> <input type='checkbox' name="Parken=" value='' $csParken>Parkplatz<br> <input class=submit type=submit value="Abschicken"> </form> EOF
foreach(@regionen){ push @where,"Region==$_"; } $where=join"|",@where;
while(get_next("all")){ $Id_all=$Id; }
@Id_all=split/\n/,$Id_all; foreach(@Id_all){ push @reg,"Id==$reg & Parken==$Parken"; } $reg=join"|",@reg; get "$reg", "Eifelraum"; while(get_next("Eifelraum")){ out "$PLZ $Ort $Raumname <a href='#'>$Page</a><br><br>"; }
@regionen=split/\n/,$Region; foreach(@regionen){ push @where,"Region==$_"; } $where=join"|",@where;
while(get_next("all")){ $Id_all=$Id; }
my @query; for(my $i=0; $i+=1; $i<800) { push @query,"Id==$idx[$i] & Parken==$Parken"; } $query=join"|",@query;
get "$query", "Eifelraum"; while(get_next("Eifelraum")){ out "$PLZ $Ort $Raumname <a href='#'>$Page $Id</a>"; }
#!/usr/bin/perl -w
my @array1 = (1, 2, 3); my @array2 = (2, 3, 4); my %array1 = map{$_ =>1} @array1; @isect = grep ( $array1{$_}, @array2 ); print Dumper(\@isect);
get "Raumname<>_", "Eifelraum"; while(get_next("Eifelraum")){ push @NRW,"$Id"; }
if ($PLZx ne ""){ get "PLZ~=$PLZx", "Eifelraum", "plz"; while(get_next("plz")){ push @array2,"$Id"; } } else { get "Raumname<>_","Eifelraum","all"; while(get_next("all")){ push @array2,"$Id"; } }
@array2=@NRW;
get "Raumname<>_", "Eifelraum"; while(get_next("Eifelraum")){ push @NRW,"$Id"; } @array1=@NRW;
$I=0; while ($i <= $#NRW) { out "<font color='red'>$NRW[$i++]</font>", "\n\n"; }
$I=0; while ($i <= $#array1) { out "<font color='blue'>$array1[$i++]</font>", "\n\n"; }
@array1=$NRW;
$I=0; while ($i <= $#NRW) { push @array1,"$NRW[$i++]"; }
$I=0; while ($i <= $#NRW) { out "<font color='red'>$NRW[$i++]</font>", "\n\n"; }
out dump(@NRW);
out "<font color=red>@NRW</font><br>";
out $laenge=@NRW; nicht das deine Schleife falsch wäre aber gebräuchlicher ist dann $i=0; while ($i < @NRW) { out "<font color='red'>$NRW[$i++]</font>", "\n\n"; }
out "<font color='red'>$NRW[$i++]</font>", "\n\n"; }
$I=0; machst in der Schleife aber mit $i weiter. Die Vars sind case sensetive bei der ersten schleife klappt das, da $i nicht vorhanden, also 0 war. in der 2ten hat $i aber den Wert von @NRW - @array1 hat da aber keine Elemente mehr. also wird nix ausgegeben.
Liste der Einträge von 7875 bis 7950: | 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 |