Suche immer noch Regulären Ausdruck - #83084 (Allgemeines zu Perl)

Mia

2004-06-07 10:43

User since
2004-06-01
12 Artikel
BenutzerIn
[default_avatar]

Hallo ihr,

ich habe die letzten Tage immer noch ein meinem Problem gesessen und habe immer noch keine Lösung. Ich hoffe, ihr könnt mir auch dieses Mal helfen, es ist das gleiche Problem wie mein letztes Posting. Mit dem Code von foobar habe ich es leider nicht hinbekommen.
Also, ich habe eine text.txt Datei, die ich einlesen möchte und in eine aufgaben.txt schreiben möchte.
Diese Datei hat folgende Form:

Bla bla,
bla bla bla - bla bla. Bla bla, bla bla bla. usw.
Bla bla bla.

Aufgabe 1
Text Text Text
Seite 1-2

Aufgabe 2
Text Text Text
Seite 7

Bla bla bla,
Bla bla bla.

Wie schon gehabt, möchte ich die fettgedruckten Textpassagen in die aufgabe.txt Datei schreiben, alles nicht-fettgedruckte soll gelöscht werden. So, das mit den Seiten habe ich dank renees Hilfe schon hinbekommen, aber
ich bekomme das einfach nicht hin. Das Öffnen und Schreiben klappt. Aber vielleicht stimmt an meine Konzept was nicht ????

Code: (dl )

#! /usr/bin/perl -w

use strict;

open (MAIL, "text.txt") 
      or die "Die Datei kann nicht geoeffnet werden: $!";

open (FILE, "aufgabe.txt")
      or die "Die Datei kann nicht geoeffnet werden: $!";

my $line1 = <MAIL>;

while (defined($line1)) {
  $_ = $line1;
 
  s/[\w]*\n Aufgabe /Aufgbe/g;

  print FILE $_;
  $line1 = <MAIL>;

}

Ratlos und verzweifelt,
Mia

edit renee: schließenden [code]-tag eingefügt...\n\n