Font
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]50[/thread]

Script hängt sich auf: Warum nur?

Readers: 18


<< |< 1 2 3 >| >> 21 entries, 3 pages
pktm
 2003-09-26 01:41
#4711 #4711
User since
2003-08-07
2921 articles
BenutzerIn
[Homepage]
user image
Hallo!
Mein Script hängt sich auf.
Das DIng jetzt zu beschrieben wäre recht umständlich - deshalb: wonach muss ich suchen?
Hatte schonmal wer so ein ähnliches Problem? Woran lag es?
mfg pktm
http://www.intergastro-service.de (mein erstes CMS :) )
jan10001
 2003-09-26 01:45
#4712 #4712
User since
2003-08-14
962 articles
BenutzerIn
[default_avatar]
Es wäre schön, wenn du uns etwas mehr zu dem Script erzählen würdest. :)
Dubu
 2003-09-26 01:55
#4713 #4713
User since
2003-08-04
2145 articles
ModeratorIn + EditorIn

user image
Hallo!
Mein Auto bleibt stehen.
Das DIng jetzt zu beschrieben wäre recht umständlich - deshalb: wonach muss ich suchen?
Hatte schonmal wer so ein ähnliches Problem? Woran lag es?


SCNR... ;)
format_c
 2003-09-26 02:31
#4714 #4714
User since
2003-08-04
1706 articles
HausmeisterIn
[Homepage] [default_avatar]
Lässt du dir auch immer schön auch die Warnungen ausgeben. Mein Script hatte sich an
Code: (dl )
my @colors = qw/#ffffff #000000/;

aufgehangen.

die Warnungen ausgeben gelassen, Fehler lokalisiert, behoben, funzt.

Um in einem CGI-Script die Warnungen zu aktivieren muss es sinngemäß so aussehen:
Code: (dl )
1
2
3
4
5
6
use CGI qw/:all/;
use CGI::Carp /fatalsToBrowser warningsToBrowser/;
my $var;
print header;
warningsToBrowser(1);
print $var; # würde eine Warnung verursachen


Die Warnungen findest du als HTML-Kommentar im HTML-Quellcode.

Gruß Alex
pktm
 2003-09-26 16:51
#4715 #4715
User since
2003-08-07
2921 articles
BenutzerIn
[Homepage]
user image
Also ok, hier das Script:
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#!c:/usr/bin/perl -w
# ---------------------------------------------------
# MODULE
# ---------------------------------------------------
use strict;
use warnings;
use diagnostics;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
$CGI::POST_MAX=1024 * 100; # max 100K posts
$CGI::DISABLE_UPLOADS = 1; # no uploads
use Data::Dumper;
use vars;
# ---------------------------------------------------
# KONSTANTEN
# ---------------------------------------------------
use constant UNIX => 0; # Unix y/n
# ---------------------------------------------------
# VARIABLEN
# ---------------------------------------------------
$| = 1;
my $cgi = CGI->new();
my $query = $cgi->Vars; #extract parameters
my $index_file = 'c:/apache/cgi-bin/gcp/txt/index.txt'; # nr. | key | pfad
my $index = 'c:/apache/cgi-bin/gcp/html/index.html';
my $domain = '127.0.0.1';
# ---- TEMPLATE
my $tmplDir = 'c:/apache/cgi-bin/gcp/html'; # Verzeichnis mit Templates
my %subs = (); # global hash for &substitute substitute_key => value
# ---- SETTINGS
$subs{relative_url} = $cgi->url(-relative=>1);
$subs{full_url} = $cgi->url(-full=>1);
$subs{self} = $cgi->url(-relative=>1) . '?action=';
# ---------------------------------------------------
# LOGIK
# ---------------------------------------------------
print $cgi->header(-charset=>'ISO-8859-1',
-expires=>'+1s',
-type=>'text/html',
);
warningsToBrowser(1);
if($query->{action}){
&zeigeSeite($query->{action});
}else{
&zeigeSeite('index');
}
exit( 0 );
# ---------------------------------------------------
# SUBS
# ---------------------------------------------------
sub zeigeSeite{
my $key = $_[0]; #Schlüsselwort für Aufzurufende Seite in /txt/index.txt
my $pfad = 0;
my @index = extractFile( $index_file );
# print;
foreach (@index){
chomp $_;
if($_ =~ m/$key/ig){
$pfad = (split /\t/,$_)[2];
last;
}
}
if($pfad eq 0){ die "zeigeSeite: $!"; } # -> Fehlerseite?
my @inhalt = extractFile( $pfad );
foreach (@inhalt){
chomp $_;
}
# ---------------------------------------------------
# DYN. INHALT

$subs{titel} = (split/\|/, $inhalt[0])[2];
$subs{keywords} = (split/\|/, $inhalt[1])[2];
$subs{desc} = (split/\|/, $inhalt[2])[2];
$subs{page_topic} = (split/\|/, $inhalt[3])[2];
my $page = (split/\|/, $inhalt[4])[2];

$subs{inhalt} = join"",substitute( extractFile( $page ) ); # CONTENT auselesen & serialisieren

# $subs{inhalt} =~ s/\n/ /g;

print substitute( extractFile( $index ) ); # SUBSTITUTION IN INDEX.HTML

# print;

} #ZeigeSeite
# --------------------------------------------------------
sub extractFile{
# ---- usage
# my @extractedFile = extractFile( "FileName" ); # dieing if file doesn't exists
my $file = $_[0];
open(DAT, "$file") || die "$! ($file)";
my @inhalt = <DAT>;
close(DAT);
return @inhalt;
} #extractFile
# --------------------------------------------------------
sub substitute{
# ---- usage
# my @substitutedFile = substitute( @contentToSubstitute ); # substitute-keywords must be added to %subs (global %hash)
my @err = (); # array für fehler
my @file = @_;
foreach my $eintrag( @file ){
if( $eintrag =~ /\%\%(.*)\%\%/ ){
my $keyword = $1;
unless( exists $subs{$keyword} ){ push @err, "Wert nicht gesetzt: $keyword\n"; $subs{$keyword} = ""; }
unless( $eintrag =~ s/\Q$&\E/$subs{$keyword}/g ){ print STDERR "Fehler beim ersetzen!\n"; }
print STDERR "ersetzte: $& mit $eintrag\n";
}
}
print STDERR @err;
return @file;
} #substitute
# --------------------------------------------------------

Wenn ich das Script im Browser starte hängt dieser. Wenn ich dann Escape drücke gibt erm ir die Seite bis nach der Substitution des Hauptinhalts aus.
In meinem perl-Editor ist die Ausgabe aber vollständig.
mfg pktm
PS: braucht ihr auch die verwendeten Dateien?

EDIT: Code aktualisiert!\n\n

<!--EDIT|pktm|1064686535-->
http://www.intergastro-service.de (mein erstes CMS :) )
format_c
 2003-09-26 17:19
#4716 #4716
User since
2003-08-04
1706 articles
HausmeisterIn
[Homepage] [default_avatar]
An ja importier doch noch den Funktionsnamen "warningsToBrowser" mit
Code: (dl )
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;

.

Und nach jeder Ausgabe eines Headers noch
Code: (dl )
warningsToBrowser(1);

. Wie oben beschrieben.

Außerdem wenn $& eine Variable darstellen soll die erstetzt werden soll sollte die Substition besser so aussehen:
Code: (dl )
s/\Q$&\E/$subs{$keyword}/g 


Mach mal die warnungen im HTML-Code an und prüf dann mal (am Verhalten wird sich wohl nix ändern) ob du dort eine Warnung findest.

Gruß Alex
pktm
 2003-09-26 21:31
#4717 #4717
User since
2003-08-07
2921 articles
BenutzerIn
[Homepage]
user image
Ok, habe jetzt alles eingebaut / umgebaut.
Script hängt sich immernoch auf *rasterkrieg*
Die Substitutionen klappen auch enwandfrei und im perl-editor wird alles korrekt ausgegeben.
Kann sowas vielleciht am Header liegen?
Ahja, ich habe noch $| = 1; gesetzt.
Mensch, ich muss das Ding fertig kriegen !
http://www.intergastro-service.de (mein erstes CMS :) )
renee
 2003-09-26 22:03
#4718 #4718
User since
2003-08-04
14370 articles
ModeratorIn
[Homepage] [default_avatar]
Wird denn eine Fehlermeldung im Browser ausgegeben??
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/
pktm
 2003-09-26 22:10
#4719 #4719
User since
2003-08-07
2921 articles
BenutzerIn
[Homepage]
user image
Nein, leider nicht.
In der Errorlog vom Server waren diverse Meldungen von wegen Bild nicht gefunden.
Habe die Pfade angepasst und jetzt komme die nicht mehr - aber das Sceript hängt immer noch.
Um genau zu sein: es ist perl.
Wenn ich nch dem Aufruf im Taskmanager perl beende wird die Seite vollständig angezeigt.
Ein exit( 1 ); am Ende hats allerdings auch nicht gebracht.
Das Script bleibt immer hängebn, wenn es den Inhalt ($subs{inhalt} in das Template (index.html) posten soll.
Da kommt er nicht weiter - und ich auch nicht ;(
mfg pktm
http://www.intergastro-service.de (mein erstes CMS :) )
jan10001
 2003-09-26 22:18
#4720 #4720
User since
2003-08-14
962 articles
BenutzerIn
[default_avatar]
Wird das Script eigentlich mit exit beendet?
<< |< 1 2 3 >| >> 21 entries, 3 pages



View all threads created 2003-09-26 01:41.