Hallo liebes Board,ich habe ein Problem, ich soll in einem Ordner nach Dateien suchen, welche PD027xxx.txt heißen, das geht soweit. Nun habe ich diese gefundenen Dateien in ein Array gespeichert..
nun will ich jede einzelne Datei aus dem Array öffnen (Im array steht ja der komplette Pfad - und Dateiname) und die letzte Zeile nach "Ended" überprüfen. Mit meinem aktuellen Script überprüfe ich aber jede Zeile von jeder Datei und nicht nur die letzte. was muss ich ändern?
use strict;
use warnings;
use FileHandle;my $dir = 'D:\\BOLL\\BOLL_LOG';
my $prefix = 'PD027*';
my $suffix = 'TXT';
my @dateien = glob($dir.'\\'.$prefix.".*".$suffix);
my $i = 0;
foreach($i=0; $i<@dateien; $i++)
{
#print "Dateien ".$i." : ".$dateien[$i]."\n";
open(FH,$dateien[$i]);
while (<FH>)
{
if ($_ =~ m/Ended/)
{
print "geht\n";
}
else
{
print "geht net\n";
print "$_\n";
}
}
}
Vielen Dank schonmal :)
Datum: 20.11.2008-13:11
Dateien aus Array einzeln öffnen und letzte Zeile überprüfen
