Opened by toby at 2006-04-22 13:39
User since
2005-08-29
222 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-08-29
222 Artikel
BenutzerIn
Entschuldige, mir my() funktioniert es ja nicht, aber mit local:
Das funktioniert!
Allerdings weiß ich nicht mehr, wie man 'use strict' miteinbinden
kann damit es auch dann noch funktioniert. :(
Ich werde mich aber nochmal erkundigen.
MfG. Matze
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
#
my $a = "abc";
my $b = "123";
my @a = qw(a b c);
my @b = qw(1 2 3);
subroutine($a,\@a,$b,\@b);
sub subroutine {
local ($sa,*aa,$sb,*ab) = (@_);
print "$sa\n$sb\n";
print "@aa\n@ab\n";
}
Das funktioniert!
Allerdings weiß ich nicht mehr, wie man 'use strict' miteinbinden
kann damit es auch dann noch funktioniert. :(
Ich werde mich aber nochmal erkundigen.
MfG. Matze
Mit freundlichen Grüßen: Matze