Was sagt mir diese Zeile ?

[Torwächter]

Hallo zusammen,

wärend unten das Design begutachtet wird, wird meine error-log immer größer:

..Name "main::winNews" used only once: possible typo at... main.pl..

Was sagt diese Zeile aus ?

Greetings
Torwächter

[Cheatah]

Hi,

..Name "main::winNews" used only once: possible typo at... main.pl..
Was sagt diese Zeile aus ?

dass Du $winNews nur einmal verwendet und Dich ergo vermutlich vertippt hast.

Cheatah

[Torwächter]

Liegt es vielleicht an diesen Zeilen ?
(Perl)

sub readin
{
        open (TMPL, "$template") || Dateierror();
        @TEMPLATE = <TMPL>;
        close (TMPL);
        #---
        print "Content-type: text/html\n\n";
        foreach $templateline(@TEMPLATE)
        {
                $templateline =~ s/<MZ-BILD>/$bilder/g;
                #---Windows---
                $templateline =~ s/<MZ-WIN-C>/$winC/g;
                $templateline =~ s/<MZ-WIN-NAVI>/$winNavi/g;
                $templateline =~ s/<MZ-WIN-PLUS>/$winPlus/g;
                $templateline =~ s/<MZ-WIN-STATUS>/$winStatus/g;
                $templateline =~ s/<MZ-WIN-LINK>/$winLink/g;
                $templateline =~ s/<MZ-WIN-NEWS>/$winNews/g;
                $templateline =~ s/<MZ-WIN-VOTE>/$winVote/g;
                #---Text---
                $templateline =~ s/<MZ-TEXT>/$text/g;
                #---done---
                print qq~$templateline~;
        }
        exit;
}

[Cheatah]

Hi,

Liegt es vielleicht an diesen Zeilen ?

ja, sieht danach aus.

(Perl)

Das wusste ich schon aufgrund der Fehlermeldung :-)

Cheatah

[Michael Schröpl]

Hallo Cheatah,

..Name "main::winNews" used only once: possible typo at...
main.pl..
Was sagt diese Zeile aus ?
dass Du $winNews nur einmal verwendet und Dich ergo vermutlich
vertippt hast.

kann man das dem Perl-Interpreter irgendwie abgewöhnen? :-(

Ich verwende ziemlich oft Funktionen aus externen Paketen genau
einmal, er hat mit dieser Meldung bei mir praktisch niemals recht.

Muß ich "-w" ausschalten (und damit auf wertvollte Tests verzichten?),
nur weil Perl sich einbildet, meinen Quelltext besser zu verstehen
als ich selbst?

Das sind ja schon fast M$-Methoden ...

Viele Grüße
      Michael
(der in jedem Perl-Quelltextverzeichnis ein Shell-Skript "syntax.sh"
mit "perl -cw <file>" für alle darin befindetlichen Dateien hat, aber
bei jedem dieser "Ratefehler" manuell das "-w" entfernen muß, heul ...)

[Cheatah]

Hi,

dass Du $winNews nur einmal verwendet und Dich ergo vermutlich
vertippt hast.
kann man das dem Perl-Interpreter irgendwie abgewöhnen? :-(

klar: perldoc vars

Muß ich "-w" ausschalten (und damit auf wertvollte Tests verzichten?),

Natürlich nicht :-)

Das sind ja schon fast M$-Methoden ...

Nope, bei M$ lassen sich Automatismen nicht umgehen... es sei denn, sie sind sinnvoll *g*

Cheatah

[Michael Schröpl]

Hallo Chceatah,

ich nehme mir mal meine DAU-Phase:

klar: perldoc vars

Und wie funktioniert das?

[Fri Aug 23 23:55:31 2002] display_story.pl: Name "newssearch_config::db_username" used only once: possible typo at display_story.pl line 279.
[Fri Aug 23 23:55:31 2002] display_story.pl: Name "newssearch_config::db_password" used only once: possible typo at display_story.pl line 280.

Ich habe versucht, diese Variablen mit "use vars qw(...)" zu deklarieren.
Im package newssearch_config hatte das keinen Effekt; im Programm
display_story.pl hat es die Anzahl der Warnungen lediglich verdoppelt.

"perldoc vars" geht mit keiner Zeile auf Module ein ... und nun?

Meine Modul-Einbindungsmethode (aus den "Gründertagen", mehr habe
ich nie gebraucht):

require ("$local/newssearch_config.pm");

Ratlose Grüße
        Michael