Thread Text in Datei rückwärts durchgehen und bis zu bestimmten Symbol löschen (9 answers)
Opened by donlenardo at 2012-01-26 10:41

GUIfreund
 2012-01-27 10:41
#155725 #155725
User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]
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

View full thread Text in Datei rückwärts durchgehen und bis zu bestimmten Symbol löschen