Update eines mehrdimensionalen Arrays (Allgemeines zu Perl)

[thread]16747[/thread]

Update eines mehrdimensionalen Arrays

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+4 replies

peterb

2011-09-22 15:25

User since
2010-05-19
42 Artikel
BenutzerIn
[default_avatar]

Hallo

Irgendwie komme ich nicht darauf wie splice in einem mehrdimensionalen Array funktioniert. Ist das überhaupt geeignet oder gibt es einen anderen Weg ? Ich möchte eigentlich nur den Nachnamen in diesem Array ändern und hoffe jemand kann mir dabei helfen.

Code: (dl )

use warnings;
use strict;

my @name1 = qw(Peter Bauer 32);
my @name2 = qw(Marie Fink 43);
my $name = "Peter";

my @namen_2d = (\@name1, \@name2);

for (my $i=0; $i<=$#namen_2d; $i++){
	print "$namen_2d[$i][0], $namen_2d[$i][1], $namen_2d[$i][2]\n";
}	

print "\n";

for (my $i=0; $i<=$#namen_2d; $i++){
	if ($namen_2d[$i][0] eq $name){
		print "Peter gefunden\n";
		splice(@namen_2d,$i,1,"Bauer-Weider")
	}
}

for (my $i=0; $i<=$#namen_2d; $i++){
	print "$namen_2d[$i][0], $namen_2d[$i][1], $namen_2d[$i][2]\n";
}

Vielen Dank
Peter

Taulmarill

2011-09-22 15:39

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

Warum nicht statt splice folgendes?

Code (perl): (dl )

$namen[$i][1] = "Bauer-Weidner";

edit:
Hier mal ein Beispiel wie ich das ganze etwas perlischer aufbauen würde:

Code (perl): (dl )

use warnings;
use strict;

my @verzeichnis = (
    {
        vorname  => 'Peter',
        nachname => 'Bauer',
        alter    => 32,
    },
    {
        vorname  => 'Marie',
        nachname => 'Fink',
        alter    => 43,
    },
);

my $name = "Peter";

print join( " ", @{$_}{qw/vorname nachname alter/} ) . "\n" for @verzeichnis;

for my $person ( @verzeichnis ) {
    if ($person->{vorname} eq $name) {
        print "Peter gefunden\n";
        $person->{nachname} = "Bauer-Weider";
    }
}

print join( " ", @{$_}{qw/vorname nachname alter/} ) . "\n" for @verzeichnis;

Last edited: 2011-09-22 15:52:00 +0200 (CEST)

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

+2 replies
Sven_123

2011-09-22 17:07
User since
2010-06-01
120 Artikel
BenutzerIn
Falls du das gleiche aus irgendwelchen Gründen doch per splice machen möchtest:
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

use warnings; use strict; my @name1 = qw(Peter Bauer 32); my @name2 = qw(Marie Fink 43); my $name = "Peter"; my @namen_2d = (\@name1, \@name2); for (my $i=0; $i<=$#namen_2d; $i++){ print "$namen_2d[$i][0], $namen_2d[$i][1], $namen_2d[$i][2]\n"; } print "\n"; for (my $i=0; $i<=$#namen_2d; $i++){ if ($namen_2d[$i][0] eq $name){ print "Peter gefunden\n"; splice(@{$namen_2d[$i]},1,1,"Bauer-Weider") } } for (my $i=0; $i<=$#namen_2d; $i++){ print "$namen_2d[$i][0], $namen_2d[$i][1], $namen_2d[$i][2]\n"; }
Generell gibt es in Perl keine wirklichen 2D-Arrays. In @name_2d stehen nur Referenzen auf die anderen beiden Arrays (siehe Zeile 8 - du kannst danach auch mal ein 'print "@name_2d\n";' reinsetzen). In dem splice-Befehl (Zeile 19) übergibst du jetzt den Array @namen_2d und willst das Element $i des Arrays, also eine Arrayreferenz ersetzen, was nicht richtig ist.
Du musst ihm als den zu bearbeitenden Array eigentlich @name1 übergeben. Dazu kannst du die Arrayreferenz $name_2d[0] mit @{} dereferenzieren, also aus ihr wieder einen Array machen. Der Nachname steht da an erster Stelle, also statt $i die 1.
- Gast peterb
  
  2011-09-23 06:40
  
  Danke
  Last edited: 2011-09-23 07:37:22 +0200 (CEST)

View all threads created 2011-09-22 15:25.