Liste nicht verfügbar

[Cheatah]

Hi,

Ich hab ein recht kniffliges Problem:

ich kann es auch nicht wirklich erklären, aber bei _so_ schlechtem Stil sind Fehler eigentlich kaum verwunderlich ;-)

--- schnipp ---

#!/usr/bin/perl -w
use strict;
use CGI ':standard';

Einlesen();

my @groessen = &Einlesen;

Pruefen();

my $rueck = &Pruefen(@groessen);

Verarbeiten();

&Verarbeiten(@groessen);

sub Einlesen {
    open (GROESSE, "<groessen.dat");

open(GROESSE, 'groessen.dat) or die "Kann groessen.dat nicht oeffnen: $!";

@Groessen = <GROESSE>;

my @Groessen = <GROESSE>;

close GROESSE;

close GROESSE;
return @Groessen;

}

sub Pruefen() {

sub Pruefen {

$Rueck = 0;

my $Rueck;
my @Groessen = shift;

foreach $Eintrag (@Groessen) {

foreach my $Eintrag (@Groessen) {

($Code, $Bezeichnung, $Betrag, $Ausschluss) = split(//, $Eintrag);

my ($Code...

if ($Code eq $Formular{'Groesse'}) {
        if ($Formular{'Typ'} =~ /$Ausschluss/) {

if ($Code eq param('Groesse') && param('Typ') =~ /$Ausschluss/) {

$Rueck = 1;
  }  }  }  }

} }
return $Rueck;
}

sub Verarbeiten {

my @Groessen = shift;

foreach $Eintrag (@Groessen) {

foreach my $Eintrag (@Groessen) {

($Code, $Bezeichnung, $Betrag, $Ausschluss) = split(//, $Eintrag);

my ($Code...

if ($Code eq $Formular{'Groesse'}) {

if ($Code eq param('Groesse')) {

$Groessebezeichnung = $Bezeichnung;
        $Groessebetrag = $Betrag;

my $Groessebezeichnung = $Bezeichnung;
my $Groessebetrag = $Betrag;

}  }  }

} } }

Wer kann mir helfen?

perldoc perlstyle ;-)

Cheatah