Opened by Gast at 2008-01-21 14:54
Hi,
danke nochmal, aber ich hab jetzt folgendes Problem und zwar bei einer Datei, die sich im Ordner test2 befindet, klappt das löschen, was man nich braucht, aber wenn ich mehrere Dateien im Ordner habe, dann nimmt er von der ersten Datei den Inhalt und kopiert in alle Dateien, die im Ordner liegen, d.h. überall steht das gleiche und unten wird dann nochmals der Absatz ergänzt mit den DOT No
Kannst du den Fehler auf anhieb sehen?
Hier ist nochmal dein Code von mir ein bisschen geändert!
danke nochmal, aber ich hab jetzt folgendes Problem und zwar bei einer Datei, die sich im Ordner test2 befindet, klappt das löschen, was man nich braucht, aber wenn ich mehrere Dateien im Ordner habe, dann nimmt er von der ersten Datei den Inhalt und kopiert in alle Dateien, die im Ordner liegen, d.h. überall steht das gleiche und unten wird dann nochmals der Absatz ergänzt mit den DOT No
Kannst du den Fehler auf anhieb sehen?
Hier ist nochmal dein Code von mir ein bisschen geändert!
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
my $dir = 'test2';
opendir(DIR,$dir) or die $!;
while($datei = readdir(DIR))
{
$path = $dir . '/' . $datei;
#print "\n$path\n";
next unless -f $path;
@entries;
{
$measure;
local $/ = "\nDUT No\n";
open $fh, '<', $path or die $!;
while($entry = <$fh> )
{
chomp $entry;
@mms = $entry =~ /Measurement:\s*([\d.]+)/;
$measure = $mms[0] unless defined $measure;
if(grep{ $_ == $measure }@mms)
{
$entry = "DUT No\n". $entry unless $entry =~ /^DUT No/;
push @entries, $entry;
}
}
}
open OUTPUT, '>',$path;
print OUTPUT $_,"\n" for @entries;
#print $datei;
close OUTPUT;
}