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

Problem mit global_boolean (Seite 2)

Leser: 1


<< |< 1 2 >| >> 18 Einträge, 2 Seiten
leissi
 2005-12-15 11:29
#60926 #60926
User since
2005-07-06
84 Artikel
BenutzerIn
[default_avatar]
Hallo,
hier mal die Auswertung:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
 Thu Dec 15 10:19:49 2005 


#######################################################################################################################
  Thu Dec 15 10:19:49 2005
 
 Prüfe Existenz von H:\Perl\BackupCheck\_backup\ZITA_PKM_Phoenix_db
#######################################################################################################################
Verzeichnis ist vorhanden!
   Thu Dec 15 10:19:49 2005  Aktuelle Dateien vorhanden! 
file  stat(H:\Perl\BackupCheck\_backup\ZITA_PKM_Phoenix_db/master_db_2005121310230.BAK)

################################################################################################################

 ****************************Backup vorhanden***************************** 
1 Backupdatei gefunden!
master_db_2005121310230.BAK
 
11 Backupdateien im Verzeichnis H:\Perl\BackupCheck\_backup\ZITA_PKM_Phoenix_db vorhanden!
################################################################################################################
--------------------------------------------------------------------------
INFO : Es besteht in dem Verzeichnis mind. eine aktuelle Backupdatei!
--------------------------------------------------------------------------


#######################################################################################################################
  Thu Dec 15 10:19:49 2005
 
 Prüfe Existenz von H:\Perl\BackupCheck\_backup\ZITA_ATF_ZITA_522_db
#######################################################################################################################
Verzeichnis ist vorhanden!
   Thu Dec 15 10:19:49 2005  Aktuelle Dateien vorhanden! 
file  stat(H:\Perl\BackupCheck\_backup\ZITA_ATF_ZITA_522_db/zita_atf_zita_522_db_db_2005121130230.BAK)

################################################################################################################

 ****************************Backup vorhanden***************************** 
1 Backupdatei gefunden!
zita_atf_zita_522_db_db_2005121130230.BAK
 
8 Backupdateien im Verzeichnis H:\Perl\BackupCheck\_backup\ZITA_ATF_ZITA_522_db vorhanden!
################################################################################################################
--------------------------------------------------------------------------
INFO : Es besteht in dem Verzeichnis mind. eine aktuelle Backupdatei!
--------------------------------------------------------------------------


#######################################################################################################################
  Thu Dec 15 10:19:49 2005
 
 Prüfe Existenz von H:\Perl\BackupCheck\_backup\ZITA_ATF_TLA_db
#######################################################################################################################
Verzeichnis ist vorhanden!
**************************************************************************************
**********ERROR: Es besteht in dem Verzeichnis keine aktuelle Backupdatei!************
**************************************************************************************


########################################################################################################################

      ********** ERROR: Backup ist unvollständig !! Bitte prüfen!!! ************

########################################################################################################################
########################################################################################################################



##########################################################################################################################
##########################################################################################################################
########################################################################################################################## Thu Dec 15 10:19:49 2005 


--------------------------------------------------------------------------
 Aktuelle OTA-Datei ist nicht vorhanden!
--------------------------------------------------------------------------
--------------------------------------------------------------------------
 Aktuelle OTA-Datei ist nicht vorhanden!
--------------------------------------------------------------------------
--------------------------------------------------------------------------
 Aktuelle OTA-Datei ist nicht vorhanden!
--------------------------------------------------------------------------
--------------------------------------------------------------------------
 Aktuelle OTA-Datei ist nicht vorhanden!
--------------------------------------------------------------------------
--------------------------------------------------------------------------
 Aktuelle OTA-Datei ist nicht vorhanden!
--------------------------------------------------------------------------
--------------------------------------------------------------------------
 Aktuelle OTA-Datei ist nicht vorhanden!
--------------------------------------------------------------------------
--------------------------------------------------------------------------
 Aktuelle OTA-Datei ist nicht vorhanden!
--------------------------------------------------------------------------
   Thu Dec 15 10:19:49 2005  Aktuelle Dateien vorhanden! 
file  stat(H://Perl//BackupCheck//OTA/MailAlljolle_10_2_12.htm)

------------------------------------------------------------------------------------------

----------------------

 ----------------------------OTA Dateien vorhanden----------------------------- 
1 OTA-Dateien gefunden!
MailAlljolle_10_2_12.htm
 
8 Backupdateien im Verzeichnis  H://Perl//BackupCheck//OTA  vorhanden!
------------------------------------------------------------------------------------------

-----------------------

############################################################################################
--------------------------------------------------------------------------
INFO : Es besteht in dem Verzeichnis mind. eine aktuelle OTA-Dateien!
--------------------------------------------------------------------------

############################################################################################
########################################################################################################################

      ********** ERROR: OTA-Dateiverzeichnis ist unvollständig !! Bitte prüfen!!! ************
[B] Hier an der Stelle dürfte kein Error kommen, da hier eine Datei erkannt wurde!!![/B]
########################################################################################################################
########################################################################################################################
\n\n

<!--EDIT|leissi|1134639018-->
svenXY
 2005-12-15 17:20
#60927 #60927
User since
2005-09-15
33 Artikel
BenutzerIn
[default_avatar]
Hi leissi,

Könnte es vielleicht sein, dass es daran liegt:
Code (perl): (dl )
my $dir = 'H://Perl//BackupCheck//OTA';


Im ersten Skript schreibst Du - ganz richtig - h:\\...\\... (also mit maskierten Backslashes), hier eben doppelte Forward slashes. Sollte mich wundern, wenn das korrekt ist...

Gruss,
svenXY

PS: Was das my und die scopes betrifft - also ich sehe in Deinem Post 2 Skripte - verstehe ich richtig, dass daraus eins gemacht werden soll :rock:?

Gruss,
svenXY
leissi
 2005-12-15 17:24
#60928 #60928
User since
2005-07-06
84 Artikel
BenutzerIn
[default_avatar]
Hi Sven,

Perl
my $dir = 'H://Perl//BackupCheck//OTA'; hab ich schon berichtigt!!!
Richtig ich möchte die beiden in einem Script zusammenfassen!
Dazu gibt es noch ein drittes Script das ich auch mit einbinden möchte! Alle drei untersuchen verschiedene Verzeichnisse!

Gruss Leissi:rock:
svenXY
 2005-12-15 17:42
#60929 #60929
User since
2005-09-15
33 Artikel
BenutzerIn
[default_avatar]
Hi,

Dein Skript (mit -c für Syntaxcheck aufgerufen) spuckt bei mir Folgendes aus:

Global symbol "$global_booleans" requires explicit package name at leissi.pl line 158.
Global symbol "$global_booleans" requires explicit package name at leissi.pl line 223.
/home/eursvh/develop/0_test/leissi.pl had compilation errors.

und siehe da: die zweite Variable heisst bei Dir $global_booleans, nicht $global_boolean. :cool:

Gruss,
svenXY
leissi
 2005-12-15 17:50
#60930 #60930
User since
2005-07-06
84 Artikel
BenutzerIn
[default_avatar]
Hy Sven,

mensch manchmal hat man wirklich Orangen auf den Augen jetzt klappt es!!

Dank DIR :D

Gruss

Leissi
renee
 2005-12-15 23:34
#60931 #60931
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Du solltest die drei Skripte nicht einfach zusammenpacken. Ueberleg Dir mal, was in allen drei Skripten gleich ist (z.B. durchsuche ein Verzeichnis nach einer aktuellen Datei, schreibe etwas in ein Logfile) und fasse die gleichen Teile in Subroutinen zusammen...
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/
svenXY
 2005-12-16 10:28
#60932 #60932
User since
2005-09-15
33 Artikel
BenutzerIn
[default_avatar]
Yep.

Noch ein Tip: Zum loggen benutze ich immer Log::Log4perl - kann ich nur empfehlen. Man kann den Loglevel anfangs auf Debug setzen und später setzt man ihn einfach auf Info, Warn oder Error hoch, wenn man weniger Output sehen möchte. Ausserdem kann das Modul an mehrere Stellen gleichzeitig und mit verschiedenem LogLevel loggen (z.B mit Debug auf den Screen und mit Warn in eine Datei).

Ich benutze zum Debuggen mittlerweile hauptsächlich log4perl.

Gruss,
svenXY
renee
 2005-12-16 11:17
#60933 #60933
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=svenXY,15.12.2005, 16:42]Hi,

Dein Skript (mit -c für Syntaxcheck aufgerufen) spuckt bei mir Folgendes aus:

Global symbol "$global_booleans" requires explicit package name at leissi.pl line 158.
Global symbol "$global_booleans" requires explicit package name at leissi.pl line 223.
/home/eursvh/develop/0_test/leissi.pl had compilation errors.

und siehe da: die zweite Variable heisst bei Dir $global_booleans, nicht $global_boolean. :cool:

Gruss,
svenXY[/quote]
Wiki:use strict sollte da eigentlich helfen...
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/
<< |< 1 2 >| >> 18 Einträge, 2 Seiten



View all threads created 2005-12-14 16:53.