| 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 |
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 |