Suche Regex (Allgemeines zu Perl)

[thread]14055[/thread]

Suche Regex

Leser: 31

Articles: hide open all | hide show old branches

+31 replies
Gast xAmp

2009-09-23 14:49

Hi,

ich benötige einen Regex aber komme einfach nicht auf die passende Lösung. Ich habe zwar einen Workaround gefunden aber das ist nur suboptimal.
Kurz zum Problem:
Ich habe eine Variable in der sind über 13 beliebige Zeichen gespeichert. Jetzt soll mittels Regex genau 13 Zeichen ausgelesen werden, jedoch kein y. Wie schaffe ich das? Mein Workaround schaut folgendermaßen aus:

$text2 = "tldmfmyvkif4dwhbvysdrtaysdf";

$text2 =~ s/y//;
@neu = $text2 =~ /^\w{13}/ig;
print "@neu";

Jedoch sollte eigentlich das y nicht ersetzt werden, sondern einfach überlesen werden.

Hat jemand eine Idee?
- +3 replies
- pq
  
  2009-09-23 14:58
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  nimm statt \w{13}
  [^\Wy]{13}
  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
  - +2 replies
  - Gast xAmp
    
    2009-09-23 16:54
    
    Hmm leider bekomme ich auf die CMD keine Ausgabe, wenn ich deinen Regex verwende. Das Problem hatte ich schon leider öfters bei dieser Aufgabe. :-/
    - pq
      
      2009-09-23 17:00
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      es kommen ja auch keine 13 buchstaben am stück ohne y vor. deshalb keine ausgabe. im übrigen immer -wle verwenden, da hast du dann auch bei jedem print gleich ein newline. und warninga halt auch.
      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
- bianca
  
  2009-09-23 14:59
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Wie wäre das hier?
  
  Code: (dl )
  
  1 2 3
  
  my $text2 = "tldmfmyvkif4dwhbvysdrtaysdf"; $text2 =~ s/y//i; print substr ($text2,0,13);
  
  10 print "Hallo"
  20 goto 10
- +6 replies
- Linuxer
  
  2009-09-23 15:04
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Lösung ohne Regex:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $t = "tldmfmyvkif4dwhbvysdrtaysdf"; my @neu = ( grep { $_ ne "y" } split //, $t )[0..12]; print "@neu"; __END__ t l d m f m v k i f 4 d w
  
  edit: PS: ist das wirklich eine Perl6-Spezifische Frage? Ansonsten würd ich eine Verschiebung nach Perl-Allgemein vorschlagen.
  Last edited: 2009-09-23 15:06:51 +0200 (CEST)
  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!
  - +5 replies
  - Gast LanXoff
    
    2009-09-23 15:14
    
    hmm ... das liefert nur den ersten match statt aller, oder?
    - +3 replies
    - Linuxer
      
      2009-09-23 15:26
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Es splittet den String in Zeichen, greppt aus der Ergebnisliste alle nicht-y-Zeichen raus und aus der verbleibenden Liste werden dann die ersten 13 Elemente verwendet.
      
      Deine Nachfrage kann ich nicht so ganz nachvollziehen...
      
      Was mir noch auffällt:
      Eine Erweiterung könnte sein, dass man auf Y und y kontrolliert:
      
      Code (perl): (dl )
      
      my @neu = ( grep { lc($_) ne "y" } split //, $t )[0..12];
      
      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
      - Gast LanXoff
        
        2009-09-23 15:33
        
        sein Beispielcode liefert ein einelementiges array mit dem match, du lieferst ein array mit den einzelzeichen... müsste man also noch joinen.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        DB<35> use Data::Dumper DB<36> $text2 = "tldmfmyvkif4dwhbvysdrtaysdf"; DB<37> DB<37> $text2 =~ s/y//; DB<38> @neu = $text2 =~ /^\w{13}/ig; DB<39> print "@neu"; tldmfmvkif4dw DB<40> print Dumper \@neu $VAR1 = [ 'tldmfmvkif4dw' ];
        
        sowas wie @neu macht für mich eigentlich nur sinn wenn man alle zeichenfolgen in 13er Intervalllen möchte...
        
        .,.. hab aber keinen Bock rumzuraten was der OP nun wirklich meint...
        
        Linuxer
        
        2009-09-23 15:38
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Guest LanXoff
        sein Beispielcode liefert ein einelementiges array mit dem match, du lieferst ein array mit den einzelzeichen... müsste man also noch joinen.
        
        Mit dem Satz versteh ich was Du meintest, OK. Hab ich - ehrlich gesagt - überlesen ;o))
        
        Quote
        .,.. hab aber keinen Bock rumzuraten was der OP nun wirklich meint...
        
        Tja, raten wird leider Mode. Wenn daher meine Antworten nicht 100% stimmig sind, dann enthalten sie eben Knobeleien für den Fragesteller, um sich das auf seinen Anwendungsfall umzusetzen ;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!
    - Gast LanXoff
      
      2009-09-23 15:27
      
      ok vergiss es , wegen ^ soll's wohl nur einen match geben, wieso der einem array zugewiesen werden soll weiß nur der OP ...(?)
- Gast LanXoff
  
  2009-09-23 15:11
  wenns überlesen werden soll gibts prinzipiell nur deine Lösung allerdings au ne temporäre variable angewendet, so bleibt $text2 unverändert.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  DB<10> ($text3=$text2)=~s/y//g #GLOBALLY!!! DB<11> p $text2,"\n",$text3 tldmfmyvkif4dwhbvysdrtaysdf tldmfmvkif4dwhbvsdrtasdf
- +2 replies
- pq
  
  2009-09-23 15:16
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  wie linuxer vermutet, gehört das bestimmt ins perl5-forum.
  
  Move from Raku / Perl 6 to Allgemeines zu Perl
  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
  - Gast xAmp
    
    2009-09-23 16:55
    
    Oh sorry, ist natürlich kein Perl 6 spezifisches Thema.
- +12 replies
- Gast LanXoff
  
  2009-09-23 15:43
  Guest xAmp
  Hat jemand eine Idee?
  
  ja, noch eine 8)
  
  Code (perl): (dl )
  
  $neu= do { my $_=$text2; s/y//; /^\w{13}/; $&}
  
  vermutlich ist folgendes auf lange sicht performanter:
  
  Code (perl): (dl )
  
  $neu= do { my $_=$text2; s/y//; /^(\w{13})/; $1}
  - +11 replies
  - Gast LanXoff
    
    2009-09-23 16:19
    let's golf 8)
    
    Code (perl): (dl )
    
    ($neu)= do { my $_=$text2; s/y//; /^(\w{13})/}
    
    oderrr
    
    Code (perl): (dl )
    
    ($neu)= map {s/y//; /^\w{13}/} ($text2)
    - +10 replies
    - Gast xAmp
      
      2009-09-23 16:56
      
      Okay aber mit einem "einfachen" Regex ist das nicht zu lösen? Und eine Lösung ohne s/// gibt es auch nicht?
      - +8 replies
      - Linuxer
        
        2009-09-23 17:01
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        ohne groß weiterzuknobeln: Ich bezweifel, dass es einen "einfachen" Regex dafür gibt. Anstatt mit s/// kannst Du natürlich auch mit tr///d die y entfernen ;o)
        
        Code (perl): (dl )
        
        ( $neu ) = do { local $_ = $text2; tr/yY//d; /^(\w{13})/ };
        
        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!
        
        +6 replies
        
        betterworld
        
        2009-09-23 17:10
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        Oder so:
        
        Code (perl): (dl )
        
        my $neu = join '', $text2 =~ m/[^y]/gi;
        
        Man muss natürlich sagen, dass dies alle Ypsilons ignoriert, während s/y//i nur ein einziges wegschmeißt, aber tr/Yy//d ignoriert auch alle.
        
        edit: Oops, sowas hat LanX oben ja auch vorgeschlagen. Naja, aber durch ein einziges m// wird es halt auch nicht gehen, da dies nur zusammenhängende Substrings extrahieren kann.
        Last edited: 2009-09-23 17:14:18 +0200 (CEST)
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        +5 replies
        
        LanX-
        
        2009-09-23 17:21
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        stimmt das g hatte ich aber noch in meiner ersten Lösung, aber cut and paste sind der Feind...
        
        bei linuxers ~~transpose~~ transliterate klappts aber!
        
        witzig bei "perldoc -f y" bekomme ich einen Pod error
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        y/// The transliteration operator. Same as "tr///". See perlop. POD ERRORS Hey! The above document had some coding errors, which are explained below: Around line 7: =back doesn’t take any parameters, but you said =back =back
        
        UPDATE: http://perlmonks.org/?node_id=797001
        Last edited: 2009-09-23 18:45:12 +0200 (CEST)
        me and my writeups
        
        +4 replies
        
        betterworld
        
        2009-09-23 17:35
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        2009-09-23T15:21:38 LanX-
        bei linuxers transpose klappts aber!
        
        Hab ich nicht bestritten. Der Unterschied, den ich ansprach, macht sich nicht bemerkbar, weil in den ersten 13 Zeichen hier nur ein einziges y vorkommt.
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        +3 replies
        
        LanX-
        
        2009-09-23 17:39
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        2009-09-23T15:35:14 betterworld
        2009-09-23T15:21:38 LanX-
        bei linuxers transpose klappts aber!
        
        Hab ich nicht bestritten. Der Unterschied, den ich ansprach, macht sich nicht bemerkbar, weil in den ersten 13 Zeichen hier nur ein einziges y vorkommt.
        
        ich kann dir nicht folgen...(?)
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        DB<1> $x="xy"x10 DB<2> $x=~y/y//d DB<3> p $x xxxxxxxxxx
        
        me and my writeups
        
        +2 replies
        
        betterworld
        
        2009-09-23 21:45
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        2009-09-23T15:39:09 LanX-
        ich kann dir nicht folgen...(?)
        
        Ich dir auch nicht.
        
        Zunächst weiß ich nicht, wass du mit "klappts aber" meinst. Das "aber" impliziert, dass Du irgend einem Statement von mir widersprichst, ich weiß aber nicht, welchem.
        
        Was ich weiter oben ansprach, war der Unterschied zwischen tr/yY//d und (aus dem OP) s/y//i ohne /g, der ja unbestreitbar ist, dass das erstere alle y rauswirft und das zweite nur eines.
        
        edit: "i" eingefügt
        Last edited: 2009-09-23 22:23:00 +0200 (CEST)
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        Gast LanXoff
        
        2009-09-23 22:12
        
        Hi
        
        Oh ja ... danke ... ja ich kann dir jetzt folgen!
        
        Danke! 8)
        
        (Wenn der OP seine Ziel nicht ausformulieren kann und widersprüchlichen Beispielcode beifügt sind Missverständnisse vorprogrammiert. Das jetzt weiter auszuwalzen wäre Selbstbeschäftigung und Verschwendung von Bandbreite)
        
        Zumindest sind in diesme Thread ein paar nette Pattern aufgezählt worden bei Gelegenheit muss ich unbedingt mal checken wie preformant die Mapplösung mit 1-elementigen Listen ist...
        
        ... die ist so schön orthogonal!
        
        Gast xAmp
        
        2009-09-23 17:10
        
        *hehe* okay danke! :)
      - LanX-
        
        2009-09-23 17:12
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        man kann es bestimmt mit "einem" RegEx lösen, aber "einfach" wird der bestimmt auch nicht! 8)
        
        D.h. wenn wir denn richtig erraten was du haben möchtest...
        
        Falls ja ist "Bianca"s Lösung mit dem substring sogar lesbarer
        me and my writeups
- +5 replies
- topeg
  
  2009-09-23 17:43
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  zwei Lösungen habe ich auch noch:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $text2 = "tldmfmyvkif4dwhbvysdrtaysdf"; my $out=join('', ($text2=~/([^y])/gc)[0..12]); print "$out\n";
  
  oder
  
  Code (perl): (dl )
  
  1 2 3
  
  my $text2 = "tldmfmyvkif4dwhbvysdrtaysdf"; (my $out=$text2) =~s/^((?:y*.){13}).+$/$_=$1;tr!y!!d;$_/e; print "$out\n";
  
  Das Problem ist einfach, dass man mit RegExp nicht filtern kann, sondern nur suchen und ersetzen. Da braucht man immer zwei Schritte.
  - +4 replies
  - LanX-
    
    2009-09-24 14:08
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    2009-09-23T15:43:11 topeg
    zwei Lösungen habe ich auch noch:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $text2 = "tldmfmyvkif4dwhbvysdrtaysdf"; my $out=join('', ($text2=~/([^y])/gc)[0..12]); print "$out\n";
    
    Nette Lösung allerdings ist der c-Modifier eigentlich unnötig... (es sei denn man testet öfter in der shell ;)
    
    Leider optimiert perl die Regex nicht dahingehend dass sie nach 13 matches aufgibt, die komplette Matchliste bis zum Ende würde erzeugt und der Rest wieder weggeschmissen.
    
    zwei Lösungen habe ich auch noch, gefragt 13 Ziffern.
    
    Code (perl): (dl )
    
    1 2 3 4
    
    DB<1> $t="12345Y"x10 DB<2> $a=""; $a.=$& while $t=~/\d/g and length($a)<13; print $a 1234512345123
    
    (vorsicht pos($t) steht jetzt hinterm letzten match!)
    
    und straight forward
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    DB<2> $re='(\d)\D*'x13 DB<3> $t="12345Y"x10 DB<4> print (join "", $t=~/$re/) 1234512345123
    
    Last edited: 2009-09-24 14:13:04 +0200 (CEST)
    me and my writeups
    - +3 replies
    - LanX-
      
      2009-09-26 01:24
      
      User since
      2008-07-15
      1000 Artikel
      BenutzerIn
      
      2009-09-24T12:08:11 LanX-
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      DB<2> $re='(\d)\D*'x13 DB<3> $t="12345Y"x10 DB<4> print (join "", $t=~/$re/) 1234512345123
      
      und nun als Einzeiler...
      
      Code (perl): (dl )
      
      1 2 3 4
      
      DB<1> $t="12345Y"x10 DB<2> print ( join "", $t=~/${\ ( '(\d)\D*'x13 ) }/ ) 1234512345123
      
      Grüße
      Golfing Rolfi 8)
      Last edited: 2009-09-26 01:25:55 +0200 (CEST)
      me and my writeups
      - +2 replies
      - topeg
        
        2009-09-26 02:47
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Mit Inlinecode hast du mich auf eine Idee gebracht:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $t='12345Y'x10; $s=''; $t=~m!(?:(\d(?{$s.=$1}))\D*){13}!; print "$s\n";
        
        Edit: Falschen Modifikator entfernt
        Last edited: 2009-09-26 02:54:45 +0200 (CEST)
        
        LanX-
        
        2009-09-26 17:59
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        hab auch schon dran gedacht, und auch mit (??{...}) rumexperimentiert.
        
        Übrigens, so
        
        Code (perl): (dl )
        
        $t=~m!(?:(\d)\D*(?{$s.=$1})){13}!;
        
        funktioniert dein code auch richtig xD
        
        Tip: $1 nicht zuweisen solange es noch leer ist!
        Last edited: 2009-09-26 18:15:45 +0200 (CEST)
        me and my writeups

View all threads created 2009-09-23 14:49.