Array-Verarbeitung mit splice (solved) (Allgemeines zu Perl)

[thread]19012[/thread]

Array-Verarbeitung mit splice [solved]

Tags: perl5 Array splice Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+10 replies
cohama

2014-04-08 08:42
User since
2011-08-16
102 articles
BenutzerIn
Hallo zusammen,

ich möchte mittels splice die ersten beiden Elemente jeder Zeile des Array löschen und als Array1 weiter verarbeiten.
Irgendwie läuft meine while-Schleife in ein Out-of-Memory, ich kann mir nicht erklären warum.
Code: (dl )

1 2 3 4 5 6

@Array = <iFile>; # Copy File 2 Array @Array = grep {$_ =~ /^GO./}@Array; # Select all lines starting with GO while (@Array){ @Array1 = splice(@Array,2); # Drop first two colums }
Datei-Inhalt:
Code: (dl )

1 2

GI$164 T0c7 6814 1 20140406 235955 0 0 1 d45bfa6a 1 1 1 10A 3 15756207511 3 15756207511 0 1 3 821784727144711 000 0 3 0000821784727144711 1 78 B11 CHAT_DEF 132242-255636 SS7_TCOM_30_1 loop[gw_sip,me-vgw30-ep] 0 D00c 7520 312acb G021 20140406 23595598 ? ? 0000000019 E007 020100 V013 8 20 0 0 0 SIP_OUT Z032 12733-OI-056b64dc-4e1bcb745@sip.berlin.dns-net.de GI$175 T0b7 5196 1 20140406 235913 0 44 44 d45bfa6a 1 256 1 00A 3 3391651071 3 3391651071 0 1 3 3391650482 001 0 3 3391650482 1 24 F10 XX 132308-255620 SS7_TCOM_30_1 SIP[sip.berlin.dns-net.de] 0 D00c 7520 312abf G02a 20140406 23591308 0000000043 ? 0000004433 E007 020103 V013 8 20 0 1 0 SIP_OUT V013 8 20 0 1 0 SIP_OUT Z032 12512-NE-056b624e-4b167b315@sip.berlin.dns-net.de
- +9 replies
- pq
  
  2014-04-08 08:50
  User since
  2003-08-04
  12207 articles
  Admin1
  2014-04-08T06:42:16 cohama
  
  Code: (dl )
  
  1 2
  
  @Array1 = splice(@Array,2); # Drop first two colums }
  
  Auch wenn mans als Kommentar dahinter schreibt, wird es nicht richtig ;-)
  doku:
  
  Code: (dl )
  
  1 2 3 4
  
  splice ARRAY,OFFSET,LENGTH,LIST splice ARRAY,OFFSET,LENGTH splice ARRAY,OFFSET splice ARRAY
  
  In deinem Fall wird alles nach den ersten beiden Elementen rausgeworfen. Also genau umgekehrt. Die Schleife läuft endlos.
  Du brauchst:
  splice @Array, 0, 2;
  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
  - +8 replies
  - cohama
    
    2014-04-08 10:51
    User since
    2011-08-16
    102 articles
    BenutzerIn
    
    Hallo pq,
    
    vielen Dank für deinen Tipp. Jetzt habe ich keine Endlosschleife mehr, aber die beiden ersten Elemente sind auch in der Array1 enthalten.
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    @Array = <iFile>; # Copy File 2 Array @Array = grep {$_ =~ /^GO./}@Array; # Select all lines starting with GO while (@Array){ @Array1 = splice @Array,0,2; # Drop first two colums push @Array2,@Array1; } print oFile @Array2;
    
    OutPut-File
    GO$19b T0ad 200753 0 20140406 201822 13359 13369 13375 d45bfa6a 1 0 1 00A 3 33792037980 0 X 0 1 3 5482929198 001 0 3 5482929198 1 24 F10 VT 278084-133159 SIP @VT_30_BER1015d_L1091872 0 D00c 7520 3115d3 G033 20140406 20182204 0000000619 0000001650 0003425547 E007 020100 O04c 12759007 102072960 102070800 425304 425295 0 2 0 IP2TDM 212.91.231.146:6928 V012 8 30 0 1 0 SIP_IN Z021 40794260897EDA3B@213.220.151.210
    GO$145 T099 200180 0 20140407 000114 0 1 6 d45bfa6a 1 0 1 00A 3 3377300704 0 X 0 1 3 3377311426 000 0 3 3377311426 1 24 B11 GOBLIN 278801-255690 SIP loop[goblin,] 0 D00c 7520 312ae1 G02a 20140407 00011459 0000000444 ? 0000000442 E007 020100 O039 7690 61440 60480 256 252 0 3 0 IP2TDM 212.91.250.74:7904 V012 8 30 0 1 0 SIP_IN
    - +7 replies
    - Muffi
      
      2014-04-08 11:04
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Wenn man Verhalten hat, das so nicht sein soll:
      Erstmal use strict; und use warnings; drüber.
      1 + 1 = 10
      - +6 replies
      - cohama
        
        2014-04-08 11:11
        
        User since
        2011-08-16
        102 articles
        BenutzerIn
        
        Hallo Muffi,
        
        ich nutze generell
        
        Code: (dl )
        
        use strict;
        
        Hier kurz das gesammte Script:
        
        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 34 35 36 37 38 39 40
        
        #!/usr/bin/perl -w ######################## # Modul Definition ######################### use strict; ########################## # Parameter Definition ######################### my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst); my($date,$clock); my ($File1,$File2); my (@Array,@Array1,@Array2); my $item; ########################## ########################## system("clear"); ########################## # Time-Calculation ########################## ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $date =sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday); $clock =sprintf("%02d:%02d:%02d",$hour,$min,$sec); ############################### # File-Operation $File1 = "./log/grnti"; $File2 = "./log/".$date."_Result.log"; if ( -e $File1 ){ open (iFile,"<$File1") || die $!; open (oFile,">$File2") || die $!; } @Array = <iFile>; # Copy File 2 Array @Array = grep {$_ =~ /^GO./}@Array; # Select all lines starting with GO while (@Array){ @Array1 = splice(@Array,0,2); # Drop first two colums @Array1 = sprintf("%4s %4s",@Array1); push @Array2,@Array1; } print oFile @Array2; close(iFile); close(oFile);
        
        By the way:
        Wie kann man eigentlich die Ausgabe des Array2 mit Leerzeichen auffüllen, sodass das Ergebnis richtig gut lesbar anhand von Spalten ist?
        
        Ich habe bereits sprintf versucht, leider ohne Ergebnis.
        Last edited: 2014-04-08 11:12:52 +0200 (CEST)
        
        +5 replies
        
        Muffi
        
        2014-04-08 11:19
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Unabhängig davon, dass ich noch nicht ganz verstanden habe was das Skript nicht tut, aber tun sollte:
        Darf man das Skript kritisieren? (Ich kenn Leute, die sind dann beleidigt)
        1 + 1 = 10
        
        +4 replies
        
        cohama
        
        2014-04-08 11:29
        
        User since
        2011-08-16
        102 articles
        BenutzerIn
        
        Hi Muffi,
        
        natürlich darfst du immer Kritik an meinen Idee üben, sofern Sie mich meinem Ziel näher bringen.
        Ziel ist es eine Log-Datei einzulesen und die beiden ersten beiden Elemente der jeweiligen Zeile zu entfernen.
        Danach muss ich die folgenden Elemente weiter verarbeiten.
        Und zum Schluss brauche ich eine Ergebnis-Datei die gut lesbar in Spalten gegliedert ist.
        
        Bye
        
        Muffi
        
        2014-04-08 11:32
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Aaah!
        Da ist ein Denkfehler. In @Array stehen Zeilen, keine Elemente. Der Splice schneidet die ersten beiden Zeilen ab.
        1 + 1 = 10
        
        +2 replies
        
        Muffi
        
        2014-04-08 11:41
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Zur Kritik:
        
        Zeile 1: Das -w weg und statt dessen "use warnings" benutzen
        Zeile 9-13: Nicht machen. Schreib my vor die Variable, wenn sie zum ersten mal gebraucht wird.
        Zeile 22: Wird nie gebraucht. Und allgemein gängiger wär wohl "time"
        Zeile 25: Erstens ist der Name unglücklich, ich würd eher $in_file_name nehmen, zweitens würd ich mir eine durchgehende Konvention für Variablennamen überlegen. Gängig ist $klein_mit_unterstrichen. Und hier dann das my davor.
        Zeile 27: Der if ist sehr unglücklich, weil wenn der nicht zutrifft geht's relativ undefiniert ab ins Gemüse
        Zeile 28, 29: open so benutzen: open(my $in_file, '<', $in_file_name), evtl. kann man die Fehlermeldung noch ein klein weniger gesprächig machen.
        Zeile 31: ich würd eher nen while benutzen.
        while (my $line = <$in_file>) { next if $line !~ /^GO./ . Das list nicht gleich die ganze Datei ein und spart Speicher und ich (persönlich) finds lesbarer.
        Zeile 33-37: Variablen durchzunumerieren ist eigentlich nicht im Sinne des Erfinders. Es hat sich wer was dabei gedacht, dass man Namen vergeben kann, die müssen nicht <Datentyp><nummer> sein.
        
        Und dann find ich diese übermässig benutzten Trenner eher störend als hilfreich.
        1 + 1 = 10
        
        Raubtier
        
        2014-04-08 15:35
        
        User since
        2012-05-04
        1052 articles
        BenutzerIn
        
        Ich schließe mich Muffis Kritik an und ergänze (bzw. wiederhole, was pq gesagt hat):
        
        Code (perl): (dl )
        
        @Array1 = splice(@Array,0,2); # Drop first two colums
        
        Der Kommentar ist irreführend. Es müsste # Drop first two lines heißen. Wobei auch "Drop" ja nur der halben Wahrheit entspricht, denn die beiden Zeilen werden ja gespeichert.
        
        Und ich finde deine Zeilen 33-37 generell unangenehm, insbesondere auch durch die mehrfache Zuweisung an @Array1. Was genau willst du da erreichen? Und warum wird das alles erst in @Array2 geschrieben, wenn dessen einzige Bestimmung die Ausgabedatei ist?
        Last edited: 2014-04-08 15:39:25 +0200 (CEST)

View all threads created 2014-04-08 08:42.