Zeilenzahl bestimmen bei veränderten Seperator (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-30 23:18:27
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
2 Gäste

[thread]17618[/thread]

submit to reddit

Zeilenzahl bestimmen bei veränderten Seperator

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+23 replies
manu

2012-08-01 13:58
User since
2012-07-31
7 Artikel
BenutzerIn
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 )

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

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";
- pq
  
  2012-08-01 14:00
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  allgemeine empfehlung: benutze strict und warnings: use strict
  und einen eigenen filehandle ARGV zu nennen ist auch nicht sinnvoll, das ist eigentlich ein standard-filehandle von perl.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +5 replies
- Muffi
  
  2012-08-01 14:57
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Achtung, leichte Ironie:
  Dir fehlt noch ein Hash, der %ARGV heisst. Array, Skalar und Filehandle hast du ja schon ;)
  
  Ansonsten, was macht denn das?
  
  Code (perl): (dl )
  
  unshift(@ARGV, '-') unless @ARGV;
  
  Und wo wird @_ belegt?
  
  Code (perl): (dl )
  
  while ($ARGV = shift) {
  
  1 + 1 = 10
  - +2 replies
  - FIFO
    
    2012-08-01 15:16
    
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    Aus perldoc zu shift: If ARRAY is omitted, shifts the @_ array within the lexical scope of subroutines and formats, and the @ARGV array at file scopes ...
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - Muffi
      
      2012-08-01 15:27
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Man lernt doch nie aus
      1 + 1 = 10
  - manu
    
    2012-08-01 15:20
    User since
    2012-07-31
    7 Artikel
    BenutzerIn
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    while (<>) { ... # code for each line } is equivalent to the following Perl-like pseudo code: unshift(@ARGV, '-') unless @ARGV; while ($ARGV = shift) { open(ARGV, $ARGV); while (<ARGV>) { ... # code for each line } }
    
    http://perldoc.perl.org/perlop.html#I%2FO-Operator...
    
    modedit Editiert von GwenDragon: Zitat formatiert
    Last edited: 2012-08-02 12:03:19 +0200 (CEST)
  - Raubtier
    
    2012-08-01 15:23
    
    User since
    2012-05-04
    1075 Artikel
    BenutzerIn
    
    - ist die Standardeingabe.
    
    Man könnte auch einfach while(<>) verwenden...
- +4 replies
- FIFO
  
  2012-08-01 15:36
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Du kannst schonmal etwas straffen und Kollisionen mit Standard-Handles vermeiden ...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  local $/ = "/>"; my @files = @ARGV ? @ARGV : ('-'); # - ist STDIN my $fh; for my $file (@files) { open($fh, '<', $file); # ... or die ... my ($line_nr, $line_nr_oben) = (0, 0); while (my $string = <$fh>) { $line_nr = $line_nr_oben; my $count = s{\r?\n}{}g || 0; # s/// gibt Zahl der Matches zurück $line_nr_oben += $count; if($string =~ m/< ... ... print "Feher in Zeilen $line_nr - $line_nr_oben";
  
  Die Verwendung der beiden $line_nr-Variablen ist mir unklar. Kannst Du Beispieldaten zeigen? Die Verwendung von '/>' als Seperator ist ggf. nicht die geschickteste Variante.
  
  Editiert von FIFO: scope der $line_nr-Vars begrenzt
  Last edited: 2012-08-01 15:37:54 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +3 replies
  - manu
    
    2012-08-02 10:40
    
    User since
    2012-07-31
    7 Artikel
    BenutzerIn
    
    Die verschiedenen line_nr Variablen möchte ich verwenden um die aktuellen gelesenen Zeilen des Tag des XML-Files zu bestimmen (local $/ = "/>"; - Ende des Tags) - Weshalb so - da ich keine andere Möglichkeit weiß.
    - Gast wer
      
      2012-08-02 10:43
      
      *hüstel* XML-Parser *hüstel*
      
      XML::Simple
      Last edited: 2012-08-02 10:51:17 +0200 (CEST)
    - GwenDragon
      
      2012-08-02 11:02
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Wenn du sinnvoll extrahieren willst: XML::Parser
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- gelöscht 2012-08-01 15:46
- +3 replies
- Linuxer
  
  2012-08-01 16:08
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Wenn Du local $/ = '...'; im "globalen" Kontext verwendest, kannst Du Dir - IMHO - das local auch sparen. Die Variable ist und bleibt damit Skriptweit verändert...
  Genau deswegen hatte ich in meinem Beitrag zu Deiner anderen Frage einen Block drumrum gesetzt...
  Und meine Fragen sind auch unbeantwortet geblieben... Schade.
  
  Was willst Du hier wirklich?
  Willst Du wirklich die Zeilenanzahl?
  Oder willst Du die Anzahl der gelesenen Datensätze (die Du hier immer noch als "Zeile" bezeichnest)?
  
  Denn mit Verändern von $/ verändert sich ja das Verhalten und ein eingelesener Datensatz kann durchaus mehrere Zeilen enthalten. Welchen Wert stellst Du Dir nun vor?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - manu
    
    2012-08-02 11:27
    
    User since
    2012-07-31
    7 Artikel
    BenutzerIn
    
    Nachdem ich es getestet hatte, schaffte ich es nicht den Operator local zu nutzen. In dem anderen Thread hatte ich ja gesehen, dass es funktioniert und dass das Problem wo anders lag. Danke dafür.
    Die aktuelle Zeilenzahl eines (von mehreren hintereinander eingelesenen) XML-Files möchte ich. Da der Record nicht einer Zeile entspricht, möchte ich die Zeilen des aktuellen Tags ausgeben (Anfagszeile und Endzeile). Da es mehrere Dateien sind, die eingelesen werden, möchte ich die Zeilen der Dateien vorher bestimmen, in einem Array speichern und diese von der aktuellen Zeilenzahl, die ich von Anfang an hochzähle abziehen. Geht das einfacher, oder besser? Also Zeilenzahl zur Bestimmung des Ortes.
    - topeg
      
      2012-08-02 12:48
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Bedenke für einen Computer gibt es keine Zeilen in dem sinne. Es das wie wir es interpretieren. Wenn du sagst "/>" soll das ende einer sein dann ist das für Perl auch so.
      
      Wenn du wissen willst in welcher "\n"-Zeile ein Wert, ist aber anders parsen willst musst du das passend Programmieren
      
      Ein Ansatz:
      more (30.4kb)
- +8 replies
- manu
  
  2012-08-02 11:09
  
  User since
  2012-07-31
  7 Artikel
  BenutzerIn
  
  gibt es wirklich einen Record unabhänigen Operator, mit dem die Zeilenzahl bestimmt werden kann?
  - +2 replies
  - GwenDragon
    
    2012-08-02 12:02
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Quote
    HANDLE->input_line_number( EXPR )
    $INPUT_LINE_NUMBER
    $NR
    $.
    
    perldoc perlvar
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - pq
      
      2012-08-02 12:11
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      das nützt nichts, wenn man $/ verändert.
      $. ist nicht die zeilenanzahl nach newlines berechnet, sondern die anzahl der eingelesenen records, je nach $/
      
      das ist ja genau manus problem, weshalb manuell gezählt werden muss.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +5 replies
  - pq
    
    2012-08-02 12:19
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2012-08-02T09:09:24 manu
    gibt es wirklich einen Record unabhänigen Operator, mit dem die Zeilenzahl bestimmt werden kann?
    
    meintest du "gibt es wirklich keinen?"
    
    ausserdem: du meinst vermutlich nicht operator, sondern variable.
    $. gibt es ja auch, und das ist eine variable und kein operator.
    daher ist es auch in perlvar und nicht perlop dokumentiert.
    
    versuch dir mal ein gutes tutorial durchzulesen und ein gefühl für die begriffe und ihre bedeutung zu kriegen.
    http://perl-tutorial.org/
    
    das problem ist: ich würde mich sehr ärgern, wenn es so eine variable gäbe.
    stell dir vor, du setzt $/ auf irgendwas anderes als newline und liest jetzt eine schöne grosse datei ein, in der auch newlines vorkommen.
    jetzt müsste perl bei jedem record die anzahl der newlines zählen, damit so eine spezialvariable gefüllt werden kann. das ist doch wahnsinnig ineffizient und es wäre nicht sinnvoll, sowas ungefragt zu tun.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +4 replies
    - Gast manu
      
      2012-08-02 13:34
      
      ja meinte einen, da mir gerade jemand sagte, dass es einen geben würde.
      Last edited: 2012-08-02 13:38:26 +0200 (CEST)
      - +3 replies
      - pq
        
        2012-08-02 13:39
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        und welcher ist es? =)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        Gast manu
        
        2012-08-03 11:04
        
        das wusste er nicht und es gibt ihn wohl auch nicht
        Last edited: 2012-08-03 11:08:46 +0200 (CEST)
        
        topeg
        
        2012-08-03 14:48
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich habe dir ja gezeigt wie man es machen kann.

View all threads created 2012-08-01 13:58.