regex als Eingabeseparator (Allgemeines zu Perl)

[thread]19385[/thread]

regex als Eingabeseparator

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
amos

2014-11-14 15:06

User since
2014-08-07
9 Artikel
BenutzerIn

Die Variable $/ enthält den eingestellten Eingabeseparator. Default ist \n.

Ist es irgendwie möglich anstatt der Zuweisung $/= '</endtag>'; einen regulären Ausdruck zu verwenden?

z.B. $/= '</.*>'

?
Vielen Dank
amos
- +2 replies
- pq
  
  2014-11-14 15:13
  User since
  2003-08-04
  12208 Artikel
  Admin1
  leider nein.
  perldoc perlvar:
  
  Code: (dl )
  
  1 2 3 4
  
  $/ The input record separator, newline by default. This influences [...] Remember: the value of $/ is a string, not a regex. awk has to be better for something. :-)
  
  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
  - Muffi
    
    2014-11-14 16:17
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Ich weiß auch nicht, warum das nicht mal erweitert wird.
    1 + 1 = 10
- +4 replies
- Raubtier
  
  2014-11-14 16:05
  User since
  2012-05-04
  1077 Artikel
  BenutzerIn
  Ist tatsächlich eine interessante Frage, wie man das Problem löst. Klar, alles einlesen und dann split verwenden. Aber wie?
  
  Erste Idee:
  
  Code (perl): (dl )
  
  1 2 3
  
  use Data::Dumper; $_=q(hallo</ende>blubb</foo>); print Dumper [split m#</.*?>#]
  
  Hm, das behält die Tags aber nicht.
  
  Nächste Idee: Klammern.
  
  Code (perl): (dl )
  
  print Dumper [split m#(</.*?>)#]
  
  Geht auch nicht. Jetzt sind Daten/Separator jeweils separate Elemente, die man joinen müsste.
  
  Nächste Idee: Look-behind.
  
  Code (perl): (dl )
  
  print Dumper [split m#(?<=</.*?>)#]
  
  Geht auch nicht, da es kein variabel langes look-behind gibt.
  
  Wie würdet ihr es machen?
  - +2 replies
  - Muffi
    
    2014-11-14 16:14
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Das könnt tun.
    
    Code (perl): (dl )
    
    1 2 3
    
    my $a = 'hallo</ende>blubb</foo>'; my @b = $a =~ /.*?<\/.*?>/g; print join(',', @b);
    
    Ich hab jetzt mal angenommen es soll mit ".*?" sein
    1 + 1 = 10
    - Raubtier
      
      2014-11-14 16:53
      
      User since
      2012-05-04
      1077 Artikel
      BenutzerIn
      
      Stimmt, das ist die naheliegendste Lösung! Kein split verwenden! Ich war so auf split fixiert, dass ich daran eben nicht gedacht habe.
  - Linuxer
    
    2014-11-14 16:45
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Hi,
    
    hängt vom gewünschten Ziel ab, finde ich. Vielleicht sind die schließenden Tags egal und können verworfen werden; dann macht es nix aus, wenn sie beim split() "verloren" gehen. Ansonsten beim split() einfangen und danach wieder zusammenfügen.
    
    Oder gleich einen Parser (XML/HTML) nehmen, je nach dem, was da an Eingangsdaten vorliegt und was man vorhat....
    
    edit:
    * Schreibweise split() vereinheitlicht
    * minimale Ergänzung: "und was man vorhat"
    
    Last edited: 2014-11-14 17:35:46 +0100 (CET)
    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 2014-11-14 15:06.