Opened by bony at 2004-05-09 17:58
User since
2004-04-30
18 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-04-30
18 Artikel
BenutzerIn
Hallo,
welche Gründe außer einer Endlosschleife bringen Perl (perl.exe) eigentlich dazu, sich aufzuhängen? Momentan habe ich das Problem mit folgendem Code-Snipped und ich komme einfach nicht auf den Fehler darin. Vielleicht kann mir ja jemand vom Schlauch runter helfen:
Nehme ich hier die Zeilen ab Zeile 8 raus, läuft das Skript ohne Probleme. Am Aufruf der Sub calculateShipping kann es nicht liegen. Der Fehler tritt auch auf, wenn ich hier versuchsweise einen festen Wert definiere.
Perl bleibt einfach ohne Fehlermeldung hängen.
welche Gründe außer einer Endlosschleife bringen Perl (perl.exe) eigentlich dazu, sich aufzuhängen? Momentan habe ich das Problem mit folgendem Code-Snipped und ich komme einfach nicht auf den Fehler darin. Vielleicht kann mir ja jemand vom Schlauch runter helfen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# Falls Versand gewählt wurde, müssen die Versandkosten berechnet werden
my $shippingCosts = undef;
my $shippingCostsCD = undef;
my $total = $subtotal;
if ( $orderDigital eq "cdromPost" ) {
$shippingCostsCD = $shipKompakt;
}
if ( ( $orderShipping eq "post" ) || ( $orderDigShipping eq "digPost" ) ) {
$shippingCosts = calculateShipping( $picOptions );
}
# Die höheren Versandkosten sind ausschlaggebend
if ( $shippingCostsCD > $shippingCosts ) {
$total = $total + $shippingCostsCD;
}
else {
$total = $total + $shippingCosts;
}
Nehme ich hier die Zeilen ab Zeile 8 raus, läuft das Skript ohne Probleme. Am Aufruf der Sub calculateShipping kann es nicht liegen. Der Fehler tritt auch auf, wenn ich hier versuchsweise einen festen Wert definiere.
Perl bleibt einfach ohne Fehlermeldung hängen.