perl und multidimensional arrays (Perl/CGI)

Gast Gast

2004-06-06 14:16

hallo,

ich teste schon ziemlich herum (bin aber eigentlich PHP bereich tätig :))
warum funktioniert folgender code nicht so, wie ich will?
in der .txt stehen daten mit tab getrennt (\s stimmt schon) -> dh: die daten kommen richtig mit split raus -> in ein array schreiben geht auch gut.
aber nun will ich es 2 dimensional dh: jede zeile (array) soll in ein array.
ich hoffe ihr versteht was ich meine...

Code: (dl )

open (FILE,"datei.txt");
$i=0;
foreach $row (<FILE>) {
   $file->[$i] = \split(/\s/,$row);
   $i++;
}

print Dumper($file);
close(FILE);

danke für eure hilfe im voraus!

PS: perl ist strange :)

renee

2004-06-06 14:37

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

open (FILE,"<datei.txt");
my @file = ();
while(my $row = <FILE>) {
  push(@file,[split(/\s/,$row)]);
}
close(FILE);
print Dumper(\@file);

PS: Perl macht Spaß!\n\n

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/

hephaistos

2004-06-06 14:51

User since
2004-06-06
9 Artikel
BenutzerIn
[default_avatar]

[quote=renee,06.06.2004, 12:37][/quote]
hallo!

danke!
aber print Dumper($file) geht nicht, da muss doch @file hin oder?

naja, perl - wers mag :) regex sind cool, aber der rest naja....

ciao

[E|B]

2004-06-06 16:21

User since
2003-08-08
2561 Artikel
HausmeisterIn

Du musst zuerst am Anfang des Scripts Data::Dumper laden:

Code: (dl )

use Data::Dumper;

Dan funtzt auch Dumper. ;)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

hephaistos

2004-06-06 16:32

User since
2004-06-06
9 Artikel
BenutzerIn
[default_avatar]

ja, der hat eh funktioniert - wieso sagst du das?

print Dumper($file) -> geht nicht, da gehört print Dumper(@file) hin.

ciao

renee

2004-06-06 16:41

User since
2003-08-04
14371 Artikel
ModeratorIn

der Fehler ist mir leider erst aufgefallen, als ich den Beitrag gesendet hatte... Konnte ja nicht wissen, dass Du so schnell den Beitrag liest ;)

besser ist es, wenn Du \@file dumpst (statt @file)...

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/

hephaistos

2004-06-06 17:23

User since
2004-06-06
9 Artikel
BenutzerIn
[default_avatar]

ahja \@array ist eine referenz oder?

eine frage noch :)

wie lese ich nun dieses 2D array aus?

dh: 2 verschachtelte for(each) schleifen.

Code: (dl )

foreach @a ( @original ) {
   foreach $b ( @a ) {
      print $b;
   }
}

dh: das @a ist ein array, aber mit @a darf ich die foreach nicht schreiben... gibts auch da wieder einen "push" trick?

danke im voraus!

hephaistos

2004-06-06 17:46

User since
2004-06-06
9 Artikel
BenutzerIn
[default_avatar]

aha - jetzt verstehe ich :)

foreach $a ( @array ) {
print $a ---> zeigt, dass es ein array ist
dann kann ich mit $a->[index] zugreifen.

ok, das verstehe ich jetzt. stimmt doch so oder? gibts da eine "elegante" lösung?

danke,
ciao

hephaistos

2004-06-06 19:12

User since
2004-06-06
9 Artikel
BenutzerIn
[default_avatar]

arhhhhh da freut man sich - und es funktioniert doch nicht :(

bitte kann mir einer sagen, wie ich dieses 2D array auslesen kann? dynamisch natürlich... dh: ich weiß nicht, wieviele einträge es hat.

danke im voraus!

ciao

hephaistos

2004-06-06 19:24

User since
2004-06-06
9 Artikel
BenutzerIn
[default_avatar]

seid mir wirklich nicht böse, aber perl ist wirklich ein "hund" :)
foreach my $a ( @original ) {
foreach my $b ( @$a ) {
print $b;
}
}
----> @$a is ja wohl der hammer oder?

naja, jetzt gehts und ich verstehs :)

thx