Array mit Werten auffüllen (Allgemeines zu Perl)

[thread]15738[/thread]

Array mit Werten auffüllen

Leser: 27

Articles: hide open all | hide show old branches

+17 replies

sebi85

2010-12-14 11:41

User since
2010-10-27
13 Artikel
BenutzerIn
[default_avatar]

Folgendes Array ist vorgegeben:

Code: (dl )

tmp_container[0]->[0]->[0] = CIS
tmp_container[0]->[0]->[1] = P1
tmp_container[0]->[0]->[2] = [b]A1[/b]
tmp_container[0]->[1]->[0] = off
tmp_container[0]->[2]->[0] = AAA
tmp_container[0]->[2]->[1] = xxx
tmp_container[0]->[3]->[0] = on
------------------------------------
tmp_container[1]->[0]->[0] = AAA
tmp_container[1]->[0]->[1] = yyy
tmp_container[1]->[1]->[0] = on
------------------------------------
tmp_container[2]->[0]->[0] = AAA
tmp_container[2]->[0]->[1] = zzz
tmp_container[2]->[1]->[0] = on
------------------------------------
tmp_container[3]->[0]->[0] = BBB
tmp_container[3]->[0]->[1] = xxx
tmp_container[3]->[1]->[0] = on
------------------------------------
tmp_container[4]->[0]->[0] = BBB
tmp_container[4]->[0]->[1] = yyy
tmp_container[4]->[1]->[0] = on
------------------------------------
tmp_container[5]->[0]->[0] = BBB
tmp_container[5]->[0]->[1] = zzz
tmp_container[5]->[1]->[0] = on
------------------------------------
tmp_container[6]->[0]->[0] = CIS
tmp_container[6]->[0]->[1] = P1
tmp_container[6]->[0]->[2] = [b]A2[/b]
tmp_container[6]->[1]->[0] = off
tmp_container[6]->[2]->[0] = AAA
tmp_container[6]->[2]->[1] = xxx
tmp_container[6]->[3]->[0] = on
------------------------------------
tmp_container[7]->[0]->[0] = AAA
tmp_container[7]->[0]->[1] = yyy
tmp_container[7]->[1]->[0] = on
------------------------------------
tmp_container[8]->[0]->[0] = AAA
tmp_container[8]->[0]->[1] = zzz
tmp_container[8]->[1]->[0] = on
------------------------------------
tmp_container[9]->[0]->[0] = BBB
tmp_container[9]->[0]->[1] = xxx
tmp_container[9]->[1]->[0] = on
------------------------------------
...
...
...

Bei dem 1. Index der "ersten Dimension" sind 7 Werte vorhanden.
Ab dem 2. Index (tmp_container[1]......) sind aber jeweils nur 3 Werte (z.B. AAA, yyy, on) vorhanden. Nun möchte ich, die 4 Werte (z.B. CIS, P1, A1, off) aus dem 1. Index vor die 3 Werte z.B. AAA, yyy, on) der anderen Indexe Kopieren.

Das soll natürlich nicht nur mit 7 und 3 Werten funktionieren, sonden mit beliebigen Werten.

Kann mir da jemand weiterhelfen. Ich komme einfach nicht weiter.

+2 replies
styx-cc

2010-12-14 11:59

User since
2006-05-20
533 Artikel
BenutzerIn

An welcher Stelle kommst du denn nicht weiter?
Zeig mal deinen Code her, denn wenigstens etwas Muehe solltest du dir auch selber machen.

MfG
Pörl.
- sebi85
  
  2010-12-14 12:13
  User since
  2010-10-27
  13 Artikel
  BenutzerIn
  Ich habe eine 3-fach verschachtelte Schleife. In der wollte ich überprüfen, ob
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  for(my $r=0;$r<@tmp_container;$r++){ for(my $s=0;$s<@{$tmp_container[$r]};$s++){ for(my $t=0;$t<@{$tmp_container[$r]->[$s]};$t++) { if(@{$tmp_container[$r-1]} > @{$tmp_container[$r]}){ unshift(@{$tmp_container[$r]}, $tmp_container->[$r-1]->[$s]->[$t]); } } } }
  
  Allerdings vergleich ich mit dem if die Anzahl der Indexe der 2. Dimension. Aber ich kann ja nicht die Indexe der "1. Dimension vergleichen". Mit dem Unshift habe ich auch das Problem, dass immer wein Wert hinzugefügt wird und damit habe ich eine Endlosschleife.
+14 replies

Gast wer

2010-12-14 12:11

Aus der Hüfte ungetestet:

Code (perl): (dl )

my @add;
for my $arr (@tmp_container)
{
  if(@{$arr->[0]}>2)
  {
    my @val1=@{$arr->[0]};
    my @val2=@{$arr->[1]};
    @add=[\@val1,\@val2];
  }
  else
  {
    unshift(@{$arr},@add);
  }
}

Last edited: 2010-12-14 12:16:02 +0100 (CET)

+13 replies

Gast wer

2010-12-14 12:24

fehler in zeile 8:

Code (perl): (dl )

@add=(\@val1,\@val2);

Last edited: 2010-12-14 12:48:22 +0100 (CET)

+12 replies

Taulmarill

2010-12-14 13:28

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

Dein Code erzeugt Referenzen, die innerhalb des Arrays doppelt vorkommen wenn mehrmals eingefügt wird. Folgender Code fügt die Werte und nicht die Referenzen in den Array @tmp_container ein:

Code (perl): (dl )

my @add;
for my $arr (@tmp_container) {
    if( @{$arr->[0]} > 2 ) {
        my @val1 = @{$arr->[0]};
        my @val2 = @{$arr->[1]};
        @add=(\@val1,\@val2);
    }
    else {
        unshift( @{$arr}, [ @{$add[0]} ], [ @{$add[1]} ]);
    }
}

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

+11 replies

sebi85

2010-12-14 13:47

User since
2010-10-27
13 Artikel
BenutzerIn
[default_avatar]

Bei beiden Lösungen verliere ich aber eine Dimension.
Diese brauche ich abee. Denn die Werte müssen unbedingt wieder in das @tmp_container Array.

Das @tmp_container Array wird in einer Schleife befüllt und nach jedem Schleifendurchlauf soll weiter aufgefüllt werden.

Code (perl): (dl )

for(my $j=0;$j<@{$PA_ARRAY_FKT[$indexFunction]};$j++)
{
        for(my $k=0;$k<@{$PA_ARRAY_FKT[$indexFunction]->[$indexParameter]};$k)
        {
        $CONTAINER[$indexFunction]->[$indexParameter]->[$INDEX_ARRAY_PARAM[$indexFunction]->[$indexParameter]] = $PA_ARRAY_FKT[$indexFunction]->[$indexParameter]->[$INDEX_ARRAY_PARAM[$indexFunction]->[$indexParameter]];
                                                
        #--- ist der aktuelle Parameter der letzte ---------------------------------------------------------------
        if(($indexParameter+1) >= @{$PA_ARRAY_FKT[$indexFunction]} )
                                                {
        #--- Ist der aktuelle ParameterWert der letzte ---------------------------------------------------------------
        if(($INDEX_ARRAY_PARAM[$indexFunction]->[$indexParameter]+1) >= @{$PA_ARRAY_FKT[$indexFunction]->[$j]} ) {
            $tmp_container[$a]->[$b]->[$c] = $PA_ARRAY_FKT[$indexFunction]->[$indexParameter]->[$INDEX_ARRAY_PARAM[$indexFunction]->[$indexParameter]];
...
...
...
#Dann soll das Array aufgefüllt werden.
#Im nächsten Durchlauf kommen neue Werte hinzu
#und hier muss ggf. auch aufgefüllt werden

+9 replies

Gast wer

2010-12-14 13:51

2010-12-14T12:47:24 sebi85
Bei beiden Lösungen verliere ich aber eine Dimension.

Ausprobiert? Ich bin anderer Meinung.
Last edited: 2010-12-14 13:56:39 +0100 (CET)

+8 replies

sebi85

2010-12-15 08:39

User since
2010-10-27
13 Artikel
BenutzerIn
[default_avatar]

Mache ich danach folgende Ausgabe:

Code (perl): (dl )

1
2
3

print "\n1: ".$add[0]."\n";
print "\n2: ".$add[0]->[0]."\n";
print "\n3: ".$add[0]->[0]->[0]."\n";

dann kommt foglendes raus:
1: ARRAY(0x1e14134)
2: CIS
Can't use string ("CIS") as an ARRAY ref while "strict refs" in use at parseXMLDom.pl line 939.

Vorher hatte ich:
[]->[]->[] = CIS
jetzt habe ich
[]->[] = CIS

Da fehlt eine Dimension. Zudem muss ich die Werte auch wieder in alte Arary bekommen.

+7 replies

Gast wer

2010-12-15 09:32

Missverständis des Code. "@add" enthält temporäre Werte, die in "@tmp_container" ergänzt werden wenn sie fehlen:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @tmp_container=();

$tmp_container[0]->[0]->[0] = 'CIS';
$tmp_container[0]->[0]->[1] = 'P1';
$tmp_container[0]->[0]->[2] = 'A1';
$tmp_container[0]->[1]->[0] = 'off';
$tmp_container[0]->[2]->[0] = 'AAA';
$tmp_container[0]->[2]->[1] = 'xxx';
$tmp_container[0]->[3]->[0] = 'on';
#------------------------------------
$tmp_container[1]->[0]->[0] = 'AAA';
$tmp_container[1]->[0]->[1] = 'yyy';
$tmp_container[1]->[1]->[0] = 'on';
#------------------------------------
$tmp_container[2]->[0]->[0] = 'AAA';
$tmp_container[2]->[0]->[1] = 'zzz';
$tmp_container[2]->[1]->[0] = 'on';
#------------------------------------
$tmp_container[3]->[0]->[0] = 'BBB';
$tmp_container[3]->[0]->[1] = 'xxx';
$tmp_container[3]->[1]->[0] = 'on';
#------------------------------------
$tmp_container[4]->[0]->[0] = 'BBB';
$tmp_container[4]->[0]->[1] = 'yyy';
$tmp_container[4]->[1]->[0] = 'on';
#------------------------------------
$tmp_container[5]->[0]->[0] = 'BBB';
$tmp_container[5]->[0]->[1] = 'zzz';
$tmp_container[5]->[1]->[0] = 'on';

#------------------------------------
$tmp_container[6]->[0]->[0] = 'CIS';
$tmp_container[6]->[0]->[1] = 'P1';
$tmp_container[6]->[0]->[2] = 'A2';
$tmp_container[6]->[1]->[0] = 'off';
$tmp_container[6]->[2]->[0] = 'AAA';
$tmp_container[6]->[2]->[1] = 'xxx';
$tmp_container[6]->[3]->[0] = 'on';
#------------------------------------
$tmp_container[7]->[0]->[0] = 'AAA';
$tmp_container[7]->[0]->[1] = 'yyy';
$tmp_container[7]->[1]->[0] = 'on';
#------------------------------------
$tmp_container[8]->[0]->[0] = 'AAA';
$tmp_container[8]->[0]->[1] = 'zzz';
$tmp_container[8]->[1]->[0] = 'on';
#------------------------------------
$tmp_container[9]->[0]->[0] = 'BBB';
$tmp_container[9]->[0]->[1] = 'xxx';
$tmp_container[9]->[1]->[0] = 'on';
#------------------------------------

#print Dumper(\@tmp_container);

my @add;
for my $arr (@tmp_container)
{
  if(@{$arr->[0]}>2)
  {
    @add=($arr->[0],$arr->[1]);
  }
  else
  {
    my @add1=@{$add[0]};
    my @add2=@{$add[1]};
    unshift(@{$arr},\@add1,\@add2);
  }
}

#print Dumper(\@tmp_container);

print "\n1: ".$tmp_container[0]."\n";
print "\n2: ".$tmp_container[0]->[0]."\n";
print "\n3: ".$tmp_container[0]->[0]->[0]."\n";

print "\n1: ".$tmp_container[1]."\n";
print "\n2: ".$tmp_container[1]->[0]."\n";
print "\n3: ".$tmp_container[1]->[0]->[0]."\n";

print "\n1: ".$tmp_container[2]."\n";
print "\n2: ".$tmp_container[2]->[0]."\n";
print "\n3: ".$tmp_container[2]->[0]->[0]."\n";

Last edited: 2010-12-15 09:55:28 +0100 (CET)

+6 replies
sebi85

2010-12-15 10:57

User since
2010-10-27
13 Artikel
BenutzerIn

Es funktioniert jetzt wunderbar.

Vielen Dank an alle.
- +5 replies
- sebi85
  
  2011-01-10 10:55
  User since
  2010-10-27
  13 Artikel
  BenutzerIn
  Ich habe da doch nich ein Problem.
  
  Ich möchte folgendes variabel haben:
  
  Code (perl): (dl )
  
  1 2 3
  
  my @add1=@{$add[0]}; my @add2=@{$add[1]}; unshift(@{$arr},\@add1,\@add2);
  
  In diesem Fall werden immer zwei Werte aufgefüllt, es sollen aber 1-unendlich aufgefüllt werden.
  Ich hätte jetzt die Arrays dynamisch erzeugt (z. B. @add+$i).
  Allerdings ist das nicht die feine Lösung.
  
  Was gibts für Alternativen?
  
  Ich habe jetzt folgendes versucht, leider ohne Erfolg:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  my @val; if(...){ for(my $x=0;$x<(@PA_ARRAY_FKT-2);$x++) { $val[$x] = @{$arr->[$x]}; print "\n1: val[$x] = ".@{$arr->[$x]}."\n"; @add = (\@val); } else { for(my $x=0;$x<@add;$x++) { unshift( @{$arr}, [ @{$add[0]} ], [ @{$add[1]} ]); } }
  
  Last edited: 2011-01-10 11:19:37 +0100 (CET)
  - +4 replies
  - clms
    
    2011-01-10 13:17
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    2011-01-10T09:55:36 sebi85
    Ich möchte folgendes variabel haben:
    
    Code (perl): (dl )
    
    1 2 3
    
    my @add1=@{$add[0]}; my @add2=@{$add[1]}; unshift(@{$arr},\@add1,\@add2);
    
    In diesem Fall werden immer zwei Werte aufgefüllt, es sollen aber 1-unendlich aufgefüllt werden.
    
    Habe ich es recht verstanden:
    @add enthält Referenzen auf Arrays. Davon sollen die Arrays 0 bis N kopiert und vor die Liste @{$arr} gehängt werden?
    
    Dann probier doch mal (untested)
    
    Code (perl): (dl )
    
    1 2
    
    my $n = ...; # max index unshift @{$arr}, map {[@{$add[$_]}]} (0..$n),
    
    map {...} kopiert für jeden Index den Inhalt von @{$add[$_]} in ein annonymes Array. Anschließend werden diese Arrays vor @{$arr} gehängt.
    
    BTW:
    2011-01-10T09:55:36 sebi85
    
    Code (perl): (dl )
    
    for(my $x=0;$x<(@PA_ARRAY_FKT-2);$x++)
    
    Gewöhn' Dir mal die C-Style-for-Schleifen ab.
    Wir schreiben hier Perl. Da geht es deutlich eleganter und lesbarer.
    - +3 replies
    - sebi85
      
      2011-01-12 16:56
      
      User since
      2010-10-27
      13 Artikel
      BenutzerIn
      
      Wie kann ich dann aber das $arr auf den nächsten Wert setzen?
      Wie kann ich in den verschachteteln for-schleife die äußerste auf den nächsten wert setzen?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      for my $arr (@tmp_container) { for() { for() { zum nächsten $arr } } }
      - renee
        
        2011-01-12 17:03
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Mit Labeln:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        COUNTER: for my $counter ( @values ) { ELEM: for my $elem ( @array ) { next COUNTER; } }
        
        Ich benutze für die Label immer die Namen wie für die Laufvariable. Dann kann ich das besser zuordnen. Ist aber kein Muss!
        
        Nur besondere Wörter wie "CHECK", "INIT", "BEGIN" darf man nicht nehmen (zumindest ab Perl 5.12).
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
      - Linuxer
        
        2011-01-12 17:04
        
        User since
        2006-01-27
        3881 Artikel
        HausmeisterIn
        
        Du kannst Labels verwenden...
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        OUTSIDE: for my $x ( 1 ..3 ) { INSIDE: for my $y ( 'a' .. 'c' ) { print "$x : $y\n"; next OUTSIDE if $y eq 'b'; } }
        
        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!

Taulmarill

2010-12-14 13:52

User since
2004-02-19
1750 Artikel
BenutzerIn

Hm... ich verliere hier keine Dimensionen. Gib doch mal Soll- und Istzustand mit Data::Dumper aus (Ausgabe bitte auf ein angenehmes Maß kürzen), damit es einfacher wird, das Problem zu verstehen.
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2010-12-14 11:41.