Aufgefüllte Strings vergleichen (Allgemeines zu Perl)

[thread]14332[/thread]

Aufgefüllte Strings vergleichen

Leser: 21

Articles: hide open all | hide show old branches

+17 replies
bianca

2009-12-03 13:38

User since
2009-09-13
7016 Artikel
BenutzerIn

Wie würdet Ihr am einfachsten zwei Scalare daraufhin überprüfen, ob lediglich rechts mit großem X aufgefüllt wurde?

Beispiel:
Es gilt festzustellen, ob der Unterschied zwischen
ABCDEFGH
ABCDEFGHXXX
lediglich darin besteht, dass der zweite rechts dreimal X hat.
10 print "Hallo"
20 goto 10
- +13 replies
- renee
  
  2009-12-03 13:45
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4
  
  my $var1 = 'ABCDEFG'; my $var2 = 'ABCDEFGXXXXXX'; print "gueltig\n" if $var2 =~ /^${var1}X*$/;
  
  Edit: Wenn es nur bei "genau" 3 X gültig sein soll, dann kannst Du es auch so machen:
  
  Code (perl): (dl )
  
  print "gueltig\n" if $var2 eq $var1 . 'XXX';
  
  Last edited: 2009-12-03 13:46:31 +0100 (CET)
  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
  - leo11
    
    2009-12-03 13:53
    User since
    2008-08-14
    250 Artikel
    BenutzerIn
    
    Ihr seit immer so verdammt schnell mit den Antworten.
    Mein Ansatz war der folgende:
    
    Code (perl): (dl )
    
    perl -w -e '$a="abcdXXX"; $b="abcd"; $c = sub{$_[0] =~ s/X+$//g}; $a->$c; $b->$c; print "yes" if ($a eq $b)'
    
    Find renees Lösung aber besser.
    - betterworld
      
      2009-12-03 14:36
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      2009-12-03T12:53:44 leo11
      Ihr seit immer so verdammt schnell mit den Antworten.
      Mein Ansatz war der folgende:
      
      Code (perl): (dl )
      
      perl -w -e '$a="abcdXXX"; $b="abcd"; $c = sub{$_[0] =~ s/X+$//g}; $a->$c; $b->$c; print "yes" if ($a eq $b)'
      
      Find renees Lösung aber besser.
      
      Ich wuerde das vielleicht auch ohne eine Subroutine schreiben. Die mehrfache Ersetzung kann man ja auch in einer Schleife machen:
      
      Code (perl): (dl )
      
      1 2
      
      s/X+\z// for $a, $b; print $a eq $b;
      
      Lieblingsmodule: IPC::System::Simple, Path::Class
    - Linuxer
      
      2009-12-03 14:42
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Nur als ergänzender Hinweis:
      
      Die präsentierte Lösung verändert die Inhalte der Skalare; d.h. man sollte den Vergleich mit Kopien der originalen Daten machen, wenn man sie später noch mal braucht.
      
      Code: (dl )
      
      perl -wle '$a="abcdXXX"; $b="abcd"; $c = sub{$_[0] =~ s/X+$//g}; $a->$c; $b->$c; print "yes" if ($a eq $b); print "$a $b"; '
      
      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!
  - +4 replies
  - bianca
    
    2009-12-03 13:54
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Cool, danke.
    Die Syntax ${var1} kannte ich nicht.
    Was genau tut das?
    
    Edit: Anzahl X ist variabel, daher suchte ich etwas mit Regex.
    Last edited: 2009-12-03 13:57:04 +0100 (CET)
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - leo11
      
      2009-12-03 13:56
      
      User since
      2008-08-14
      250 Artikel
      BenutzerIn
      
      2009-12-03T12:54:53 bianca
      Cool, danke.
      Die Syntax ${var1} kannte ich nicht.
      Was genau tut das?
      
      Ohne die geschweiften Klammern ist nicht klar, wo die Variable endet.
      - +2 replies
      - bianca
        
        2009-12-03 13:57
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-12-03T12:56:55 leo11
        Ohne die geschweiften Klammern ist nicht klar, wo die Variable endet.
        
        Das ist alles? Quasi nur eine Notationshilfe?
        10 print "Hallo"
        20 goto 10
        
        Taulmarill
        
        2009-12-03 14:05
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        2009-12-03T12:57:37 bianca
        2009-12-03T12:56:55 leo11
        Ohne die geschweiften Klammern ist nicht klar, wo die Variable endet.
        
        Das ist alles? Quasi nur eine Notationshilfe?
        
        Ganz genau. Kannst du auch in doubble-quoted strings benutzen.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +2 replies
  - betterworld
    
    2009-12-03 13:57
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    2009-12-03T12:45:05 renee
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $var1 = 'ABCDEFG'; my $var2 = 'ABCDEFGXXXXXX'; print "gueltig\n" if $var2 =~ /^${var1}X*$/;
    
    Sieht zwar nicht mehr so schoen aus, aber ich wuerd das ja so schreiben:
    
    Code (perl): (dl )
    
    $var2 =~ /^\Q${var1}\EX*\z/;
    
    \Q vermeidet Behandlung von Sonderzeichen in der Variable, \z matcht wirklich nur am String-Ende (ungeachtet von Newlines)
    
    $subject =~ s/Scalare/Aufgefüllte Strings/
    Last edited: 2009-12-03 14:00:00 +0100 (CET)
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - bianca
      
      2009-12-03 14:00
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2009-12-03T12:57:21 betterworld
      Sieht zwar nicht mehr so schoen aus, aber ich wuerd das ja so schreiben:
      
      Code (perl): (dl )
      
      $var2 =~ /^\Q${var1}\EX*\z/;
      
      \Q vermeidet Behandlung von Sonderzeichen in der Variable, \z matcht wirklich nur am String-Ende (ungeachtet von Newlines)
      
      Sonderzeichen können hier ausgeschlossen werden und Newlines gibts auch keine. Trotzdem danke
      10 print "Hallo"
      20 goto 10
  - +3 replies
  - bianca
    
    2009-12-03 14:29
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2009-12-03T12:45:05 renee
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $var1 = 'ABCDEFG'; my $var2 = 'ABCDEFGXXXXXX'; print "gueltig\n" if $var2 =~ /^${var1}X*$/;
    
    Hierzu eine Frage: Kann man das auch so machen, dass es egal ist, in welcher der beiden Variablen mit X aufgefüllt wurde?
    Sodass es "gueltig" bringt, egal ob
    
    Code (perl): (dl )
    
    1 2
    
    my $var1 = 'ABCDEFG'; my $var2 = 'ABCDEFGXXXXXX';
    
    oder
    
    Code (perl): (dl )
    
    1 2
    
    my $var1 = 'ABCDEFGXXXXXX'; my $var2 = 'ABCDEFG';
    
    Oder muss ich dann zwei Abfragen dafür machen?
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - betterworld
      
      2009-12-03 14:37
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      2009-12-03T13:29:22 bianca
      Hierzu eine Frage: Kann man das auch so machen, dass es egal ist, in welcher der beiden Variablen mit X aufgefüllt wurde?
      
      Bei der Loesung von Leo ist es egal, ob die eine oder andere oder beide Variablen mit X aufgefuellt worden sind.
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - bianca
        
        2009-12-03 15:14
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-12-03T13:37:13 betterworld
        2009-12-03T13:29:22 bianca
        Hierzu eine Frage: Kann man das auch so machen, dass es egal ist, in welcher der beiden Variablen mit X aufgefüllt wurde?
        
        Bei der Loesung von Leo ist es egal, ob die eine oder andere oder beide Variablen mit X aufgefuellt worden sind.
        
        Ok, dann mach ich es aber trotzdem nach renee mit zwei Vergleichen, weil ich die Variablen noch brauche und Veränderungen daran nicht haben möchte.
        Danke
        10 print "Hallo"
        20 goto 10
- +3 replies
- bianca
  
  2009-12-03 14:02
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  @Mod: Warum wurde der Titel geändert?
  Ist $val = 'ABCDEFG' kein Scalar?
  10 print "Hallo"
  20 goto 10
  - betterworld
    
    2009-12-03 14:04
    
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    2009-12-03T13:02:12 bianca
    @Mod: Warum wurde der Titel geändert?
    Ist $val = 'ABCDEFG' kein Scalar?
    
    Ist aussagekräftiger.
    Lieblingsmodule: IPC::System::Simple, Path::Class
  - pq
    
    2009-12-03 14:05
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    doch, aber ein skalar könnte auch eine referenz sein. my $foo = \@array; du willst aber im speziellen strings vergleichen.
    
    den titel hab ich aber nicht geändert.
    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

View all threads created 2009-12-03 13:38.