Opened by steffi42 at 2007-11-11 17:35
User since
2007-11-11
8 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-11-11
8 Artikel
BenutzerIn
Hi,
ich möchte Preise von zwei verschiedenen Seiten abfragen und die gewonnen Infos nach Formatierung in meine mysql Datenbank schieben.
Zum erstellen der einmaligen Produkt Ids habe ich folgendes Script gebastelt
Habe das ganze auf meinen webspace hochgeladen und würde es gerne online ausführen, so das ich von überall die Datenbank speisen kann. Leider erhalte ich Server Error 500 obwohl ich .pl und .cgi ausführen darf und die Dateirechte auf 0755 geändert habe. Der Pfad zu Perl ist laut FAQ auch korrekt. Muss ich am Script noch was ändern oder liegt es am server dass das script nicht ausgeführt wird?
Danke
Steffi
Nachtrag
~~~~~~~~~~~~
habe folgendes nette tool gefunden: perl debugger
der hat mir folgendes ausgeschmissen:
Subroutine main::head redefined at /usr/share/perl/5.8/CGI.pm line 303.
Prototype mismatch: sub main::head ($) vs none at /usr/share/perl/5.8/CGI.pm line 303.
/html/cgi-bin/mtg/IDs_erstellen2.pl syntax OK
~~~~~~~~~~~~~~~~
ich möchte Preise von zwei verschiedenen Seiten abfragen und die gewonnen Infos nach Formatierung in meine mysql Datenbank schieben.
Zum erstellen der einmaligen Produkt Ids habe ich folgendes Script gebastelt
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
use DBI;
use CGI qw(:standard escapeHTML);
print header();
my $dbh = DBI->connect('DBI:mysql:db3459xtest:mysql3.test.de','testuser','testpasswort', { PrintError => 1});
print "DB connection established\n";
my $url = 'http://www.testsite.com/Prices.txt';
my $counter=0;
my $inet = get($url);
my $sql;
my $sth;
foreach my $line (split(/\n/, $inet)) {
$counter++;
if ($counter >= 12) {
unless ($line =~ /^\n|=|Foil/) {
if ($line =~ s/Booster/\[BOO\]/) {}
if ($line =~ /([A-Za-z', ]+)\[(\w+)\]/) {
$sql = qq{INSERT INTO Karten_ID (ID,Edition,Kartenname) values (NULL,$2,$1)};
$sth = $dbh->prepare( $sql );
$sth->execute();
}
}
}
}
$sth->finish();
$dbh->disconnect();
Habe das ganze auf meinen webspace hochgeladen und würde es gerne online ausführen, so das ich von überall die Datenbank speisen kann. Leider erhalte ich Server Error 500 obwohl ich .pl und .cgi ausführen darf und die Dateirechte auf 0755 geändert habe. Der Pfad zu Perl ist laut FAQ auch korrekt. Muss ich am Script noch was ändern oder liegt es am server dass das script nicht ausgeführt wird?
Danke
Steffi
Nachtrag
~~~~~~~~~~~~
habe folgendes nette tool gefunden: perl debugger
der hat mir folgendes ausgeschmissen:
Subroutine main::head redefined at /usr/share/perl/5.8/CGI.pm line 303.
Prototype mismatch: sub main::head ($) vs none at /usr/share/perl/5.8/CGI.pm line 303.
/html/cgi-bin/mtg/IDs_erstellen2.pl syntax OK
~~~~~~~~~~~~~~~~