Text in Datei rückwärts durchgehen und bis zu bestimmten Symbol löschen (gelöst) (Allgemeines zu Perl)

[thread]17100[/thread]

Text in Datei rückwärts durchgehen und bis zu bestimmten Symbol löschen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+10 replies
donlenardo

2012-01-26 10:41

User since
2012-01-24
16 Artikel
BenutzerIn

Hallo,

und wieder einmal ist bei mir eine Frage aufgetaucht. Ich habe nun eine Datei, die Text enthält:

12
i0
{
xo
46
{
28
98

Ich möchte nun von der LETZTEN Zeile bis zu der Klammer "{", welche vor "28" steht, alles löschen - dh. es sollte dann "{" das letzte Symbol in der Datei sein:

12
i0
{
xo
46
{

Ich habe herausgefunden, dass man mit "sed -e 1,/{/d DATEI" bis zur Klammer löschen könnten, jedoch funktioniert das eben nicht in der Reihenfolge von unten nach oben, sondern nur von oben nach unten.

Vielleicht kann mir auch dieses mal jemand helfen bzw. Tipps geben?!

Besten Dank für eure Hilfe.

Gruß,
Markus
- Linuxer
  
  2012-01-26 11:07
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Du könntest die Datei mit Tie::File an ein Array binden, und dann das letzte Array Element entfernen, bis es die gesuchte Klammer enthält.
  
  edit: Code Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #! /usr/bin/perl use strict; use warnings; use Tie::File; my $file = 'data.txt'; tie my @file, 'Tie::File', $file or die "tie '$file' failed.\n"; while ( defined $file[-1] && $file[-1] !~ m/\{$/ ) { pop @file; } untie @file;
  
  Last edited: 2012-01-26 11:18:57 +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!
- +8 replies
- GwenDragon
  
  2012-01-26 11:13
  User since
  2005-01-17
  14757 Artikel
  Admin1
  Schau dir mal dieses Beispiel an:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  
  #!/usr/bin/perl use strict; use warnings; my @data = reverse <DATA>; my $notfound = 1; while ($notfound) { $data[0] =~ /\{/ and $notfound = 0 and last; shift @data if $notfound; } @data = reverse @data; __DATA__ 12 i0 { xo 46 { 28 98
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - pq
    
    2012-01-26 11:24
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das $data[0] =~ /\{/ and $notfound = 0 and last finde ich etwas irritierend.
    das suggeriert, dass, wenn die regex erfolgreich ist, $notfound = 0 gesetzt wird und mit last aus der schleife herausgesprungen wird.
    letzteres ist aber nicht der fall, denn der returnwert von $notfound = 0 ist 0, weshalb das last nicht ausgeführt wird.
    du brauchst es aber auch gar nicht, da ja der schleifenkopf while ($notfound) enthält.
    
    wenn dann würde man es besser so schreiben:
    $notfound = 0, last if $data[0] =~ /\{/
    dann ist das last nicht abhängig von der zuweisung davor.
    
    Editiert von pq: typo
    Last edited: 2012-01-26 13:05:35 +0100 (CET)
    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
    - GwenDragon
      
      2012-01-26 12:53
      
      User since
      2005-01-17
      14757 Artikel
      Admin1
      
      $notfound = 0 Ich kapiere auch nicht, warum ich das das da so sinnfrei reingepflückt habe. *blush*
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - donlenardo
    
    2012-01-26 11:51
    
    User since
    2012-01-24
    16 Artikel
    BenutzerIn
    
    Hey danke,aber ich habe mich geirrt. Ich möchte auch noch die Klammer ²{" gelöscht haben!
    D.h. die Datei sollte dann Folgendes beinhalten:
    
    12
    i0
    {
    xo
    46
    - +2 replies
    - pq
      
      2012-01-26 11:56
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      na dann musst du das if $notfound nach dem shift weglassen.
      
      verstehst du denn, was der code macht?
      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
      - donlenardo
        
        2012-01-26 12:06
        
        User since
        2012-01-24
        16 Artikel
        BenutzerIn
        
        Aja,das habe ich komplett übersehen!
        Ich habe nämlich nun, um die Klammer auch weg zu bekommen, "pop @data;" nach dem "reverse" ausführen lassen,weil ich das "shift" nicht gesehen habe.
        
        Mama mia - das gibts ja gar nicht;)
        
        Ansonsten ist der Code für mich durchaus verständlich und nachvollziehbar!
        Ich hätte das Ganze jedoch umständlicher aufgebaut, daher danke für Eure Hilfe!!
    - GUIfreund
      
      2012-01-27 10:41
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      Diese Lösung ist etwas kürzer:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      use strict; use warnings; my @data = <DATA>; my $cutpos = (map {$data[$_] eq "{\n" ? $_ : ()} 0 .. $#data)[-1]; defined $cutpos or die "Keine Klammer in der Datei\n"; $#data = $cutpos - 1; print @data; __DATA__ 12 i0 { xo 46 { 28 98
      
      Das klappt auch, wenn die letzte Klammer in der ersten Zeile oder in keiner Zeile steht.
      Gruß
      GUIfreund
  - pq
    
    2012-01-26 12:08
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das ganze ist übrigens eine endlosschleife, falls kein { vorkommt. daher am besten noch ein while @data mit einbauen.
    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

View all threads created 2012-01-26 10:41.