Opened by Gast at 2008-01-21 14:54
Moin,
danke es funzt, jetzt versuche ich einen bestimmten Ordner zu öffnen und dort die Dateien, die mit Seriennummer anfangen, zu bearbeiten mit dem Prog was du geschrieben hast:
hier mein Ansatz, der aber nicht klappt:
Kannste mir noch einmal auf die Sprüge helfen?!
Danke im VOraus!
danke es funzt, jetzt versuche ich einen bestimmten Ordner zu öffnen und dort die Dateien, die mit Seriennummer anfangen, zu bearbeiten mit dem Prog was du geschrieben hast:
hier mein Ansatz, der aber nicht klappt:
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
opendir(DIR,"test2");
while($datei = readdir(DIR))
{
open($IN,'<',"test2/$datei");
$file = $IN;
@entries;
{
my $measure;
local $/ = "\nDUT No\n";
open my $fh, '<', $file or die $!;
while( my $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;
}
}
}
print $_,"\n" for @entries;
close OUTPUT;
}
Kannste mir noch einmal auf die Sprüge helfen?!
Danke im VOraus!