Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]302[/thread]

LWP!??



<< |< 1 2 >| >> 11 Einträge, 2 Seiten
Kogge
 2004-06-20 13:28
#2931 #2931
User since
2004-06-17
24 Artikel
BenutzerIn
[default_avatar]
Hallo Zusammen!!

Ich bin wieder mal Ratlos! Ich will einen Routenplaner basteln und wie ich gesehen habe, gibt es bei map24 einen tollen Planer, jedoch möchte ich nur die wichtigen Info heraus filtern! Also habe ich die Site zuerst local gespeichert um genau zu schauen wo ich wie Filtern kann, aber als ich es dann direkt mit LWP versucht habe ging es nicht!!

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl --

print "Content-type: text/html\n\n";
my ($Map,$start,$end);

use LWP::Simple;
$Map = get("http://www.map24.ch/map24/routing.php3?lang=de&mid=LINK2&lid=f6424470&maptype=java&rtype=fast&sstreet=&szip=4150&scity=&scountry=ch&sdescription=Startbeschreibung&dstreet=Bergstrasse&dzip=4114&dcity=Hofstetten&dcountry=ch&ddescription=Zielbeschreibung");
die "Couldn't get it! $!" unless defined $data;

$start = '<script language=JavaScript type=text/javascript>';
$end   = '<!-- Route - Links Description //-->';
$data =~ m/$start.*$end/si;

$data = $&;

$start = '<!-- begin titlebar -->';
$end   = '<!--  end  titlebar -->';
$data =~ m/$start.*$end/si;
$Main_data = $`.$';

print $Main_data;


Was mache ich Falsch und gibt es einen anderen Modul!! Wenn ich schon dabei bin, kennt jemand einen guten (sehr guten) Tutorial der mir RegExpr. und String matchings - Korrekt gesagt Stringverarbeitung in Perl - erklärt!?
coax
 2004-06-20 13:59
#2932 #2932
User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]
[quote=Kogge,20.06.2004, 11:28]
Code: (dl )
1
2
3
use LWP::Simple;
$Map = get("http://www.map24.ch/map24/routing.php3?lang=de&mid=LINK2&lid=f6424470&maptype=java&rtype=fast&sstreet=&szip=4150&scity=&scountry=ch&sdescription=Startbeschreibung&dstreet=Bergstrasse&dzip=4114&dcity=Hofstetten&dcountry=ch&ddescription=Zielbeschreibung");
die "Couldn't get it! $!" unless defined $data;
[/quote]
Du holst dir den Inhalt in $Map, spaeter verarbeitest du jedoch $data statt $Map.
,,Das perlt aber heute wieder...'' -- Dittsche
Kogge
 2004-06-20 16:27
#2933 #2933
User since
2004-06-17
24 Artikel
BenutzerIn
[default_avatar]
Tut mir leid, mein schreibfehler!! Habe in der Eile als ich es aus zwei verschiedenen Dateien herausgenommen habe, vergessen die Scalars anzupassen. Aber auch richtig geht es nicht!!!

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl --

print "Content-type: text/html\n\n";
my ($Map,$start,$end);

use LWP::Simple;
$data = get("http://www.map24.ch/map24/routing.php3?lang=de&mid=LINK2&lid=f6424470&maptype=java&rtype=fast&sstreet=&szip=4150&scity=&scountry=ch&sdescription=Startbeschreibung&dstreet=Bergstrasse&dzip=4114&dcity=Hofstetten&dcountry=ch&ddescription=Zielbeschreibung");
die "Couldn't get it! $!" unless defined $data;

$start = '<script language=JavaScript type=text/javascript>';
$end   = '<!-- Route - Links Description //-->';
$data =~ m/$start.*$end/si;

$data = $&;

$start = '<!-- begin titlebar -->';
$end   = '<!--  end  titlebar -->';
$data =~ m/$start.*$end/si;
$Main_data = $`.$';

print $Main_data;
Oesi50
 2004-06-21 03:40
#2934 #2934
User since
2004-05-15
33 Artikel
BenutzerIn
[default_avatar]
versuchs mal damit:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl --

print "Content-type: text/html\n\n";
my ($Map,$start,$end);

use LWP::Simple;
$data = get("http://www.map24.ch/map24/routing.php3?lang=de&mid=LINK2&lid=f6424470&maptype=java&rtype=fast&sstreet=&szip=4150&scity=&scountry=ch&sdescription=Startbeschreibung&dstreet=Bergstrasse&dzip=4114&dcity=Hofstetten&dcountry=ch&ddescription=Zielbeschreibung");
die "Couldn't get it! $!" unless defined $data;

$start = '<!-- begin titlebar -->';
$end   = '<!--  end  titlebar -->';
$data =~ m/$start(.*)$end/si;
$Main_data = $1;

print $Main_data;
ptk
 2004-06-21 14:09
#2935 #2935
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Willst du den Routenplaner oeffentlich anbieten? Ich glaube kaum, dass das den Leuten von map24 recht ist...
format_c
 2004-06-21 14:39
#2936 #2936
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Den Seiten kontent von Dynamischen Seiten mache ich immer mit LWP::UserAgent;
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $link = "http://server/script.pl?param1=value1;param2=value4&param3=5";
my ($script,@params) = split /\?|;|&|=/,$link;
my $ua = LWP::UserAgent->new();
$ua->agent('MyUserAgent');
my $request = $ua->request(GET $script,[@params]);
if ($request->is_success()) {
  print $request->content();
}
else {
  print "Seite $link konnte nicht erreicht werden.";
}


Gruß Alex
Effizente Linuxshell
Kogge
 2004-06-21 23:18
#2937 #2937
User since
2004-06-17
24 Artikel
BenutzerIn
[default_avatar]
Nein ich möchte nur, dass man nur die Startadresse eingeben kann und der Ziel wird dann immer nur dass sein was ich angebe!! Und damit Sie nicht noch weiter auf andere Funktionen zugreifen können möchte ich die Navleiste sperren!!
ShadowRunner
 2004-06-21 23:27
#2938 #2938
User since
2004-06-09
8 Artikel
BenutzerIn
[default_avatar]
aber damit benutzt du deren geistiges eigentum.
ob du jetzt immer das selbe ziel hast oder nicht.
andere leute zahlen map24 dafür geld um genau
diese funktion benutzen zu dürfen.wenn die zufällig
über ihre server-logfiles irgendwann ma spitzkriegen sollten
dass du das so benutzt haste n echtes problem. :rock:
there's more than one way to do it
Kogge
 2004-06-22 00:11
#2939 #2939
User since
2004-06-17
24 Artikel
BenutzerIn
[default_avatar]
Dieser Dienst ist Kostenlos! Geh mal auf die Seite und schau mal unter Produkte [Link2Map] an. Was ich mache ist aber nichts anderes als die NavLeiste sperren, da niemand diese benutzt und niemand die Seite auf spanisch oder französisch sehen will!
Ishka
 2004-06-22 10:19
#2940 #2940
User since
2003-08-04
771 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Frag da lieber vorher mal bei denen nach, ob es ihnen recht ist
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
<< |< 1 2 >| >> 11 Einträge, 2 Seiten



View all threads created 2004-06-20 13:28.