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