Opened by Kogge at 2004-06-20 13:28
User since
2004-06-17
24 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-06-17
24 Artikel
BenutzerIn
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!!
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!?
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!?