merge strings (Allgemeines zu Perl)

[thread]13366[/thread]

merge strings

Leser: 27

Articles: hide open all | hide show old branches

+21 replies
roooot

2009-04-09 15:27
User since
2008-03-03
276 Artikel
BenutzerIn
Hi ich habe 2 Strings und möchte die so verbinden, das jedes Zeichen am Ende nur einmal darin vorkommt. Quasi:
Code (perl): (dl )

1 2 3

$string1 = 'abcdef'; $string2 = 'efghijk' $merged = 'abcdefghijk';
merged soll am Ende dabei rauskommen.

Gibts Ansätze?
Ich würde beide in Hashes umbauen und dann mithilfe von exist erst den einen und dann den anderen durchlaufen. Gehts eleganter?
Viele Grüße :)
- +4 replies
- pq
  
  2009-04-09 15:30
  User since
  2003-08-04
  12208 Artikel
  Admin1
  ungetestet:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  # my %seen = map $_ => 1, split //, $string1; my %seen = map { $_ => 1 } split //, $string1; my $merged = $string1; not $seen{$_} and $merged .= $_ for split //, $string2;
  
  voraussetzung: die zeichen kommen in $string1 jeweils nur einmal vor.
  
  edit: erste zeile korrigiert, ich sagte ja, ungetestet.
  Last edited: 2009-04-09 16:14:01 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - RPerl
    
    2009-04-09 15:58
    User since
    2006-11-26
    384 Artikel
    BenutzerIn
    
    Habs mal getestet, aber bekomme immer nur folgende ~~Fehler~~ Warnung:
    
    Quote
    Odd number of elements in hash assignment at ./test.pl line 9.
    
    Was hab ich falsch gemacht?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    #!/usr/bin/perl use strict; use warnings; my $string1 = 'abcdef'; my $string2 = 'efghijk'; my %seen = map $_ => 1, split //, $string1; my $merged = $string1; not $seen{$_} and $merged .= $_ for split //, $string2;
    
    Ich haette das wahrscheinlich genauso wie Kein Kommentar gemacht, nur beim regex ohne /g.
    Wobei deine Loesung wesentlich mehr perlish aussieht. :)
    
    EDIT: Wenn ich $string1 mit einem Buchstaben erweiter' geht es natuerlich.
    EDIT 2: Anscheinend merged das auch nicht richtig. Zumindest bei mir nicht.
    Last edited: 2009-04-09 16:06:44 +0200 (CEST)
    - +2 replies
    - pq
      
      2009-04-09 16:12
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      versteh zuerst einmal den code, dann kannst du ihn auch korrigieren.
      die fehlerhafte zeile sieht korrigiert so aus:
      
      Code (perl): (dl )
      
      my %seen = map { $_ => 1 } split //, $string1;
      
      mal wieder ein beweis, dass man doch immer die klammer-variante von map benutzen sollte.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - RPerl
        
        2009-04-09 16:22
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        Quote
        edit: erste zeile korrigiert, ich sagte ja, ungetestet.
        
        Eben deswegen hab ichs ja mal ausprobiert.
        Fehler sind menschlich. :)
        
        Quote
        versteh zuerst einmal den code
        
        Das Prinzip hab ich verstanden.
- +9 replies
- neniro
  
  2009-04-09 15:33
  User since
  2008-12-14
  79 Artikel
  BenutzerIn
  2009-04-09T13:27:45 roooot
  Gibts Ansätze?
  
  per Regex:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $s1 = 'abcdef'; my $s2 = 'efghijk'; my $m = $s1 . $s2; $m =~ s/(\w+)(\1)/$1/; print $m;
  
  -- yet another amateur perl hacker
  - +2 replies
  - roooot
    
    2009-04-09 15:48
    
    User since
    2008-03-03
    276 Artikel
    BenutzerIn
    
    Das ist eigentlich bestechend einfach und gefällt mir sehr gut ;)
    Viele Grüße :)
    - pq
      
      2009-04-09 16:50
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wenn die buchstaben so in der reihenfolge vorkommen, ist das natürlich ausreichend. wenn im zweiten string ein einzelnes e ohne f vorkommt, klappt das schon wieder nicht.
      gib das nächste mal bitte ein paar beispiele mehr an und eine genauere spezifikation.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - leo11
    
    2009-04-09 16:46
    
    User since
    2008-08-14
    250 Artikel
    BenutzerIn
    
    Wie funktioniert hier das \1 ?
    - neniro
      
      2009-04-09 17:10
      
      User since
      2008-12-14
      79 Artikel
      BenutzerIn
      
      2009-04-09T14:46:52 leo11
      Wie funktioniert hier das \1 ?
      
      \1 verweist auf den Inhalt der ersten Klammer. Die Regex matcht also auf ein, oder mehrere, alphanumerische Zeichen, die sich direkt wiederholen.
      -- yet another amateur perl hacker
    - Linuxer
      
      2009-04-09 17:13
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      So wie sich im Ersetzungsteil das $1 auf die erste runde Klammer bezieht, tut das auch \1 im Regex selbst.
      
      siehe perldoc perlre ;)
      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!
  - +2 replies
  - Linuxer
    
    2009-04-09 17:14
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    btw. die zweite Klammerung (um die \1) ist nicht notwendig ;o)
    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!
    - neniro
      
      2009-04-09 17:23
      
      User since
      2008-12-14
      79 Artikel
      BenutzerIn
      
      2009-04-09T15:14:09 Linuxer
      btw. die zweite Klammerung (um die \1) ist nicht notwendig ;o)
      
      die sollte eigentlich nur dem clustern dienen, also: (?:\1)
      -- yet another amateur perl hacker
  - LanX-
    
    2009-04-16 15:34
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    Hi Ronnie
    
    wie gestern auf der DA PM angesprochen wäre sowas sicherer (ungetestet)
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    my $s1 = 'abcdef'; my $s2 = 'efghijk'; my $m = $s1 . "\0" . $s2; $m =~ s/(\w+)\0(\1)/$1/; print $m;
    
    ansonsten schöne Lösung! 8 )
    Last edited: 2009-04-16 15:38:32 +0200 (CEST)
    me and my writeups
- +3 replies
- #Kein Kommentar
  
  2009-04-09 15:36
  User since
  2007-06-09
  575 Artikel
  HausmeisterIn
  eine möglichkeit wäre:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl use strict; use warnings; my $string1 = 'abcdef'; my $string2 = 'efghijk'; foreach my $letter (split //, $string2){ $string1 =~ s/$letter//g; } my $new_string = $string1.$string2; print "$new_string";
  
  EDIT: ach ne, es könnten ja auch in $string2 buchstaben doppelt vorkommen, deshalb ist meine lösung nicht richtig siehe post von pq
  Last edited: 2009-04-09 16:16:12 +0200 (CEST)
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
  - pq
    
    2009-04-09 15:47
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2009-04-09T13:36:32 #Kein Kommentar
    EDIT: ach ne, es könnten ja auch in $string2 buchstaben doppelt vorkommen, deshalb ist meine lösung nicht richtig
    
    wieso, war ja nicht genauer spezifiziert.
    ich gehe bei meiner lösung auch davon aus, dass die beiden einzelnen strings keine doppelten vorkommen haben.
    wen dem so ist, muss der OP das hinschreiben, wenn er ne passende lösung dazu will. bzw. vielleicht kann er sich ja aus den gegebenen lösungen seine eigene anpassen.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - roooot
    
    2009-04-09 15:49
    
    User since
    2008-03-03
    276 Artikel
    BenutzerIn
    
    Geht schon klar, jedes Zeichen kommt definitiv nur einmal vor.
    Viele Grüße :)
- +3 replies
- topeg
  
  2009-04-09 16:58
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  so sollte es auch gehen. Klappt auch mit Sequenzen wenn man das split anpasst.
  
  Code (perl): (dl )
  
  1 2
  
  my $merged=""; map{ $merged .= $_ if( $merged !~/\Q$_\E/ ) } split(//, $string1.$string2);
  - +2 replies
  - hlubenow
    
    2009-04-09 22:28
    User since
    2009-02-22
    876 Artikel
    BenutzerIn
    
    Ich bin vielleicht etwas altmodisch:
    
    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
    
    #!/usr/bin/perl use warnings; use strict; my $s1 = 'abcdef'; my $s2 = 'efghijk'; my $s = $s1 . $s2; my $a; my $i; my $m = ""; for ($i = 0; $i < length($s); $i++) { $a = substr($s, $i, 1); if ($m !~ m/\Q$a\E/) { $m .= $a; } } print "$m\n";
    
    Gruß
    Last edited: 2009-04-10 02:06:23 +0200 (CEST)
    - Gast wer
      
      2009-04-10 07:41
      
      $a bitte nicht so einfach verwenden ist eine vordefinierte Variable für sort (genauso wie $b)
      
      zudem würde ich es etwas anders schreiben:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      #!/usr/bin/perl use warnings; use strict; my $s1 = 'abcdef'; my $s2 = 'efghijk'; my $s = $s1 . $s2; my $m = ""; while(length($s) > 0){ my $z=substr($s, 0, 1, ''); if($m !~ m/\Q$z\E/){ $m .= $z: } } print "$m\n";
- Linuxer
  
  2009-04-09 22:40
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/usr/bin/perl use strict; use warnings; use List::MoreUtils qw(uniq); my $string1 = 'abcdef'; my $string2 = 'efghijk'; my $merged = join '', uniq map {split //} $string1, $string2;
  
  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!

View all threads created 2009-04-09 15:27.