Leser: 1
|< 1 2 >| | 11 Einträge, 2 Seiten |
1
2
3
4
5
open STDIN, '/dev/null' || die "Can't open /dev/null: $!";
open (OUT,">>$logfile") || die "Can't open logfile $logfile: $!";
open (ERR,">>$errlogfile") || die "Can't open logfile $errlogfile: $!";
*STDOUT = *OUT; #redirect STDOUT
*STDERR = *ERR; #redirect STDERR
1
2
3
4
5
6
close STDOUT;
close STDERR;
open (STDOUT,">>$logfile")
or die "Can't open logfile $logfile: $!";
open (STDERR,">>$errlogfile")
or die "Can't open logfile $errlogfile: $!";
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
#Pragmas für guten Stil einbinden
open(STDOUTFAKE, ">&STDOUT");
open(STDOUT, ">stdout.txt") || die "Kann stdout.txt nicht öffnen!";
#STDOUT nach stdout.txt leiten und STDOUTFAKE an die Konsole
print "STDOUT ist nun nicht mehr die Konsole...\n";
print STDOUTFAKE "Das kommt nun auf die Konsole...\n";
#STDOUT wieder herstellen
open(STDOUT, ">&STDOUTFAKE");
print "Nun ist STDOUT wieder auf der Konsole...\n";
1
2
3
4
5
6
close STDOUT;
close STDERR;
open (STDOUT,">>$logfile")
or die "Can't open logfile $logfile: $!";
open (STDERR,">>$errlogfile")
or die "Can't open logfile $errlogfile: $!";
open STDIN, '/dev/null' || die "Can't open /dev/null: $!";
|< 1 2 >| | 11 Einträge, 2 Seiten |