perldoc für alte Versionen bzw regex Frage (Allgemeines zu Perl)

[thread]16414[/thread]

perldoc für alte Versionen bzw regex Frage

Tags: perl5 regex Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+5 replies
torsten

2011-06-14 16:57

User since
2010-08-16
45 Artikel
BenutzerIn

Hallo,

finde ich irgendwo im Internet perldoc für 5.8.8?

Hintergrund ist die Frage, kann ich (?{CODE}) als condition in (?(condition)yes-pattern|no-pattern) in 5.8.8 schon benutzen?

Danke
- +4 replies
- pq
  
  2011-06-14 17:00
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  die perlversionen sind alle auf CPAN:
  http://search.cpan.org/~nwclark/perl-5.8.8/pod/per...
  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
  - torsten
    
    2011-06-14 20:04
    User since
    2010-08-16
    45 Artikel
    BenutzerIn
    
    Danke.
    
    Zur Info, es geht. Wobei zu beachten ist, dass CODE keine my Variablen deklarieren darf unter Perl 5.8.8. Sonst segfault.
    
    Hier ist mein Problem: Finde alle Wörter, die zu mehr als 50% aus Ziffern bestehen,
    wobei "Wort" als Folge von Nicht-Space zu verstehen ist.
    
    Und die Lösung:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    sub md { my $n=$_[0]=~tr!0-9!!/length $_[0]; warn "^N: $_[0], n=$n\n"; $n; } print $1 while $ARGV[0]=~/ (?:^|(?<=\s)) # Wortgrenze (\S+(?=\s|$)) # das Wort als $1 inkl. Begrenzung (?(?{md($^N)<=0.5}) # die Bedingung (negiert) \A # schlägt an dieser Stelle immer fehl ) /gx
    
    Durch die Angabe der Wortbegrenzer wird erreicht, dass md() pro Wort nur einmal aufgerufen wird und nicht n-fach für jeden Substring.
    
    In neueren Perls sollte man statt \A vielleicht (*FAIL) benutzen, der besseren Lesbarkeit wegen.
    - Gast wer
      
      2011-06-14 21:02
      
      Warum nicht so?
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      while($ARGV[0]=~/(\S+)/gcs) { my $n=$1; print $1 if($n=~tr!0-9!!/length($1) > 0.5); }
      
      Last edited: 2011-06-14 21:04:09 +0200 (CEST)
  - renee
    
    2011-06-15 07:43
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Auf http://perldoc.perl.org/ kann man auch zwischen den verschiedenen Perl-Versionen wählen. Da gibt es ein DropDown oben links...
    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/

View all threads created 2011-06-14 16:57.