Opened by Gast at 2006-05-02 15:55
User since
2006-04-14
72 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-14
72 Artikel
BenutzerIn
bin echt am ende meines lateins... ich hab schon geschafft gehabt klassenobjekte zu füllen und dann auszugeben, da hatte ich aber noch nicht die datei main.pl geschrieben in der ich den funktionsaufruf für functions.pm hab.
functions.pm
main.pl
ich krieg die ausgabe einfach nicht hin..\n\n
<!--EDIT|Noisebreath|1146823824-->
functions.pm
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub functions {
use lib qw /./;
use strict;
use warnings;
use DOCUMENT;
use material;
my $document = shift;
my $datei = shift;
$$document = DOCUMENT->new();
@{$document->spalteninfo(\@array)};
$$document->name(\$name);
&get_hierarchie(\$name,\@child,\@parent);
&get_format(\$doc_format);
#print "$doc_format";
${$document->doc_format(\$doc_format)};
@{$document->child(\@child)};
@{$document->parent(\@parent)};main.pl
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for my $datei (@dateien) {
my $document;
&functions(\$document,\$datei);
push(@documentlist,$document);
}
foreach my $ele (@documentlist){
print "spalteninfo:\t";
print @{$ele->spalteninfo()};
print "\n";
print "parent:\t";
print @{$ele->parent()};
etc.....
print "--------------------\n";
}ich krieg die ausgabe einfach nicht hin..\n\n
<!--EDIT|Noisebreath|1146823824-->