E
Hallo liebe Perler,
ich habe ein kleines Problem. Ich will ein mehrdimensional Struct ab ein Unterprogramm übergeben und es dort bearbeiten. Leider funktioniert das nicht so ganz wie will. Nicht wunder habe erst gestern Angefangen mich mit Perl zu beschäftigen und deswegen ist mir noch so einiges unklar!
Mein jetziger Ansatz lautet so:
im Hauptprogramm:
[...]
use Class::Struct;
struct artikel_info => {
anzahl => '$',
name => '$',
preis => '$',
};
my @myartikel;{
for ($i=0; $i<$Artikel_count; $i++) {
$myartikel[$i] = artikel_info->new();
}
}
for ($i=0; $i<$Artikel_count; $i++) {
if (($i+$j)%2 == 0) {$bgcolor=$light;} else {$bgcolor=$dark;}
&print_Artikel($Artikel[$i],"",$File_no,$i,$myartikel[$i]);
}
[...]
im Unterprogramm:
sub print_Artikel {
my $arrayref = shift;
my $schalter = shift;
my $file_no = shift;
my $i = shift;
my $newref = shift;
my @Artikel = @$arrayref;
my %myartikel = $newref;
#%myartikel->anzahl("test");
print "<!--$arrayref -->\n";
#print "<!--$myartikel",$myartikel->name," -->\n";
print "<!--$schalter -->\n";
print "<!--$file_no -->\n";
print "<!--$i -->\n";
print "<!-- $myartikel[0] -->";
print "<!-- $newref->name -->\n";
print "<!--geht2-->";
$Artikel[3] =~ s/\,/\./;
[...]
Mein Problem besteht darin, das ich nicht weiß ob der Quellcode so wie er jetzt überhaupt richtig (funktionsfähig) ist und wie ich jetzt in den Struct Daten eintragen und auch auslesen kann.
Wie gesagt habe erst die Woche mit Perl angefangen also nicht wunder.
