| 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 |
sub out { print FILE @_ }
<perl>
out <<EOF;
EOF
| Alle Einträge zum Thema: | Zur Liste |
<?
$url = "http://www.daten-banken.de/cgi-bin/baseportal.pl?htx=/Hotel/bikerhotel_Kopie&localparams=4&db=Hotel&cmd=list&range=0,20&cmd=all&Id=24";
$data = file_get_contents ($url);
preg_match("/<title>(.*)<\/title>/i", $data, $matches);
$filename = str_replace (" ","_",$matches[1]);
$handler = fopen ($filename.".html","w");
fputs ($handler,$data);
fclose ($handler);
</perl> <perl> out get "http://www.daten-banken.de/test/auslesen.php"; </perl>
$url = "http://www.daten-banken.de/cgi-bin/baseportal.pl?htx=/Hotel/bikerhotel_Kopie&localparams=4&db=Hotel&cmd=list&range=0,20&cmd=all&Id=$Id"; gehen würde und die $Id automatisch die html datei erzeugen würde.
<perl>
if($cmd eq "all"){
get "Id==$Id","$db";
$title="Motorrad Hotel $Name in $Ort";
}else{
$title="Motorrad Hotel Bikerhotels Unterkünfte";
open(FILE, ">/Motorrad_Hotel/Motorrad-Hotel-$Name-in-$Ort");
print FILE "Datei Motorrad-Hotel-$Name-in-$Ort" angelegt;
</perl>
sub out { print FILE @_ }
<perl>
out <<EOF;
EOF
<html>
<perl>
open(FILE, ">/Motorrad_Hotel/Motorrad-Hotel-$Name-in-$Ort");
sub out { print FILE @_ }
</perl>
<perl>
if(%_put)
{
out <<EOF;
<script>
EOF
}
</perl>
<perl>
if($cmd eq "all"){
get "Id==$Id","$db";
$title="Motorrad Hotel $Name in $Ort";
}else{
$title="Motorrad Hotel Bikerhotels Unterkünfte";
}
</perl>
<perl>
open(FILE, ">/Motorrad_Hotel/Motorrad-Hotel-$Name-in-$Ort");
sub out { print FILE @_ }
{
out <<EOF;
<script>
EOF }
get "Id==$Id","$db";
$title="Motorrad Hotel $Name in $Ort";
}else{
$title="Motorrad Hotel Bikerhotels Unterkünfte";
}
</perl>
sub out { print FILE @_; &main::out; }
sub out { print FILE @_; &baseportal::out; }
if($cmd eq "all"){
get "Id==$Id","$db";
$title="Motorrad Hotel $Name in $Ort";
}else{
$title="Motorrad Hotel Bikerhotels Unterkünfte";
}
sub out { print FILE @_; &baseportal::out; }
> Greife ich so jeden Datensatz in der Datenbank ab und speicher ihn als Html ab? > Gas ist ja das Ziel der Sache..
out "....text.....";
<perl>
get "Id==*", "db";
while(get_next)
{
open(FILE, ">/pfad/seite$_id.html");
print FILE "$Name, $Strasse, $Ort...etc.";
}
</perl>
<perl>
get "Id==*", "db";
while(get_next)
{
open(FILE, ">/Motorrad_Hotel/seite$_id.html");
print FILE "Motorrad-Hotel-in-$Ort.html";
}
</perl>
<perl>
{
out <<EOF;
<script>
EOF }
get "Id==$Id","$db";
$title="Motorrad Hotel $Name in $Ort";
}else{
$title="Motorrad Hotel Bikerhotels Unterkünfte";
}
</perl>
> Ich weis ich stell mich schlimm an...
<perl>
get "Id==*", $db;
while(get_next)
{
open(FILE, ">/Motorrad_Hotel/seite$_id.html");
print FILE "Motorrad-Hotel-in-$Ort.html";
}
</perl>
<perl>
get "Id==*", "$Hotel";
while(get_next)
{
open(FILE, ">/Motorrad_Hotel/seite$_id.html");
print FILE "Motorrad-Hotel-in-$Ort.html";
}
</perl>
<perl>
get "Id==*", "db";
while(get_next)
{
open(FILE, ">/Motorrad_Hotel/seite$_id.html");
print FILE "Motorrad-Hotel-in-$Ort.html";
}
</perl>
<perl>
{
out <<EOF;
<script>
EOF }
get "Id==$Id","$db";
$title="Motorrad Hotel $Name in $Ort";
}else{
$title="Motorrad Hotel Bikerhotels Unterkünfte";
}
</perl>
<perl>
get "Id==*", "db";
while(get_next)
{
open(FILE, ">/Motorrad_Hotel/seite$_id.html");
print FILE "Motorrad-Hotel-in-$Ort.html";
}
</perl>
<perl>
{
out <<EOF;
<script>
EOF }
get "Id==$Id","$db";
$title="Motorrad Hotel $Name in $Ort";
}else{
$title="Motorrad Hotel Bikerhotels Unterkünfte";
}
</perl>
<perl>
open(FILE, ">/Motorrad_Hotel/Motorrad-Hotel-$Name-in-$Ort");
sub out { print FILE @_; &baseportal::out; }
if(%_put)
{
out <<EOF;
<script>
<perl>
get "Id==*", "$Hotel";
while(get_next)
{
print FILE "Motorrad-Hotel-in-$Ort.html"; } </perl>
<perl>
get "Id==*", "$Hotel";
while(get_next)
{
get "Id==*", "Hotel";
| Liste der Einträge von 25200 bis 25350: | 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 |