Thread Wie man am Besten einen Daemon schreibt (12 answers)
Opened by cala.vera at 2006-03-09 11:20

bloonix
 2006-03-09 14:46
#37177 #37177
User since
2005-12-17
1615 Artikel
HausmeisterIn
[Homepage]
user image
Beim Ausführen mit "use strict;" erhalte ich zunächst folgende
Meldungen ...

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
# ./tatdaemon.pl 7070
Global symbol "$ip" requires explicit package name at ./tatdaemon.pl line 81.
Global symbol "$ip" requires explicit package name at ./tatdaemon.pl line 82.
Global symbol "$hersockaddr" requires explicit package name at ./tatdaemon.pl line 96.
Global symbol "$port" requires explicit package name at ./tatdaemon.pl line 97.
Global symbol "$iaddr" requires explicit package name at ./tatdaemon.pl line 97.
Global symbol "$hersockaddr" requires explicit package name at ./tatdaemon.pl line 97.
Global symbol "$herhostname" requires explicit package name at ./tatdaemon.pl line 98.
Global symbol "$iaddr" requires explicit package name at ./tatdaemon.pl line 98.
Global symbol "$iaddr" requires explicit package name at ./tatdaemon.pl line 99.
Global symbol "$hersockaddr" requires explicit package name at ./tatdaemon.pl line 164.
Global symbol "$port" requires explicit package name at ./tatdaemon.pl line 165.
Global symbol "$iaddr" requires explicit package name at ./tatdaemon.pl line 165.
Global symbol "$hersockaddr" requires explicit package name at ./tatdaemon.pl line 165.
Global symbol "$herhostname" requires explicit package name at ./tatdaemon.pl line 166.
Global symbol "$iaddr" requires explicit package name at ./tatdaemon.pl line 166.
Global symbol "$iaddr" requires explicit package name at ./tatdaemon.pl line 167.
Global symbol "$wtsocketport" requires explicit package name at ./tatdaemon.pl line 259.
Global symbol "$wtsocketport" requires explicit package name at ./tatdaemon.pl line 260.
Global symbol "$wtsocketport" requires explicit package name at ./tatdaemon.pl line 261.
Global symbol "@enviVars" requires explicit package name at ./tatdaemon.pl line 313.
Global symbol "$envi" requires explicit package name at ./tatdaemon.pl line 316.
Global symbol "@enviVars" requires explicit package name at ./tatdaemon.pl line 316.
Global symbol "$envi" requires explicit package name at ./tatdaemon.pl line 317.
Global symbol "$msg" requires explicit package name at ./tatdaemon.pl line 352.
Global symbol "$msg" requires explicit package name at ./tatdaemon.pl line 353.
Global symbol "$msg" requires explicit package name at ./tatdaemon.pl line 354.
Execution of ./tatdaemon.pl aborted due to compilation errors.


Was zunächst nichts heißen muss, aber sowas mache ich zum
Anfang immer gerne :)

[quote=cala.vera,09.03.2006, 12:43]Ok,
Er macht im Prinzip nix besonderes.[/quote]

Er macht viel unsicheres Zeug, wenn ich das richtig betrachte!

Hierfür gibt es ein Modul. Das ist das schöne an Perl, dass man
in vielen Dingen auf eine Shell verzichten kann. hostname gibt
es auch nur, wenn der PATH gesetzt ist. Statt ...
Code: (dl )
1
2
$Thismachineaddr = `hostname`;
chomp($Thismachineaddr);


... geht es auch so! (man Sys::Hostname)
Code: (dl )
1
2
use Sys::Hostname;
$host = hostname;


Das kannst du nicht wirklich wollen! Oder doch?
Code: (dl )
1
2
3
4
5
6
my $logfile=$PWD.$Thismachineaddr.".log";
open(LOGF, ">$logfile");
...
open STDIN, '/dev/null'   or die "ERROR: Can't read /dev/null: $!";
open STDOUT, '>>/dev/null' or die "ERROR: Can't write to /dev/null: $!";
open STDERR, '>>/dev/null' or die "ERROR: Can't write to /dev/null: $!";


Codeauschnitt aus einem globalen Modul für eine einheitliche
Logfilestruktur... nur ein Beispiel...
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
sysopen(STDOUT,$logfile,O_WRONLY | O_APPEND | O_CREAT) or die $!;
sysopen(STDERR,$global,O_WRONLY | O_APPEND | O_CREAT) or die $!;

# WARNINGS können auch in eine andere, separate Logdatei
# weggeschrieben werden... das bevorzuge ich zum Beispiel.
sysopen(WARN,"$warns",O_WRONLY | O_APPEND | O_CREAT) or die $!;

$SIG{_ _WARN_ _} = \&warnHandler;
$SIG{_ _DIE_ _}  = \&dieHandler;

sub warnHandler {
   print WARN getTime(1), @_;
}

sub dieHandler {
   print STDOUT getTime(1), @_;
   # hier gibt es zwei print's, weil bei mir eine Meldung in eine
   # globale überwachte error-Datei geschrieben wird...
   # die andere ist für das normale Logfile
   print STDERR getTime(1), "$0 ", @_;
   exit(9);
}

sub getTime {
   my $format = shift;
   my @time   = (localtime)[reverse 0..5];
   $time[0] += 1900;
   $time[1]++;

   if (!$format) {
      foreach (@time) { $_ = "0$_" if $_ < 10; }
      return \@time;
   } elsif ($format == 1) {
      return sprintf '%04d-%02d-%02d %02d:%02d:%02d ', @time[0..5];
   } elsif ($format == 2) {
      return sprintf '%04d-%02d-%02d', @time[0..2];
   } elsif ($format == 3) {
      return sprintf '%02d-%02d-%02d', @time[3..5];
   } elsif ($format == 4) {
      return sprintf '%04d-%02d-%02d-%02d:%02d', @time[0..4];
   }
}


Nun kannst du an jeder beliebigen Stelle im Skript Meldungen
rausschreiben, mittels

Code: (dl )
1
2
print getTime(1), "Ich befinde mich gerade hier und mach dies\n";
print getTime(1), "Nun befinde ich mir gerade dort und mache das!\n";


Das ist aber sehr großzügig von dir...
Code: (dl )
1
2
3
4
    elsif(index($msg,"executeshell=") >=0){
...
        chop($cmd);
        $out = execenv($cmd);


Für solche Skripts empfehle ich den Taint-Modus, der zurecht
meckern würde.

Wenn du die Ressourcenentwicklung des Skripts verfolgen
möchtest, dann lohnt ein blick in

Code: (dl )
man 5 proc


speziell

Code: (dl )
1
2
3
/proc/<pid>/statm
# oder etwas formatierter
/proc/<pid>/status


Die Informationen kannst du bei jedem Durchlauf über den
gesamten Zeitraum dokumentieren und im Nachhinein
analysieren. Das da ein paar tausend Zeilen bei rauskommen,
ist vollkommen verständlich und normal. Zum Debuggen sollte
man nicht zu wenig dokumentieren.

Für mehr hat meine Zeit im Moment nicht ausgereicht... ich
versuche heute Abend oder morgen nochmal einen Blick
drauf zu werfen...\n\n

<!--EDIT|opi|1141910351-->
What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

View full thread Wie man am Besten einen Daemon schreibt