|
|
 |
|
|
| Community » Perl: Allgemeines Forum |
|
 Problem Array
|
Seitenanfang |
| Ich habe ein 4 dimensionales Array , das ich gerne ausgeben würde , Das Problem ist, ich weiss nicht wie groß das Array ist und die Felder enthalten sowohl Buchstaben als auch Zahlen ich habe es mir so überlegt das ich das so ausgebe foreach my $ausgabe(@unttericht)
{ print "$ausgabe";
} Aber als Augabe kommen dauern nur ARRAY (0x8d3b32)
ARAAY (0xd... ich will nicht die Adresse ausgeben sondern den Inhalt
Datum: 12.03.2008-11:18
|
re: Problem Array
|
Seitenanfang |
| Das scheint wohl eine beliebte Hausaufgabe zu sein... http://www.perlunity.de/cgi-bin/forum/forum_thread.cgi?tid=20358&mid=41761&fid=8&pn=
Datum: 12.03.2008-12:30
|
re: Problem Array
|
Seitenanfang |
| Nein, keine Hausaufgabe Wir kommen in unserem Projekt nicht weiter und wissen nicht wie wir das Problem angehen sollen.
Datum: 02.04.2008-08:21
|
re: Problem Array
|
Seitenanfang |
| Bitte mal lesen: http://wiki.perl-community.de/bin/view/Wissensbasis/AllgemeinesWieFrageIchbeiPerlCommunity
Datum: 02.04.2008-09:24
|
re: Problem Array
|
Seitenanfang |
| Habs mir durchgelsen.... Ich würde mich aber um eine kleine Hilfe sehr freuen...
Datum: 02.04.2008-11:05
|
re: Problem Array
|
Seitenanfang |
| Wie sieht Dein Code aus? Was ist das Problem? Ich habe unter http://www.perlunity.de/cgi-bin/forum/forum_thread.cgi?tid=20358&mid=41762&fid=8&pn= gepostet wie man Arrays ausgeben kann, bei denen man die Anzahl der Elemente nicht kennt: my @array = ([1,2],[3,4,5],[6,7]);
for my $row ( @array ){
for my $number ( @{ $row } ){
print $number,"\n";
}
print "\n";
}
Datum: 02.04.2008-19:39
|
re: Problem Array
|
Seitenanfang |
my $x;for my $row ( @unttericht ){
for my $number ( @{ $row } ){
$x=$x+20;
$page->stringc($f1,12,400-$x,568-$x,"$number");
#(Schriftart($f1),Schriftgröße,X-Koordinate,Y-Koordinate,"Ausgabe")
#Da ich einen Modul(PDF::Create) verwende muss #ich das so machen
#(http://search.cpan.org/~ftassin/PDF-Create-0.01/lib/PDF/Create.pm)
} } Die die Ausgabe dauerte 4 min lang (weil @unterricht 4 Dimensional ist ?)
und so so aus: ARRAY(0x82e43b0)
ARRAY(0x82e6218)
ARRAY(0x82e0dc1)
ARRAY(0x82e4428)
ARRAY(0x82e54c3)
....
Datum: 09.04.2008-09:08
|
re: Problem Array
|
Seitenanfang |
Du musst noch zwei Ebenen tiefer...my $x = 10;
for my $row ( @unttericht ){
for my $number ( @{ $row } ){
for my $elem ( @$number ){
my $string = join " : ", @$elem;
$x=$x+20;
$page->stringc($f1,12,400-$x,568-$x,$string);
}
}
} (ungetestet)
Datum: 09.04.2008-09:14
|
re: Problem Array
|
Seitenanfang |
Danke für ihre lösung doch
leider ging es nicht, es hat zwar compiliert aber hat keine Ausgabe gemacht.Leider musste ich wieder ca. 4 min warten bis es soweit war.
Auch wenn das geklappt hätte is 4 min zu lange Gibt es keine effiezientere Lösung ?? Kann man das nicht mit einem foreach realisieren ? oder for my $ref1(0..scalar(@unttericht)-1){
for my $ref2(0..scalar(@{$unttericht[$ref1]})-1){ $page->stringc($f1,12,400-$x,568-($ref1*20),"@{$unttericht[$ref1][$ref2]}";
}
}
Datum: 09.04.2008-10:02
|
re: Problem Array
|
Seitenanfang |
| Warum da was nicht funktioniert hat, kann ich mit dem wenigen Code nicht sagen. Genauso sieht es mit der Performance aus. Am besten wäre es, mal ein (fast) komplettes Programm mit Beispieldaten zu posten.
Datum: 10.04.2008-11:13
|
|
|
|
|
|
|
|
|
