Zeilenzahl bestimmen bei veränderten Seperator - #160408 (Allgemeines zu Perl)

manu

2012-08-01 13:58

User since
2012-07-31
7 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich möchte die Zeilenzahl des aktuellen eingelesen Files für die aktuelle Zeile bestimmen, die ich einlese und durchsuche. Ich habe den Seperator verändert, so dass ich unterschiedlich viele Zeilen einlese und außerdem entferne ich später auch alle Zeilenumbrüche.
Folgendes habe ich versucht, jedoch klappt es nicht. Als ergebnis hab ich für line_nr_oben alle Zeilen und für line_nr meist 0, aber das auch nicht immer. Was ist denn falsch?

Code (perl): (dl )

my $line_nr=0;
my $line_nr_oben=0;
local $/ = "/>";

unshift(@ARGV, '-') unless @ARGV;

while ($ARGV = shift) {
        open(ARGV, $ARGV);
        $line_nr=0;
        $line_nr_oben=0;
        while (<ARGV>) {
        
        $string = $_;
        $line_nr=$line_nr_oben;
        #Eingelesene Zeilenzahl speichern
                foreach ($string =~ m/\n/g){
                        $line_nr_oben++;
                }
        #Zeilenumbrüche entfernen
        $string =~ s/\r?\n//g;
        if($string =~ m/< ...

...

print "Feher in Zeilen $line_nr - $line_nr_oben";