Mehrzeilige Suche - Record Seperator ändern (Allgemeines zu Perl)

[thread]17606[/thread]

Mehrzeilige Suche - Record Seperator ändern

Tags: perl5 Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+5 replies
guest manu

2012-07-31 14:45

Hallo,

ich möchte den Record Seperator ändern, so dass ein Record bei /> endet. Wie funktioniert das denn?

$/ "/>";

funktioniert nicht ganz. Lese ich nach der Änderung den Record dann immernoch mit $_ ein?
Last edited: 2012-07-31 14:46:54 +0200 (CEST)
- Muffi
  
  2012-07-31 14:57
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Zuweisungen gehn mit "=" ;)
  
  und ich würd auch "local" dafür benutzen, wer weiss was das sonst für Nebeneffekte hat
  1 + 1 = 10
- +3 replies
- Linuxer
  
  2012-07-31 14:59
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  # eigener Block zum Einlesen... { local $/ = "/>"; while ( my $dataset = <HANDLE> ) { # tu was mit $dataset } } # Ende Block zum Einlesen
  
  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
  - manu
    
    2012-07-31 15:25
    User since
    2012-07-31
    7 articles
    BenutzerIn
    
    So verstehe ich das, doch das funktioniert nicht.
    Record soll die Länge eines Tags aus einem XML-File sein.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    local $/= "/>"; while (<>){ if($_ =~ m/<(\w+)\s+(.*?)\s*\/>/i) { mache etwas } }
    
    Last edited: 2012-07-31 15:28:16 +0200 (CEST)
    - Linuxer
      
      2012-07-31 15:31
      
      User since
      2006-01-27
      3890 articles
      HausmeisterIn
      
      Was heisst in Deinem Sprachgebrauch "es funktioniert nicht"?
      Wie schauen die Daten aus, die Du einlesen willst?
      
      Bei mir "funktioniert es" (technisch):
      
      Code: (dl )
      
      1 2 3 4
      
      echo "<a href="foo"><img bla /></a>" | perl test.pl -- 1: <a href=foo><img bla />-- 2: </a>
      
      mit test.pl =
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      #! /usr/bin/perl use strict; use warnings; { local $/ = "/>"; while ( <> ) { # Trennmarker "--\n", Nr. gelesener Datensatz, Datensatz printf "--\n%3d: %s", $., $_; } }
      
      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 2012-07-31 14:45.