Datei - Zeilen bearbeiten - doppelte Einträge (gelöst) (Allgemeines zu Perl)

[thread]17649[/thread]

Datei - Zeilen bearbeiten - doppelte Einträge [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
Astralkeks

2012-08-09 10:59
User since
2012-07-17
40 Artikel
BenutzerIn
Hallo,

ich habe folgendes Problem.
Eine zusammengeführte Hostsdatei weist viele unterschiedliche Einträge auf
Code: (dl )

1 2 3 4 5 6 7 8 9

x.x.x.1 host1.de x.x.x.1 host1.de x.x.x.1 host1.de x.x.x.1 host1.de host1 x.x.x.2 host2 host2.de x.x.x.2 host2 host2.de x.x.x.2 host2.de host2 x.x.x.2 host2.de x.x.x.2 host2
Im Klartext:
- störende Leerzeichen irgendwo in der Zeile
- Mal fqdn, mal shortname, mal beides und auch in verschiedenen Reihenfolgen
- doppelte Einträge

Gibt es da vielleicht etwas fertiges? Mir brummt mittlerweile der Schädel, ich denke über reguläre Ausdrücke in Verbindung mit split und hashes wird es gehen, aber ich bekomme da keinen Stand.
Die Liste ist bereits über Net::IP richtig sortiert, und die Sortierung sollte möglichst beibehalten werden. Final sollen die doppelten Einträge rausfliegen, aber ich scheitere auch schon am bearbeiten.
Last edited: 2012-08-09 11:02:36 +0200 (CEST)
- +2 replies
- Raubtier
  
  2012-08-09 11:07
  
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  
  ich hätte jetzt als ersten Schritt mehrere spaces durch genau 1 space ersetzt und dann die Datei durch sort -u gejagt...
  - Astralkeks
    
    2012-08-09 11:36
    
    User since
    2012-07-17
    40 Artikel
    BenutzerIn
    
    Schon mal sehr gut, danke! Auch wenn ich vergessen habe zu erwähnen, dass es nen Windowsserver ist. Habe über den Umweg cygwin das sort -u absetzen können, aber pratikabler wäre eine Lösung, die nur in Perl läuft.
    Ich probiere einmal den Ansatz von linuxer aus!
- +4 replies
- Linuxer
  
  2012-08-09 11:31
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Raubtier hat schon einen guten Ansatz genannt.
  
  Ich habe mich mal an einer Perl-Lösung versucht:
  
  Code (perl): (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 32
  
  #! /usr/bin/perl use strict; use warnings; my %hash; while ( my $line = <DATA> ) { my ( $ip, @names ) = map { defined $_ ? $_ : () } split /\s+/, $line; for my $name ( @names ) { $hash{$ip}->{$name} = 1; } } # Ausgabe; die sort-Anweisungen können/sollten noch verfeinert werden for my $ip ( sort keys %hash ) { print "$ip\t", join( ' ', reverse sort keys %{$hash{$ip}} ), "\n" } __DATA__ x.x.x.1 host1.de x.x.x.1 host1.de x.x.x.1 host1.de x.x.x.1 host1.de host1 x.x.x.2 host2 host2.de x.x.x.2 host2 host2.de x.x.x.2 host2.de host2 x.x.x.2 host2.de x.x.x.2 host2
  
  Resultat:
  
  Code: (dl )
  
  1 2
  
  x.x.x.1 host1.de host1 x.x.x.2 host2.de host2
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - Astralkeks
    
    2012-08-09 11:51
    
    User since
    2012-07-17
    40 Artikel
    BenutzerIn
    
    Läuft gut, danke!
    Allerdings habe ich auf ein Problem nicht aufmerksam gemacht, und zwar laufen verschiedene Adressen letztlich auf die gleiche IP.
    Also kann neben
    x.x.x.2 host2.de host2
    
    auch
    
    x.x.x.2 susespiegel.intranet.de suse
    
    vorkommen.
    Deine Lösung schreibt die verschiedenen Namen nun einfach hintereinander. Ich bin nun nicht der Experte in Sachen hosts-Datei, aber ich denke, jeder Hostname benötigt eine eigene Zeile, oder?
    - +2 replies
    - Linuxer
      
      2012-08-09 12:35
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Nein, nicht wirklich.
      
      Das Format ist eigentlich IP "Generischer Name" Alias1 Alias2 ....
      Damit können auch mehrere (verschiedene) Namen in einer Zeile sein.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - Astralkeks
        
        2012-08-09 12:51
        
        User since
        2012-07-17
        40 Artikel
        BenutzerIn
        
        Echt? Wieder was gelernt. Na dann danke ich dir!

View all threads created 2012-08-09 10:59.