Zeilen ausschneiden und in neue Datei einfügen (Allgemeines zu Perl)

[thread]18484[/thread]

Zeilen ausschneiden und in neue Datei einfügen

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+11 replies
Gast ruby

2013-08-01 12:19

Hallo Perler,

ich bin ein kompletter Perl-Newbie, brauche aber kurzweilig die Vorteile die Perl mit sich bringt.

Aus einer Text-Datei sollen bestimmte Zeilen ausgeschnitten und in eine neue Text-Datei abgelegt werden.

Eine Zeile könnte bspw. so aussehen

Tech Univ Dresden, Inst Klin Pharmakol

aber auch so

Inst Klin Pharmakol, Tech Univ Dresden

Nun sollen alle Zeilen die von Perl bspw. nach "Tech Univ Dresden" durchsucht werden ausgeschnitten und in eine neue Datei eingefügt werden.
Mir wurde dazu geraten ein Perlscript aufzutreiben, da ich aber keinerlei Ahnung habe, wollte ich hier nachfragen, ob mir jemand helfen kann.

Vielen lieben Dank im Voraus!
RUBY
Last edited: 2013-08-01 12:25:07 +0200 (CEST)
- bianca
  
  2013-08-01 12:37
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Hier ist die Anforderung ähnlich: Dateien auslesen, nach Wort suchen und neu abspeichern funktioniert nicht ganz...
  Das Studium des Threads sollte dir zumindest mal ein Grundscript ermöglichen.
  Feinheiten dann wieder hier fragen.
  Soweit mein Vorschlag.
  10 print "Hallo"
  20 goto 10
- +9 replies
- bianca
  
  2013-08-01 12:38
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Hier ebenfalls eine ähnliche Anforderung: Text-Datei in mehrere Dateien splitten
  10 print "Hallo"
  20 goto 10
  - +8 replies
  - Gast ruby
    
    2013-08-01 12:51
    Klasse, danke für den Anfang!
    
    Nun hab ich mit etwas Hilfe folgenden Script:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    #!/usr/bin/perl use warnings; use strict; my $i = 0; open IN, 'alt.txt' or die "ERROR!\n"; open OUT, '> neu.txt' or die "ERROR!\n"; while (<IN>) { if (m/Tech Univ Dresden/){ print OUT; } } close IN;
    
    Der gibt allerdings lediglich die nötigen Zeilen in die neue Datei aus, es fehlt noch der Befehl, dass diese Zeilen aus der Originaldatei auch ausgeschnitten werden.
    Last edited: 2013-08-01 12:52:26 +0200 (CEST)
    - +2 replies
    - Linuxer
      
      2013-08-01 12:59
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Bist Du da auf einem Windows oder einem Linux System unterwegs?
      
      Auf Linux geht das ganze recht einfach mit Bordmitteln, z.B. mit grep:
      
      Code: (dl )
      
      1 2 3 4
      
      grep "Tech Univ Dresden" alt.txt > nur_dresden.txt grep -v "Tech Univ Dresden" alt.txt > ohne_dresden.txt # wenn alles ok mv ohne_dresden.txt alt.txt
      
      Auf Windows könnte man find dazu benutzen [1]:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      C:>find /? Sucht in einer oder mehreren Dateien nach einer Zeichenfolge. FIND [/V] [/C] [/N] [/I] [/OFF[LINE]]"Zeichenfolge" [[Laufwerk:][Pfad]Dateiname[ ...]] /V Zeigt alle Zeilen an, die die Zeichenfolge NICHT enthalten. /C Zeigt nur die Anzahl der die Zeichenfolge enthaltenden Zeilen an. /N Zeigt die Zeilen mit ihren Zeilennummern an. /I Ignoriert Groß-/Kleinschreibung bei der Suche. /OFF[LINE] Überspringt keine Offlinedateien. "Zeichenfolge" Die zu suchende Zeichenfolge [Laufwerk:][Pfad]Dateiname Zu durchsuchende Datei(en) Fehlt der Pfad, so durchsucht FIND von der Tastatur aus eingegebenen Text oder die Ausgabe des Befehls, der FIND in einer Befehlskette vorangestellt ist.
      
      [1] Man muss die Ausgaben aber etwas "bereinigen", weil Zeilen ausgegeben werden, in welcher Datei etwas gefunden wurde...
      Last edited: 2013-08-01 13:01:13 +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!
      - bianca
        
        2013-08-01 13:05
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Linuxer, wieso hängst du eine Antwort mit einem ganz anderen Lösungsansatz unter diese Frage?
        Er will doch jetzt mit einem Perlscript arbeiten und nicht mit Bordmitteln.
        10 print "Hallo"
        20 goto 10
    - +2 replies
    - bianca
      
      2013-08-01 13:06
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Guest ruby
      es fehlt noch der Befehl, dass diese Zeilen aus der Originaldatei auch ausgeschnitten werden.
      
      Mit dem s/// Regex kannst du Teile aus dem Text entfernen.
      Danach die Datei leeren und zurück schreiben. Gibt es das in den anderen Threads nicht?
      10 print "Hallo"
      20 goto 10
      - Gast ruby
        
        2013-08-01 13:16
        
        2013-08-01T11:06:40 bianca
        Guest ruby
        es fehlt noch der Befehl, dass diese Zeilen aus der Originaldatei auch ausgeschnitten werden.
        
        Mit dem s/// Regex kannst du Teile aus dem Text entfernen.
        Danach die Datei leeren und zurück schreiben. Gibt es das in den anderen Threads nicht?
        
        Hab's gerade versucht, das klappt allerdings nicht.
        Als Laie verstehe ich die Hälfte der beiden Threads auch leider nicht und komme nicht weiter :(
    - +3 replies
    - Linuxer
      
      2013-08-01 13:44
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      Konzeptvorschlag:
      
      öffne zwei ausgabe-dateien, eine für Zeilen mit Treffer, eine für Zeilen ohne Treffer.
      Wenn Deine Suche dann durch ist, solltest Du zwei neue Dateien haben; in der einen stehen eben die Zeilen mit "Tech Univ Dresden", in der anderen die ohne.
      
      Wenn dass so klappt, kannst du die originale Datei mit der neuen Datei ohne Treffer überschreiben.
      Last edited: 2013-08-01 14:00:54 +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!
      - +2 replies
      - Gast ruby
        
        2013-08-01 13:57
        
        Das ist natürlich ebenfalls ein guter Vorschlag, hab mein Script nun erweitert und es schaut nun so aus:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!/usr/bin/perl use warnings; use strict; my $i = 0; open IN, 'alt.txt' or die "ERROR!\n"; open OUT, '> neu.txt' or die "ERROR!\n"; open OUT2, '> neu2.txt' or die "ERROR!\n"; while (<IN>) { if (m/Tech Univ Dresden/){ print OUT; } else{ print OUT2; } } close IN;
        
        Jetzt brauch ich bloss die alte Datei mit der neuen zu ersetzen und es läuft!
        Last edited: 2013-08-01 14:01:02 +0200 (CEST)
        
        Gast ruby
        
        2013-08-01 14:02
        
        Das Wichtigste vergessen: Danke! :)

View all threads created 2013-08-01 12:19.