Differences

This shows you the differences between two versions of the page.

--- kurs:sub.pl [2014/09/10 21:22]
+++ 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>

dokuwiki