Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6149[/thread]

Problem mit Modul: Perl-Modul liefert falschen Wert zurück.

Leser: 1


<< |< 1 2 >| >> 18 Einträge, 2 Seiten
havi
 2004-03-17 12:04
#81097 #81097
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Mach in der letzten Zeile deines Moduls
1;

Gruss
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
s-t-e-v-e
 2004-03-17 12:00
#81098 #81098
User since
2004-03-17
1 Artikel
BenutzerIn
[default_avatar]
hallo.

ich schreibe ein einfaches perl-script welches eine log-datei auswertet (stringverarbeitung)
mein funktionen lagere ich in ein modul "LogHandler.pm" aus.
dieses modul liegt im selben ordner wie des script.

beim ausführen wird mir diese fehlermeldung zurückgegeben:
<<
LogHandler.pm did not return a true value at LogHandlerv0.3.pl line 12.
>>

die entsprechende zeile im script:

<<
require "LogHandler.pm";
>>

kann mir jmd helfen? ich habe doch von perl noch kein ahnung.
des script wird auf nem Solaris-System ausgeführt.

MfG
s-t-e-v-e
havi
 2004-03-17 12:09
#81099 #81099
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
*verschoben*
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
havi
 2004-03-18 09:48
#81100 #81100
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Hats funktioniert?
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
Crian
 2004-03-23 13:53
#81101 #81101
User since
2003-08-04
5871 Artikel
ModeratorIn
[Homepage]
user image
[quote=havi,17.03.2004, 11:04]Mach in der letzten Zeile deines Moduls
1;

Gruss[/quote]
Oder return 1;, das stellt vielleicht einen besseren Bezug zu Deiner Fehlermeldung her.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
format_c
 2004-03-23 14:52
#81102 #81102
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Problem bei return 1; am ende einer Datei (Nicht einer Subroutine) mecker der Compiler.
Code: (dl )
1
2
3
4
C:\>perl -e "return 1;"
Can't return outside a subroutine at -e line 1.

C:\>

Die 1; am ende ist schon richtig. Hauptsache da steht irgendwas damit require resp. use sein true bekommt.
Gruß Alex
Effizente Linuxshell
Crian
 2004-03-23 16:35
#81103 #81103
User since
2003-08-04
5871 Artikel
ModeratorIn
[Homepage]
user image
Nö, nicht in einem Modul. Da ist die letzte Zeile bei mir immer "return 1;" und da meckert auch niemand drüber, nichtmal der Interpreter ;)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Strat
 2004-03-23 19:54
#81104 #81104
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
also bei mir kommt da auch immer die Warnung...

Zum Laden eines Moduls im aktuellen Verzeichnis verwende ich gerne folgendes Konstrukt:
Code: (dl )
1
2
3
4
5
BEGIN {
  use FindBin ();
  use lib $FindBin::Bin;
}
use NameDeinesModuls;
\n\n

<!--EDIT|Strat|1080064492-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
ptk
 2004-03-23 20:41
#81105 #81105
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
BEGIN {} ist hier aber ueberfluessig, du benutzt ja bereits "use".
format_c
 2004-03-23 21:38
#81106 #81106
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Damit ist aber gewährleistet, dass die Module in BEGIN zuerst geladen werden.

Gruß Alex
Effizente Linuxshell
<< |< 1 2 >| >> 18 Einträge, 2 Seiten



View all threads created 2004-03-17 12:04.