method wechsle_liste ($gewaehlte_liste) {
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
perl -wE'
"test" =~ m/(e)/; # $1 = e
foo($1);
sub foo {
"bla" =~ m/(a)/; $1 = a
my ($param) = @_;
say $param;
}
my $x = 23;
bar($x);
sub bar {
$x++;
my ($param) = @_;
say $param;
}
'
a
24
1
2
3
4
5
6
7
perl -wE'
my $string = "test";
$string =~ m/(e)/g; # $1 = e
$string = "TEST";
say $1;
'
E