Hallo,

ich habe eine lange Textdatei, mit lauter solchen Einträgen:
..........
<tr>
<td>
....<br>...<br></td>
<td...
</td>
</tr>
<tr>
<td colspan=2><hr></td>
</tr>

<tr>
<td>
....<br>...<br></td>
<td...
</td>
</tr>
<tr>
<td colspan=2><hr></td>
</tr>

..................
Statt der Punkte gibt es Text.
Dieses Element wiederholt sich sehr oft, immer mit der Leerzeile
dazwischen.

Ich möchte gerne die ganze Datei umdrehen, so dass der jetzt unterste
Eintrag ganz oben steht.

So habe ich es versucht:

$datei1 = 'gb.txt';
$datei2 = 'gb3.txt';
open(DATEI1, "<$datei1");
$D1 = <DATEI1>;
[at] eintr = split(/\n\r\n\r/,$D1);
[at] ein = reverse [at] eintr;
open(DATEI2, ">$datei2");
foreach( [at] ein){ print DATEI2 "$_\n";}
close DATEI2;
close DATEI1;

Ich hab' natürlich schon eine ganze Reihe von reg.Expr. versucht.
Als Ergebnis in Datei2 erhalte ich immer nur:

<tr> und ein Zeilenumbruch.

Jetzt habe ich "1x1x1" in die Leerzeilen geschrieben und versucht so zu
splitten, aber das Ergebnis bleibt das gleiche.

Kann mir da jemand helfen?

Gruß, Hago

Hago Ziegler wrote:
> Hallo,
>
> ich habe eine lange Textdatei, mit lauter solchen Einträgen:

> Dieses Element wiederholt sich sehr oft, immer mit der Leerzeile
> dazwischen.
>
> Ich möchte gerne die ganze Datei umdrehen, so dass der jetzt unterste
> Eintrag ganz oben steht.
>
> So habe ich es versucht:

> open(DATEI1, "<$datei1");
> $D1 = <DATEI1>;
Das macht nicht was du erwartest, siehe $/ in perlvar.
Um die ganze Datei in einen Skalar einzulesen:
{
local $/;
$D1 = <DATEI1>;
}

Besser ist es aber du setzt $/ gleich so, dass immer von Leerzeilen
getrennte Blöcke eingelesen werden, in etwa so (ungetested):

open IN, '<', $datei1;
local $/ = "";
my [at] in = <IN>;
close IN;
open OUT, '>', $datei2;
chomp [at] in;
print OUT join "\n\n", reverse [at] in;
close OUT;

falls der letzte Eintrag auch noch mit einer Leerzeile endet, kannst du den
chomp/join Zirkus weglassen

Jörg

Hallo Jörg,

danke, hat geklappt.

Gruß, Hago