Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]774[/thread]

SQL Tabellen mit Perl erstellen (Seite 2)



<< |< 1 2 >| >> 20 Einträge, 2 Seiten
pktm
 2006-07-15 01:22
#8300 #8300
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Da gibt es ein Tool namens Sysinfo. Die neueste Version ist zwar zum in die Tonne treten (finde ich), aber damit kann man seine Skripten auf dem Webspace auf Fehler überprüfen lassen.
Desweiteren solltest du dir die Server-Log anschauen um die Fehlermaldung zu sehen.
Mit use CGI::Carp qw/fatalsToBrowser/; zu Beginn deines Skriptes kannst du die die Fehler auch ausgeben lassen.

Ich habe mir hier lokal die Server-Umgebung meines Providersa nachgebaut. Dadurch kann ich die Sachen bequem hier testen und dann meistens problemlos hochladen.

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
renee
 2006-07-15 11:30
#8301 #8301
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Es gibt 1.000.000 Möglichkeiten für einen Wiki:500er-Fehler...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
con
 2006-07-15 11:48
#8302 #8302
User since
2006-07-10
10 Artikel
BenutzerIn
[default_avatar]
@pktm: danke für den tipp aber weiterhin gleicher fehler bzw. einfach nur ne 500er error seite

hier mal die logs:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
[Sat Jul 15 08:23:39 2006] [error] [client 84.254.65.225] client sent HTTP/1.1 request without hostname (see RFC2616 section 14.23): /w00tw00t.at.ISC.SANS.DFind:)
syntax error at /pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl line 3, near "CGI::Carp qw/fatalsToBrowser/"
BEGIN not safe after errors--compilation aborted at /pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl line 4.
[Sat Jul 15 09:29:20 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl
[Sat Jul 15 09:29:21 2006] [error] [client 217.228.39.7] File does not exist: /kunden/pages/**/**/*********/home/htdocs/favicon.ico
syntax error at /pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl line 3, near "CGI::Carp qw/fatalsToBrowser/"
BEGIN not safe after errors--compilation aborted at /pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl line 4.
[Sat Jul 15 09:29:22 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl
[Sat Jul 15 09:29:23 2006] [error] [client 217.228.39.7] File does not exist: /kunden/pages/**/**/*********/home/htdocs/favicon.ico
error: file has no execute permission: (/kunden/pages/**/**/*********/home/htdocs/cgi-bin//kunden/pages/**/**/*********/home/htdocs/cgi-bin/env.cgi)
[Sat Jul 15 09:29:33 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/**/**/*********/home/htdocs/cgi-bin/env.cgi
[Sat Jul 15 09:29:42 2006] [error] [client 217.228.39.7] File does not exist: /kunden/pages/**/**/*********/home/htdocs/favicon.ico
/kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl: (13)Permission denied: 1000-exec makesql.pl failed permanently CGI: 2
[Sat Jul 15 09:30:49 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl
[Sat Jul 15 09:30:50 2006] [error] [client 217.228.39.7] File does not exist: /kunden/pages/**/**/*********/home/htdocs/favicon.ico
/kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl: (13)Permission denied: 1000-exec makesql.pl failed permanently CGI: 2
[Sat Jul 15 09:31:07 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl
/kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl: (13)Permission denied: 1000-exec makesql.pl failed permanently CGI: 2
[Sat Jul 15 09:31:11 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl
/kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl: (13)Permission denied: 1000-exec makesql.pl failed permanently CGI: 2
[Sat Jul 15 09:31:12 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/**/**/*********/home/htdocs/cgi-bin/makesql.pl


/modedit Gwendragon: Pfade verschleiert; besser keine Intera zu posten\n\n

<!--EDIT|GwenDragon|1152951456-->
renee
 2006-07-15 12:57
#8303 #8303
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Zeig mal Code!
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2006-07-15 13:04
#8304 #8304
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Wie sind die Rechte von Script und Ordner gesetzt??
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
con
 2006-07-15 19:41
#8305 #8305
User since
2006-07-10
10 Artikel
BenutzerIn
[default_avatar]
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
38
39
40
41
42
43
44
#!/usr/bin/perl

use CGI::Carp qw/fatalsToBrowser/;
use strict;
use warnings;

open(my $fh_titel,"<titel.txt") or die $!;
my @titel=<$fh_titel>;
close($fh_titel);

open(my $fh_url,"<urls.txt") or die $!;
my @urls=<$fh_url>;
close($fh_url);

open (my $fh_sql,">sql.txt") or die $!;

my $subkat = 6;

for my $i(0..scalar(@titel)-1){
   if((length($titel[$i]) > 2)&&(length($urls[$i])>2)){
       my $zahl=substr($titel[$i],0,4);
       if($zahl =~ /^\d+$/){
           if   ($zahl<=500){$subkat=5;}
           elsif ($zahl<=1000){$subkat=4;}
           elsif ($zahl<=1500){$subkat=3;}
           elsif ($zahl<=2000){$subkat=2;}
           elsif ($zahl<=2500){$subkat=1;}
           #if($zahl ne ($altezahl+1)){print ($altezahl+1)." fehlt \n";}

           my $romname=$titel[$i];
           $romname =~ s/\n*?$//;
           $romname=~s/'/\\'/g;

           my $romurl=$urls[$i];
           $romurl =~ s/\n*?$//;
           $romurl=~s/'/\\'/g;

           my $romscreen="http://www.rom-stuff.de/screens/".$zahl."b.jpg";
           print $fh_sql "INSERT INTO `files`(`kat_id`,`sub_kat_id`,`filename`,`downloadfile`,`screen`) VALUES (1, $subkat, '$romname', '$romurl', '$romscreen');\n"
       }
   }
}
   
close $fh_sql or die $!;


und hier nochmal der aktuelle error nachdem ich das skript das letzte mal aufgerufen hab

Code: (dl )
[Sat Jul 15 17:37:20 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/e7/f4/d0005511/home/htdocs/cgi-bin/makesql.pl


rechte hab ich alle auf 755. von txt und skript!

auf 777 gehts leider nicht da er mir da nen error bringt... liegt aber an strato! hab noch paar andere skripte laufen die schreibrechte benötigen da läuft es auf 755... also denke daran liegst nicht!\n\n

<!--EDIT|con|1152978148-->
renee
 2006-07-15 20:16
#8306 #8306
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/perl

use CGI::Carp qw/fatalsToBrowser/;
use strict;
use warnings;

print "Content-type: text/html\n\n";

open(my $fh_titel,"<titel.txt") or die $!;
my @titel=<$fh_titel>;
close($fh_titel);

open(my $fh_url,"<urls.txt") or die $!;
my @urls=<$fh_url>;
close($fh_url);

open (my $fh_sql,">sql.txt") or die $!;

my $subkat = 6;

for my $i(0..scalar(@titel)-1){
  if((length($titel[$i]) > 2)&&(length($urls[$i])>2)){
      my $zahl=substr($titel[$i],0,4);
      if($zahl =~ /^\d+$/){
          if   ($zahl<=500){$subkat=5;}
          elsif ($zahl<=1000){$subkat=4;}
          elsif ($zahl<=1500){$subkat=3;}
          elsif ($zahl<=2000){$subkat=2;}
          elsif ($zahl<=2500){$subkat=1;}
          #if($zahl ne ($altezahl+1)){print ($altezahl+1)." fehlt \n";}

          my $romname=$titel[$i];
          $romname =~ s/\n*?$//;
          $romname=~s/'/\\'/g;

          my $romurl=$urls[$i];
          $romurl =~ s/\n*?$//;
          $romurl=~s/'/\\'/g;

          my $romscreen="http://www.rom-stuff.de/screens/".$zahl."b.jpg";
          print $fh_sql "INSERT INTO `files`(`kat_id`,`sub_kat_id`,`filename`,`downloadfile`,`screen`) VALUES (1, $subkat, '$romname', '$romurl', '$romscreen');\n"
      }
  }
}
 
close $fh_sql or die $!;

print q~<b>fertig</b>~;
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
con
 2006-07-15 20:49
#8307 #8307
User since
2006-07-10
10 Artikel
BenutzerIn
[default_avatar]
http://www.rom-stuff.de/cgi-bin/makesql.pl

er zeigt das "fertig" jetzt an aber in die sql.txt schreibt er nüscht rein, habs jetzt testweise trotzdem mal mit chmod 777 versucht aber auch nix!

könnte es sein das er mit titel.txt und urls.txt nix anfangen kann und deshalb nichts in die sql.txt schreibt?

edit: ok wie ich es vermutet habe... wenn ich nämlich die files nehme die mit einer nummer anfangen schreibt das skript alle dateien in die sql.txt mit tables etc.

die titel.txt sieht im moment so aus (1 datei als beispiel)
Code: (dl )
0001 - Electroplankton (J)(Trashman)


die urls.txt sieht so aus (auch wieder 1 beispiel)
Code: (dl )
http://www.rom-stuff.de/premium/nds/0001 - Electroplankton (J)(Trashman).rar


jetzt wollte ich aber das das skript auch dateien in die sql.txt schreibt die so aussehen

titel
Code: (dl )
Electroplankton (J)(Trashman)


url
Code: (dl )
http://www.rom-stuff.de/premium/nds/Electroplankton (J)(Trashman).rar


geht das?!

die dateien sind alle der reihe nach in titel.txt und urls.txt geordnet (alphabetisch)

also "Electroplankton (J)(Trashman)" wäre in der titel.txt und urls.txt jeweils auf line 1, natürlich ist das nur jetzt als beispiel der fall! später würde es logischerweise mit a anfangen!\n\n

<!--EDIT|con|1152982778-->
renee
 2006-07-15 21:07
#8308 #8308
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/usr/bin/perl

use CGI::Carp qw/fatalsToBrowser/;
use strict;
use warnings;

print "Content-type: text/html\n\n";

open(my $fh_titel,"<titel.txt") or die $!;
my @titel=<$fh_titel>;
close($fh_titel);

open(my $fh_url,"<urls.txt") or die $!;
my @urls=<$fh_url>;
close($fh_url);

open (my $fh_sql,">sql.txt") or die $!;

my $subkat = 6;

for my $i(0..scalar(@titel)-1){
 if((length($titel[$i]) > 2)&&(length($urls[$i])>2)){
     my $zahl=substr($titel[$i],0,4);
     if($zahl =~ /^\d+$/){
         if   ($zahl<=500){$subkat=5;}
         elsif ($zahl<=1000){$subkat=4;}
         elsif ($zahl<=1500){$subkat=3;}
         elsif ($zahl<=2000){$subkat=2;}
         elsif ($zahl<=2500){$subkat=1;}
       }
       else{
         $subkat = 8;
       }

       my $romname=$titel[$i];
       $romname =~ s/\n*?$//;
       $romname=~s/'/\\'/g;

       my $romurl=$urls[$i];
       $romurl =~ s/\n*?$//;
       $romurl=~s/'/\\'/g;

       my $romscreen="http://www.rom-stuff.de/screens/".$zahl."b.jpg";
       print $fh_sql "INSERT INTO `files`(`kat_id`,`sub_kat_id`,`filename`,`downloadfile`,`screen`) VALUES (1, $subkat, '$romname', '$romurl', '$romscreen');\n";       
   }
}

close $fh_sql or die $!;

print q~<b>fertig</b>~;
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
con
 2006-07-15 22:23
#8309 #8309
User since
2006-07-10
10 Artikel
BenutzerIn
[default_avatar]
juuuhu... es geht!!

ich stehe in deiner schuld... wenn du irgendwas brauchst bzgl. roms sag mir bescheid!
<< |< 1 2 >| >> 20 Einträge, 2 Seiten



View all threads created 2006-07-10 22:20.