![]() |
|< 1 2 >| | ![]() |
17 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use warnings;
use strict;
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 {
my ($sa,$aa,$sb,$ab) = (@_);
print "$sa\n$sb\n";
print "@$aa\n@$ab\n";
}
1
2
3
4
5
6
7
8
9
10
use vars qw(@MyArray);
@MyArray = 1..10;
print "Before: @MyArray\n";
&Dizzy();
print "After: @MyArray\n";
sub Dizzy {
local @MyArray[4..6];
@MyArray = map { $_ * 2 } @MyArray;
}
![]() |
|< 1 2 >| | ![]() |
17 Einträge, 2 Seiten |