Text zerlegen (Allgemeines zu Perl)

[thread]19345[/thread]

Text zerlegen

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
Gast Martin

2014-10-23 18:59
Hallo,

ich habe ein Textdokument, das ca wie folgt aussehen könnte:
Code: (dl )

1 2 3 4 5 6 7 8

erster bla foo bar bla zweiter sabbel gelaber mehr gelaber dritter brumm vierter umpf jajaja
Nun will ich die Datei in ein Array einlesen. Dabei soll der Text so zerlegt werden, dass immer, wenn eine Zeile NICHT mit einem Leerzeichen beginnt, ein neues Arrayelement beginnt. Folgendes kommt dem sehr Nahe:
Code (perl): (dl )

1 2 3 4 5

open(DATEI, "liste.txt"); my $response = join("", <DATEI>); close(DATEI); my @positionen = split(/\n\S/, $response);
Dummerweise fehlt nun aber stets der erste Buchstabe je Position. Z.B. sieht $positionen[0] jetzt wie folgt aus:
Code: (dl )

1 2

rster bla foo bar bla
Wie kann ich die Datei wie gewünscht zerlegen?

Danke für eure Hilfe
Martin
Last edited: 2014-10-23 19:07:42 +0200 (CEST)
- +2 replies
- Linuxer
  
  2014-10-23 19:18
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Siehe perldoc perlre:
  
  perldoc perlre
  (?=pattern)
  
  A zero-width positive look-ahead assertion. For example, /\w+(?=\t)/ matches a word followed by a tab, without including the tab in $& .
  
  Also:
  
  Code (perl): (dl )
  
  my @arr = split /\n(?=\S)/, $str;
  
  EDIT:
  
  oder zeilenweise verarbeiten und Kriterium beachten:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my @arr; while ( my $line = <HANDLE> ) { if ( $line =~ m/^\S/ ) { push @arr, $line; } else { $arr[-1] .= $line; } }
  
  Last edited: 2014-10-23 19:21:32 +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!
  - Muffi
    
    2014-10-24 08:36
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Oder wenn einem der look ahead zu komplex ist Perl mit \b machen lassen.
    
    Code (perl): (dl )
    
    my @arr = split /\n\b/, $str;
    
    [edit] und ggf. mal mit Umlauten am Zeilenanfang testen.
    Last edited: 2014-10-24 09:05:14 +0200 (CEST)
    1 + 1 = 10
- +3 replies
- rosti
  
  2014-10-23 20:11
  
  User since
  2011-03-19
  3712 Artikel
  BenutzerIn
  
  Wenn das keine Übungsaufgabe sein soll, würde ich als erstes die Frage stellen, an welcher Stelle die Daten erhoben werden, noch bevor mit den Daten eine solche Datei erzeugt wird.
  http://rolfrost.de/wallpaper.html
  
  WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
  - +2 replies
  - Gast Martin
    
    2014-10-23 20:48
    
    2014-10-23T18:11:44 rosti
    Wenn das keine Übungsaufgabe sein soll, würde ich als erstes die Frage stellen, an welcher Stelle die Daten erhoben werden, noch bevor mit den Daten eine solche Datei erzeugt wird.
    
    Manche Dinge, bzw manche Daten kann man sich nicht aussuchen. Man bekommt sie geliefert und muss eben das Beste daraus machen.
    
    Martin
    Last edited: 2014-10-23 21:25:47 +0200 (CEST)
    - rosti
      
      2014-10-23 21:43
      
      User since
      2011-03-19
      3712 Artikel
      BenutzerIn
      
      OK. Vor ein paar Jahren musste ich mal einen Parser entwickeln für die Konfigurationsdatei einer Checkpoint-Firewall. Dafür habe ich mehrere Tage gebraucht.
      
      Am Wochenende drauf habe ich ein bischen gegoogelt und siehe da, es gab schon was in Perl. Nur wenige Stunden später konnten sich die Kollegen ihr Regelwerk in Originalfarben im Browser anschauen.
      http://rolfrost.de/wallpaper.html
      
      WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.

View all threads created 2014-10-23 18:59.