Suche nach mehrfachen Namen in einer TXT Datei (Allgemeines zu Perl)

[thread]15558[/thread]

Suche nach mehrfachen Namen in einer TXT Datei

Leser: 23

Articles: hide open all | hide show old branches

+5 replies
Rambo

2010-10-21 16:45
User since
2003-08-14
803 Artikel
BenutzerIn
Hallo zusammen,

ich benötige mal wieder eure Hilfe.
Ich muss eine Datei durchsuchen und möchte als Resultat eine Liste bekommen wie häufig ein Name, den ich nicht kenne, mehrfach vokommt.
Der suchstring solle immer mit 1. anfagen und dann nach mehrfachen Namen suchen.

Beispiel:
Code: (dl )

1 2 3 4 5 6 7

1.Max 1.Hans 1.Fritz 1.Hans 1.Werner 1.Max 1.Hans
Als Ergebnis sollte dann rauskommen das es Max 2 mal gibt und Hans 3x
Welche Namen darin vorkommen weiss ich natürlich nicht und die Datei wird so um die 10 MB gross sein so das ich es nicht zwingend manuell durchsuchen möchte.

Wie fange ich also am besten an?
Habt ihr eine Idee?

Besten Dank im voraus

Remo
- +4 replies
- renee
  
  2010-10-21 16:58
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  use Data::Dumper; my %names; open my $fh, '<', $filename or die $!; while( my $line = <$fh> ) { chomp $line; my ($name) = $line =~ m! \A 1\. (.*) \z!x; next unless $name; $names{$name}++; } close $fh; print Dumper \%names;
  
  Edit: x-Modifier und ; eingebaut. Danke @FIFO
  Last edited: 2010-10-21 17:40:19 +0200 (CEST)
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +3 replies
  - FIFO
    
    2010-10-21 17:07
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    2010-10-21T14:58:12 renee
    
    Code (perl): (dl )
    
    1 2
    
    use Data::Dumper; my ($name) = $line =~ m! \A 1\. (.*) \z!
    
    Bei den Beispieldaten des OP ist kein whitespace zwischen "1." und Namen, vielleicht für alle Fälle:
    
    Code (perl): (dl )
    
    my ($name) = $line =~ m! \A 1\. \s* (.*) \z!x;
    
    ... und mit Semikolon ;-)
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - +2 replies
    - renee
      
      2010-10-21 17:39
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ja, danke. Den x-Modifier habe ich irgendwie vergessen. Wohl zu schnell getippt. Danke für die Korrektur...
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - Rambo
        
        2010-10-22 10:27
        
        User since
        2003-08-14
        803 Artikel
        BenutzerIn
        
        hallo zusammen,
        
        ganz herzlichen Dank.
        Musst nur noch eine kleine Änderung machen und schon lief es.
        Danke euch vielmals.
        
        Das hilf mir ungemein.
        
        Beste Grüsse
        
        Remo

View all threads created 2010-10-21 16:45.