Prüfen, ob alle Dateien existieren (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-05-08 15:45:03
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]19714[/thread]

submit to reddit

Prüfen, ob alle Dateien existieren

Tags: perl5 exist Dateien list Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+2 replies
Shaq17

2015-07-06 13:11
User since
2015-05-12
7 Artikel
BenutzerIn
Hallo zusammen,

ich habe folgendes Problem.
Ich hab in Perl eine Liste, in der ich verschiedene IP's gespeichert habe. Für jede dieser IP gibt es eine .log Datei.

Sieht in etwa so aus:
Code (perl): (dl )

1 2

@list_UST=("192.168.17.4", "11.255.22.1", "10.256.17.13"); # habe jetzt mal nur die ersten 3 Einträge genommen, sind insgesamt 26.
Meine Aufgabe ist es jetzt zu prüfen, ob in dem Ordner, in dem sich die logs befinden (/home/usr/test/logs), auch tatsächlich alle gelistet sind, von denen ich eine IP in der Liste angegeben habe.

Sprich in dem Fall müssten jetzt 3 Dateien existieren: zu jedem Eintrag einer.
Die Dateien sehen etwa so aus:
xyz_10.256.17.13_check.log

Falls jetzt aber nur 2 gefunden werden, dann muss logischerweise ein Fehler kommen.

Ich hoffe ich konnte es möglichst genau erklären, ansonsten sehen weiter..

Danke im Vorraus.
- GwenDragon
  
  2015-07-06 13:35
  User since
  2005-01-17
  14563 Artikel
  Admin1
  Einfach so mit einem Hash "zählen":
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my @list_UST = ( "192.168.17.4", "11.255.22.1", "10.256.17.13" ); my %found; for my $ip (@list_UST) { $found{$ip} = glob("*_${ip}_*.log"); } say "Gefunden: ", join ",", grep { $found{$_} } sort keys %found; say "Fehlend: ", join ",", grep { !$found{$_} } sort keys %found;
  
  Last edited: 2015-07-06 14:28:24 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2015-07-06 13:11.