Buchstabenpaare aus String mit Regex / Split (Allgemeines zu Perl)

[thread]19641[/thread]

Buchstabenpaare aus String mit Regex / Split

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+10 replies
Gast Eggi

2015-05-02 15:31

Hallo zusammen,
ich möchte einen String in verschiedene Bestandteile zerlegen und Häufigkeiten zählen.

Das zerlegen in Wörter oder Buchstaben ist bisher kein Problem, jedoch bekomme ich es nicht hin, dass ich den String in Buchstabenpaare von je 2 Buchstaben zu zerlegen.

Also der String "Hello World" soll sowohl in Einzelbuchstaben als auch in Buchstabenpaare von je 2 Buchstaben zerlegt werden und die Häufigkeit gezählt werden.

-> Ergebnis von "Hello World" sollte sein:
H -> 1
e -> 1
l -> 3
o -> 2
w -> 1
r -> 1
d -> 1

HE -> 1
EL -> 1
LL -> 1
LO -> 1
WO -> 1
OR -> 1
RL -> 1
LD -> 1

Wie kann ich mit Split (oder auch was anderem) die Buchstabenpaaare zerlegen?

Bei dem zählen der Wörter lese ich ein Dokument ein, zerlege dies mittels Split in die Wörter und fülle die Wörter in ein Hash. Somit bekomme ich ebenfalls die Anzahl der Wörter. Mein Problem hierbei ist, ich bekomme keinen Regex ausdruck hin, der mir die Buchstabenpaare entsprechend zerlegt.

Danke und viele Grüße
Last edited: 2015-05-02 15:33:48 +0200 (CEST)
- +4 replies
- lichtkind
  
  2015-05-02 16:53
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  buchstebenweise macht split
  
  Code (perl): (dl )
  
  my @buchstaben = split '', $string;
  
  die geraden paare macht
  
  Code (perl): (dl )
  
  " =~ /(..)/g
  
  und wenn das nochmal mit einem führenden buchstaben weniger machst (substr(1)) hast alle
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +3 replies
  - Gast Eggi
    
    2015-05-02 19:25
    Hey lichtkind, danke für die Antwort... aber irgenwie will das 2. nicht so klappen.
    
    Habe es auch noch einmal mit Split davor versucht, aber hat auch nicht geklappt.
    
    Code: (dl )
    
    1 2 3 4 5
    
    my @paar =~ split /(..)/g, $daten; foreach $test2 (@paar){ print $test2 ."\n"; }
    
    Kannst Du vielleicht noch einmal den Code etwas ausführlicher angeben.
    
    Danke und viele Grüße
    Last edited: 2015-05-02 19:49:56 +0200 (CEST)
    - +2 replies
    - lichtkind
      
      2015-05-02 19:52
      
      User since
      2004-03-22
      5697 Artikel
      ModeratorIn + EditorIn
      
      hab ich eigentlich mit absicht nicht gemacht weil docs lesen schon drin sein sollte und vorm =~ steht immer der string, schau mal:
      
      http://perldoc.perl.org/perlretut.html
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
      - Gast Eggi
        
        2015-05-02 20:09
        
        Hab ich mir schon fast gedacht...
        
        Danke! Der Hinweis bzw. das Doc hatte mir noch gefehlt :) Jetzt sollte es klappen!
        Last edited: 2015-05-02 20:11:48 +0200 (CEST)
- +4 replies
- charly54
  
  2015-05-02 20:44
  User since
  2015-04-24
  10 Artikel
  BenutzerIn
  Hallo Eggi,
  hier eine Lösung mit substr(), da Du auch nach anderen Möglichkeiten gefragt hast. Ich möchte aber darauf hinweisen, dass mein Code eher "oldfashioned" ist und daher wahrscheinlich mit Modern Perl nix zu tun hat.
  
  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 33 34 35
  
  #!/usr/bin/perl use strict; use warnings; my $string = "Hello World"; # Leerzeichen aus $string entfernen my @gruss = split( / /, $string); my %hash; foreach my $word (@gruss){ for (0 .. length($word)-1){ # Buchstaben in Hash ablegen $hash{ substr($word, $_, 1) }++; } } # Ausgabe der Einzel-Ergebnisse print map { "$_ => $hash{$_}\n" } sort keys %hash; print "\n"; # %hash leeren %hash = (); # Buchstabenpaare foreach my $word (@gruss){ for (0 .. length($word)-1){ my $erg = substr(uc($word), $_, 2); # beenden wenn keine Paarbildung mehr möglich ist last if( length($erg) < 2); # Buchstabenpaare ablegen $hash{ $erg }++; } } # Ausgabe Buchstabenpaar - Ergebnisse print map { "$_ => $hash{$_}\n" }sort keys %hash; print "\n";
  
  Man kann das sicher auch noch etwas verkürzen, verliert aber dann an Übersichtlichkeit.
  
  Gruß,
  charly54
  - +3 replies
  - lichtkind
    
    2015-05-02 21:09
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    #!/usr/bin/perl use v5.12; use warnings; my $string = "Hello World"; my (%buchstaben, %paare); for my $word (split( / /, uc $string)){ my @paare = $word =~ /(..)/g; push @paare, substr($word,1) =~ /(..)/g; $buchstaben{$_}++ for split '', $word; $paare{$_}++ for @paare; } # Ausgabe
    
    ist für mich einfacher verstehbar weil ich hier weniger logik steht, die ich nicht verstehen muss weil mir variablennamen sagen was passiert.
    Last edited: 2015-05-02 21:18:31 +0200 (CEST)
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
    - +2 replies
    - charly54
      
      2015-05-02 21:54
      
      User since
      2015-04-24
      10 Artikel
      BenutzerIn
      
      Hallo Lichtkind,
      leider habe ich es mir fast gedacht, dass ich mit meiner Antwort falsch verstanden werde. Sie sollte keinen Vorwurf oder gar eine Verbesserung darstellen, sondern einfach einen zusätzlichen, evtl. auch altmodischen Weg aufzeigen. Nach dem Motto: Es gibt viele Wege die zum Ergebnis führen. Bitte nicht böse sein.
      Gruß,
      charly54
      - lichtkind
        
        2015-05-03 12:12
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        ist doch alles gut, ich wollt halt nur zeigen das kompakte schreibweise nicht notwendigerweise kryptischer bedeutet.
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
- Muffi
  
  2015-05-03 07:50
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Hab grad kein Perl zur Hand aber eigentlich sollts doch mit look ahead funktionieren.
  Sowas in der Art:
  
  /(\w(?=\w))/g
  1 + 1 = 10

View all threads created 2015-05-02 15:31.