Fehlermeldung, find den Fehler aber nicht (Allgemeines zu Perl)

[thread]11004[/thread]

Fehlermeldung, find den Fehler aber nicht

Gast Gast

2007-12-11 17:45

Wenn ich mein script laufen lassen möchte, dann bekomme ich eine Fehlermeldung, aber wie schon im Topic geschrieben, finde ich den Fehler einfach nicht. :(

Wahrscheinlich stehe ich voll auf dem Schlauch - ich hoffe mal, ihr könnt mir schnell weiterhelfen :)

Code (perl): (dl )

sub initSurvRerun() {
        $textfield_listing->selectionSet(0, 'end');
        my @indexlist = $textfield_listing->curselection();
        $textfield_listing->selectionClear(0, 'end');
        
        foreach my $i ( @indexlist ) {
                my $packnum = $packetnumber[$i];
                my $host = $hostname[$i];
                if ($pack_status{$i} eq "running") {
                        if (checkStatus($packnum, $host) == 1) {
                                checkSchedules($packnum, $host);
                        }
                }
        }
}

sub checkStatus() {
        my $blub = $_[0];
        my $blub2 = $_[1];
}


sub checkSchedules() {
        my $blub = $_[0];
        my $blub2 = $_[1];
}

Fehlermeldung:

Quote
Too many arguments for main::checkStatus at script_v_0-7.pl line 10, near "$host) "
Too many arguments for main::checkSchedules at script_v_0-7.pl line 11, near "$host)"
Execution of script_v_0-7.pl aborted due to compilation errors.

renee

2007-12-11 17:46

User since
2003-08-04
14371 Artikel
ModeratorIn

Lass mal die "()" nach sub xxx weg. Das sagt Perl, dass Du keine Parameter haben willst...

In Perl werden in der Regel die Subs so deklariert:

Code (perl): (dl )

1
2

sub name{ # ohne ()
}

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/

#Kein Kommentar

2007-12-11 17:49

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

ok, dachte was anderes, war aber falsch...

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

Gast Gast

2007-12-11 18:04

renee+2007-12-11 16:46:50--
Lass mal die "()" nach sub xxx weg. Das sagt Perl, dass Du keine Parameter haben willst...

In Perl werden in der Regel die Subs so deklariert:
Code (perl): (dl )
1
2
sub name{ # ohne ()
}

hm, damit gehts xD

is aber komisch, weil ich habe bisher immer die subs mit () hinter dem namen geschrieben und noch keine Probleme bekommen (obwohl ich da auch mehrere parameter übergeben habe).
Naja, dann eben ohne.

Danke für die schnelle Hilfe! :)

nepos

2007-12-12 09:45

User since
2005-08-17
1420 Artikel
BenutzerIn

Dann warst du entweder objektorientiert unterwegs, da zählen die Prototypen nicht oder du hast mit globalen Parametern gearbeitet.
Ganz sicher hast du keine sub xxx() deklariert und dann xxx($bla) aufgerufen ohne eins auf die Finger zu kriegen. Was wäre denn sonst der Sinn von Prototypen?

2007-12-12 11:46

User since
2003-08-04
12208 Artikel
Admin1

nepos+2007-12-12 08:45:40--

Ganz sicher hast du keine sub xxx() deklariert und dann xxx($bla) aufgerufen ohne eins auf die Finger zu kriegen. Was wäre denn sonst der Sinn von Prototypen?

klar geht das, wenn man die sub vor der deklaration aufruft (und keine warnings benutzt, die
einen darauf aufmerksam machen)

Code: (dl )

$ perl -wle'
foo(23);
sub foo() { print "foo(@_)" }
'
main::foo() called too early to check prototype at -e line 2.
foo(23)
$ perl -le'
foo(23);
sub foo() { print "foo(@_)" }
'
foo(23)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

nepos

2007-12-12 12:24

User since
2005-08-17
1420 Artikel
BenutzerIn

Stimmt, wenn man wie du sagst keine Warnings an hat... Das hatte ich vergessen.

View all threads created 2007-12-11 17:45.