Opened by Gast at 2005-07-22 13:38
Hi!
Ich wollte alle Dateien eines Ordners einlesen, um danach diese Dateien nach einem bestimmten String zu durchsuchen. Alle Dateien, die diesen String nicht beinhalten, sollen ausgeben werden. Als Perl Anfänger, hab ich diese Geschichte,sehr umständlich gelöst. Würde mich mal interessieren, wieviele Zeilen es sind,wenn man es perfekt macht !?
Hier mein Code:
Und nun haut rein :-)
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1122031449-->
Ich wollte alle Dateien eines Ordners einlesen, um danach diese Dateien nach einem bestimmten String zu durchsuchen. Alle Dateien, die diesen String nicht beinhalten, sollen ausgeben werden. Als Perl Anfänger, hab ich diese Geschichte,sehr umständlich gelöst. Würde mich mal interessieren, wieviele Zeilen es sind,wenn man es perfekt macht !?
Hier mein Code:
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
31
my $dir = 'c:\Ordner;
opendir(DH, $dir) or die "Oeffnen des Ordners fehlgeschlagen";
@dateien = readdir(DH);
closedir(DH);
foreach my $datei (@dateien)
{
open (Inhalt,"<","$datei");
my $Status = 0;
foreach (<Inhalt>)
{
if ($_ !~ /logging/ )
{
}
else
{
$Status = 1;
}
}
if ($Status == 0)
{
print $datei."\n";
}
close (Inhalt);
}
Und nun haut rein :-)
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1122031449-->