Thread STDOUT und ERROUT in Datei umleiten (22 answers)
Opened by Eng1958 at 2013-11-14 12:22

guest Henri
 2015-03-27 14:08
#180417 #180417
Hallo GwenDragon, ich brauche gerade dein Hilfe, ich möchte dass die Ausgabe, das untere Programm auf ein Text-Datei umgelekt wird. kann du mir mal helfen.

Code (perl): (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
use strict;          
use warnings;        
use File::Compare;  

my %exclude;
my $file1 = 'default_sysdumpdev_150319.txt';
my $file2 = 'd100spuptl25e0_sysdumpdev.txt';
my $compare = compare('d100spuptl25e0_sysdumpdev.txt', 'default_sysdumpdev_150319.txt');


open my $file, '<', 'default_sysdumpdev_150319.txt' or die $!; 
while (<$file>) {
  chomp;             
  $exclude{$_}++;    $file
}

open $file, '<', 'd100spuptl25e0_sysdumpdev.txt' or die $!;  
while (<$file>) {
  chomp;            
  if($compare == 1){
  print "False! the files are not equal \n";
 
  print "$_\n" unless $exclude{$_}; .

  }
  elsif($compare == 0){  
             
  print "True! the Files are equal \n";
  }
}


modedit Editiert von pq: code-tag hinzugefügt
Last edited: 2015-03-27 14:17:45 +0100 (CET)

View full thread STDOUT und ERROUT in Datei umleiten