HowProgrammingWorks · ffluffyhedgehog · ffluffyhedgehog · ffluffyhedgehog · Jun 8, 2017 · ffluffyhedgehog
diff --git a/Perl_5/1-simple.pl b/Perl_5/1-simple.pl
+}
+# everytime shift is called inside a function without array passed to shift operator
+# it returns next argument
+# note that shift is an operator, so it thinks of things next to it as of its arguments
diff --git a/Perl_5/1-simple.pl b/Perl_5/1-simple.pl
+sub inc1 {
+	return 1 + shift;
+}
+# everytime shift is called inside a function without array passed to shift operator
diff --git a/Perl_5/1-simple.pl b/Perl_5/1-simple.pl
+print inc2(2); # returns 3
+print inc3(2); # returns 2 (look in comments near function definition)
+print sum(1, 2); # returns 3
+#print sum(1, 2, 3); # produces an error. Uncomment and try it!
diff --git a/Perl_5/2-scopes.pl b/Perl_5/2-scopes.pl
+
+use strict;
+# in original repo this file is named "context"
+# i take the responsibility to rename it to "scopes"
diff --git a/Perl_5/2-scopes.pl b/Perl_5/2-scopes.pl
+
+my @cities = ("Athens", "Roma", "London", "Beijing", "Kiev", "Riga");
+
+my $f = sub {return scalar @_;};
diff --git a/Perl_5/5-default.pl b/Perl_5/5-default.pl
+orDef(1, 2);
+orDef(1);
+orDef(1, 0);
+
diff --git a/Perl_5/4-introspection.pl b/Perl_5/4-introspection.pl
@@ -0,0 +1,4 @@
+#!/usr/bin/perl
+
+print "Actually, perl cant introspect functions :(\n";
diff --git a/Perl_5/6-spread.pl b/Perl_5/6-spread.pl
+use Data::Dumper;
+# spread operator is not needed in perl
+# because only way for us to get our params is through array
+# but i'll show how to iterate through params
diff --git a/Perl_5/8-method.pl b/Perl_5/8-method.pl
+	return $a + $b;
+}
+
+# declarement of package is between package statements.
diff --git a/Perl_5/9-self.pl b/Perl_5/9-self.pl
+
+use strict;
+use Data::Dumper;
+# i take the responsibility to rename this chapter too
diff --git a/Perl_5/1-simple.pl b/Perl_5/1-simple.pl
+use strict;
+use v5.10;
+
+# everytime shift is called inside a function without array passed to shift operator
diff --git a/Perl_5/1-simple.pl b/Perl_5/1-simple.pl
+
+# everytime shift is called inside a function without array passed to shift operator
+# it returns next argument
+# note that shift is an operator, so it thinks of things next to it as of its arguments
diff --git a/Perl_5/10-lvalue.pl b/Perl_5/10-lvalue.pl
+use strict;
+use v5.10;
+
+
diff --git a/Perl_5/4-introspection.pl b/Perl_5/4-introspection.pl
@@ -0,0 +1,4 @@
+#!/usr/bin/perl
+
+print "Actually, perl cant introspect functions :(\n";
diff --git a/Perl_5/4-introspection.pl b/Perl_5/4-introspection.pl
+#!/usr/bin/perl
+
+print "Actually, perl cant introspect functions :(\n";
+
diff --git a/Perl_5/6-spread.pl b/Perl_5/6-spread.pl
+use Data::Dumper;
+# spread operator is not needed in perl
+# because only way for us to get our params is through array
+# but i'll show how to iterate through params
diff --git a/Perl_5/1-simple.pl b/Perl_5/1-simple.pl
 # it returns next argument
-# note that shift is an operator, so it thinks of things next to it as of its arguments
+# note that shift is a fucntion that awaits arguments
diff --git a/Perl_5/4-introspection.pl b/Perl_5/4-introspection.pl
@@ -1,4 +0,0 @@
-#!/usr/bin/perl

		my @cities = ("Athens", "Roma", "London", "Beijing", "Kiev", "Riga");

		my $f = sub {return scalar @_;};
		@@ -0,0 +1,4 @@
		#!/usr/bin/perl

		print "Actually, perl cant introspect functions :(\n";