5 Zeilen ab jener mit bestimten Wort aus Datei löschen - #156239 (Allgemeines zu Perl)

GUIfreund

2012-02-20 18:26

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

2012-02-20T15:19:00 donlenardo

Code: (dl )

my $EMPTYname = "EMPTY";
.............
foreach $lineEmpty(@dataEempty)
{
        if($lineEmpty eq $EMPTYname)

Von allen anderen Unschönheiten in deinem Skript mal abgesehen: Du schreibt im OP, dass vor dem String noch Leerzeichen stehen. Außerdem steht noch ein Newline am Ende. Wenn da alles ist, könnte deine Prüfung so aussehen:

Code (perl): (dl )

        if($lineEmpty =~ /^ *$EMPTYname$/)

Ansonsten genügt vielleicht

Code (perl): (dl )

        if($lineEmpty =~ /$EMPTYname/)

Das prüft, ob die Zeile diesen String irgendwo enthält.

Gruß
GUIfreund