Opened by shaihulud at 2006-04-27 19:50
User since
2006-04-12
76 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-12
76 Artikel
BenutzerIn
&hierarchie($name,@child,@parent);
die subroutine sieht so aus:
so spuckt er nichts aus.. scheint also zu funzen. im moment kann ich das noch nicht nachvollziehn, aber denke das wars.
nur zum verständnis. ich muss in der subroutine aber nicht auch noch
return @parent,@child;
einfügen um diese im hauptprogramm weiter benutzen zu können?
was mich wundert ist dass ich die variablen in der subroutine nochmal definieren muss zb. my @parent = shift; obwohl ich sie im hauptprogramm am anfang doch schon defniert hatte?!
aber wenns so geht gehts eben so..\n\n
<!--EDIT|shaihulud|1146155153-->
die subroutine sieht so aus:
Code: (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
26
27
28
29
30
31
32
sub hierarchie{
use strict;
use warnings;
use File::Basename;
my $suffix = '.a00';
my @dateien = glob("*$suffix");
my @ohneendung;
my @namen;
my $name = shift;
my @n;
my @child = shift;
my @parent = shift;
for my $datei (@dateien) {
my $var = basename($datei,$suffix);
#print "$name\n";
push(@ohneendung,$var);
}
foreach my $ele (@ohneendung){
#print "$ele\n";
if($ele =~ /$name/){
@n = split(/-/,$ele);
if($name eq $n[0]){
#print $name;
push(@child,$n[1]);
}else{
push(@parent,$n[0]);
}
}
}
}so spuckt er nichts aus.. scheint also zu funzen. im moment kann ich das noch nicht nachvollziehn, aber denke das wars.
nur zum verständnis. ich muss in der subroutine aber nicht auch noch
return @parent,@child;
einfügen um diese im hauptprogramm weiter benutzen zu können?
was mich wundert ist dass ich die variablen in der subroutine nochmal definieren muss zb. my @parent = shift; obwohl ich sie im hauptprogramm am anfang doch schon defniert hatte?!
aber wenns so geht gehts eben so..\n\n
<!--EDIT|shaihulud|1146155153-->