Ausgabe mehrdimensionaler Arrays ?? (Allgemeines zu Perl)

[thread]19427[/thread]

Ausgabe mehrdimensionaler Arrays ??

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+10 replies
Gast PERLScripter

2014-12-19 17:01
Hallo Zusammen,

ich brauche Eure Hilfe bei der Ausgabe mehrdimensionaler
Arrays in meinem PERL - Script. Und zwar habe in folgendem
Code das Array @ARGV in 2 neue Arrays aufgeteilt :
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

my $i = 0; # ---------------------------------------------------------------------------------------- # splice( @ARGV , 0 , 4 ); for ( $i = 0; $i < @ARGV ; $i++ ) { if ( $ARGV[$i] eq 'TRENNER_TS' ) { print "\n"; print "Eintrag des Trenners : In Ordnung !" , "\n"; print "Nummer des Arrays : $i" , "\n"; # Nummer des Arrays für Trennung @Aufteilung_Arrays_TS = splice( @ARGV , 0 , $i ); # Trennung der TS } if ( $ARGV[$i] eq 'TRENNER_WERTE' ) { print "\n"; print "Eintrag des Trenners : In Ordnung !" , "\n"; print "Nummer des Arrays : $i" , "\n"; # Nummer des Arrays für Trennung @Aufteilung_Arrays_Werte = splice( @ARGV , 1 , $i - 1 ); # Trennung der Werte } }
Nun möchte ich mir an einem späteren Zeitpunkt des Script diese Time - Stamps im Array @Aufteilung_Arrays_TS anzeigen lassen. Allerdings erhalte
ich immer, wenn ich dies tun will, egal was eine Art Schleife, für Variablen ich benutze, immer diese Sch**** Fehlermeldung :

"Can't use string ("ARRAY(0x265615c)") as an ARRAY ref while "strict refs" in use at C:\PERL\Testumgebung\BLT.pl line 756"

Z.B. bei folgendem :
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

my $test = 0; foreach( @Aufteilung_Arrays_TS ) { for ( my $i = 0; $i <= 0; $i++ ) { print "$Aufteilung_Arrays_TS[$test][0]" , "\n"; } $test++; }
Woran könnte das liegen ? Finde einfach nicht den Fehler.

Ich hoffe, ihr könnt mir hier weiterhelfen.

Vielen Dank im Voraus.

PERLScripter

PS : Das Array @Aufteilung_Arrays_TS kommt nur in diesen 2
Teilen des Code vor & ist als globale Variable definiert,
weil ich das Array ja an eine Sub abgebe.
Last edited: 2014-12-19 17:23:23 +0100 (CET)
- +3 replies
- Raubtier
  
  2014-12-19 17:36
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  @Aufteilung_Arrays_TS = splice( @ARGV , 0 , $i );
  
  Offensichtlich ist das ein 1d-Array von Werten (=Strings), die auf Kommandozeile übergeben werden.
  
  Code (perl): (dl )
  
  print "$Aufteilung_Arrays_TS[$test][0]"
  
  Hier willst du etwas aus einem 2d-Array (bzw. einem Array von Array-Referenzen) ausgeben. Du hast aber nur Strings in dem Array. Abgesehen davon sind die Anführungszeichen hier überflüssig.
  
  Dass dein gesamter Ansatz mit dem Trenner-Text großer Mist ist, hatten wir ja schon im vorherigen Thread gesagt, aber es schadet nicht, das noch einmal zu wiederholen!
  
  Quote
  PS : Das Array @Aufteilung_Arrays_TS kommt nur in diesen 2
  Teilen des Code vor & ist als globale Variable definiert,
  weil ich das Array ja an eine Sub abgebe.
  
  Merkwürdiger Grund, verstehe ich nicht!
  Last edited: 2014-12-19 17:39:12 +0100 (CET)
  - +2 replies
  - Gast PERLScripter
    
    2014-12-19 18:53
    
    Quote
    Dass dein gesamter Ansatz mit dem Trenner-Text großer Mist ist, hatten wir ja schon im vorherigen Thread gesagt, aber es schadet nicht, das noch einmal zu wiederholen!
    
    Danke für den nochmaligen Hinweis. Allerdings zeigt ihr mir leider keinen Weg auf, wie man es besser machen könnte. Dadurch, dass sowohl die Anzahl der Time - Stamps, als auch die Anzahl der Werte je nach Ergebnis immer unterschiedlich ist, habe ich damit ein Problem.
    
    Der Fehler der Zeile 756 entspricht im meinem 2. kleineren Code Ausschnitt
    die 5. Zeile. Muss es nochmal verifizieren. Bin gerade auf dem Weg nach Hause.
    
    Viele Grüße
    PERLScripter
    Last edited: 2014-12-19 20:26:12 +0100 (CET)
    - rosti
      
      2014-12-19 23:11
      
      User since
      2011-03-19
      3752 Artikel
      BenutzerIn
      
      Quote
      Allerdings zeigt ihr mir leider keinen Weg auf, wie man es besser machen könnte.
      
      Gerne doch:
      
      Code (perl): (dl )
      
      1 2 3
      
      use strict; use warnings; use Data::Dumper;
      
      Aber ein bischen nachdenken musst Du schon selbst, was meinst Du, wieviele Iterationen (Schleifendurchläufe) sich mit
      
      Code (perl): (dl )
      
      for ( my $i = 0; $i <= 0; $i++ ){}
      
      ergeben würden?
      
      MfG
      https://www.rolfrost.de/
      
      Forum zu Fragen unserer Zeit
- +5 replies
- Linuxer
  
  2014-12-19 17:44
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Quote
  "Can't use string ("ARRAY(0x265615c)") as an ARRAY ref while "strict refs" in use at C:\PERL\Testumgebung\BLT.pl line 756"
  
  Irgendwo scheinst Du also eine Array-Referenz zu haben; aber eine Zeile 756 finde ich in Deinen Beispielen nicht. Es gibt auch keinen Hinweis, welche der gezeigten Zeilen dieser Zeile 756 entsprechen soll.
  
  Oder übersehe ich da was? So fällt das Fremd-Debugging ohne Glaskugel sehr schwer.
  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!
  - +4 replies
  - Gast PERLScripter
    
    2014-12-19 22:01
    Hi Linuxer,
    
    ich weiss ja, dass der Fehler bei der Übergabe liegt.
    Ich nutze das zugegebenermaßen unschöne
    
    Code: (dl )
    
    system()
    
    für die Übergabe.
    
    Die Werte im Array DB_Rueckgabe_Parameter sind ja
    eindimensional, daher funktioniert die Übergabe.
    
    Dagegen sind die Werte im Array DB_Rueckgabe_TS
    mehrdimesional, da Zeitangaben, hier ein Beispiel :
    
    1. Zeile : 201412051159 201412051201
    2. Zeile : 201412051200 201412051202
    
    Der Code im Sub für die Übergabe :
    
    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
    
    sub DB_Rueckgabe_PS { print "Inhalte fuer die Auswertung : " , "\n"; print "\n"; for ( my $i = 0; $i < @DB_Rueckgabe_Parameter ; $i++ ) { print "$DB_Rueckgabe_Parameter[$i]" , "\n"; } # ----------------------------------------------------------------------------------------------- # # Testumgebung - Neue Features $Anzahl_TS = @DB_Rueckgabe_TS; $DB_Rueckgabe_TS[$Anzahl_TS] = "TRENNER_TS"; $Anzahl_Parameter = @DB_Rueckgabe_Parameter; $DB_Rueckgabe_Parameter[$Anzahl_Parameter] = "TRENNER_WERTE"; # ----------------------------------------------------------------------------------------------- # system( "$Uebergebene_PS.pl" , $Schalter_DB_Rueckgabe , $Uebergebene_PS , $Uebergebene_SSTs , $Uebergebene_MTs , @DB_Rueckgabe_TS , @DB_Rueckgabe_Parameter ); }
    
    Daher ist das @ARGV Array, dass ich im Script "$Uebergebene_PS.pl"
    zerpflücke bzgl. der Time - Stamps ein Problem.
    
    Ich hoffe, das verständlich erklärt & ihr könnt mir helfen.
    
    Viele Grüße
    PERLScripter
    Last edited: 2014-12-19 23:02:02 +0100 (CET)
    - +2 replies
    - hlubenow
      
      2014-12-19 23:23
      
      User since
      2009-02-22
      885 Artikel
      BenutzerIn
      
      Zum Zerteilen nehme ich immer split(), nicht splice():
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      #!/usr/bin/perl use warnings; use strict; my $a = "201412051159 201412051201"; my @b = split(" ", $a); foreach my $i (@b) { print "$i\n"; }
      
      Würde das was bringen (ich seh' nicht richtig durch, was Du überhaupt machen willst)?
      - lichtkind
        
        2014-12-20 00:31
        
        User since
        2004-03-22
        5730 Artikel
        ModeratorIn + EditorIn
        
        würd auch gern wissen was das ziel ist, denn gesamte AoA gibt auch Data::Printer aus und das sehr schön
        mein zeug:, Leute
        
        Es beginnt immer mit einer Entscheidung.
    - rosti
      
      2014-12-20 10:05
      
      User since
      2011-03-19
      3752 Artikel
      BenutzerIn
      
      Zwei Arrays mit variabler Länger zu übergeben erfordert auch eine Überlegung, nämlich die:
      
      Wo hört das eine Array auf und wo fängt das Andere an?
      
      Da steckt die Antwort schon in der Frage: Du brauchst die beiden Längenangaben und genauso einfach wird die Übergabe:
      
      Code (perl): (dl )
      
      @args = ($x, $y, @X, @Y);
      
      Da machst Du zweimal ein shift zum Ermitteln $x, $y (beachte, dass sich dabei die Länge von @args verändert) und mit splice(@args) erhältst Du @X, @Y.
      
      Abstrakt: Diese Überlegung gilt unabhängig davon, ob die Übergabe an system oder an eine Funktion erfolgt. Über Alternativen zum Systemcall hatten wir auch schon gesprochen.
      
      MfG
      https://www.rolfrost.de/
      
      Forum zu Fragen unserer Zeit
- GUIfreund
  
  2014-12-20 13:11
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Möglicherweise kommt dein Problem nicht zuletzt von einem gründlichen Missverständnis von 2-dim. Arrays in Perl. Ich versuche mal die Grundlagen vereinfacht zu erklären.
  
  In Perl gibt es keine 2-dim. Arrays. Statt dessen gibt es Arrays of Arrays (kurz AoA). Das bedeutet, dass die Werte eines AoA keine Zahlen oder Strings sind, sondern Referenzen auf andere Arrays, die dann die eigentlichen Werte enthalten. Beispielsweise ist beim AoA @a der dritte Wert $a[2] eine Ref. auf ein Array. Auf dieses Array kann man auf verschiedene Weise zugreifen, z. B. mit
  
  Code (perl): (dl )
  
  @werte3 = @{$a[2]};
  
  . Natürlich kannst du auch direkt auf die Werte zugreifen, etwa
  
  Code (perl): (dl )
  
  1 2 3
  
  $wert3_7 = $a[2]->[6]; # oder kürzer $wert3_7 = $a[2][6];
  
  Gruß
  GUIfreund

View all threads created 2014-12-19 17:01.