Thread 5 Zeilen ab jener mit bestimten Wort aus Datei löschen (6 answers)
Opened by donlenardo at 2012-02-20 15:47

donlenardo
 2012-02-20 16:19
#156237 #156237
User since
2012-01-24
16 Artikel
BenutzerIn
[default_avatar]
Ich wollte zunächst damit beginnen, eine Datei zu durchsuchen, und jene Zeile, in der das Wort "EMPTY" auftritt, zu entfernen. Aber irgendwie löscht er mich gar nichts. Eventuell hat das etwas mit den Leerzeichen vor dem Wort "EMPY" zu tun??Aja, und mit "eq" löscht er mir gar nichts, mit "==" löscht er mir alles. Hier mal der Code:

Code: (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
25
26
27
28
29
30
31
32
33
my $EMPTYname = "EMPTY";
my @dataEempty = ();

open (Boundary, "<",boundary);

@dataEempty = <Boundary>;

close (Boundary);

foreach $lineEmpty(@dataEempty)
{
        if($lineEmpty eq $EMPTYname)
        {
                print "Es wird gelöscht: = $lineEmpty \n";
                push @output,$lineEmpty;
        }
        else
        {
                print "Nicht gelöscht: = $lineEmpty \n";
                push @outputNonEmpty,$lineEmpty;
        }

}

system("rm boundary");

open(OUT,">boundary");
        foreach $line(@outputNonEmpty)
        {
                print OUT $line;
        };

close(OUT);

Last edited: 2012-02-20 16:32:09 +0100 (CET)

View full thread 5 Zeilen ab jener mit bestimten Wort aus Datei löschen