This shows you the differences between two versions of the page.
— |
kurs:sub.pl [2014/09/10 21:22] (current) |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | <code> | ||
+ | $a = 3; | ||
+ | $b = 2; | ||
+ | |||
+ | ## printf "%s\n", add($a, $b) ; | ||
+ | |||
+ | @b = (1,2,3,4,5,6); | ||
+ | $r = [1,2,3,4,5,6]; | ||
+ | |||
+ | $h = {a => 1, | ||
+ | b => 2, | ||
+ | }; | ||
+ | |||
+ | print Dumper $h; | ||
+ | |||
+ | printf "array %s %s %s\n", $r->[3], ${@$r}[3], $b[3] ; | ||
+ | printf "hash %s\n", $h->{a}; | ||
+ | |||
+ | ### nicht ### print " $r->[3] \n"; | ||
+ | |||
+ | printf "array %s\n", ref($r) ; | ||
+ | |||
+ | printf "%s\n", add_array($r) ; | ||
+ | print "bin in Zeile " .__LINE__; | ||
+ | |||
+ | exit(0); | ||
+ | |||
+ | sub add_array { | ||
+ | my ($c_ref) = @_; | ||
+ | |||
+ | printf "ref %s\n", ref($c_ref); | ||
+ | |||
+ | |||
+ | my $d; | ||
+ | foreach (@$c_ref) { | ||
+ | $d += $_; | ||
+ | } | ||
+ | $d; | ||
+ | } | ||
+ | |||
+ | |||
+ | sub add { | ||
+ | my ($a, $b) = @_; | ||
+ | my $c = $a+$b; | ||
+ | return $c; | ||
+ | } | ||
+ | </code> | ||