From 63889cdac3122bf6dee9ac406c4b4835b3c5594f Mon Sep 17 00:00:00 2001
From: Dan Buch <daniel.buch@gmail.com>
Date: Tue, 4 Jan 2011 21:32:44 -0500
Subject: [PATCH] more fun with operators

---
 cli/operators.pl | 39 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 37 insertions(+), 2 deletions(-)

diff --git a/cli/operators.pl b/cli/operators.pl
index 090a712..2d247d3 100644
--- a/cli/operators.pl
+++ b/cli/operators.pl
@@ -51,13 +51,48 @@ print '$a = ';
 my $a = <STDIN>;
 print '$b = ';
 my $b = <STDIN>;
+print '$c = ';
+my $c = <STDIN>;
+
+
+my $ncookies = 0;
+
+sub printcookies {
+    print "I like cookies " . $ncookies++ . "\n";
+}
 
 
 if ($a == 5 && $b == 2) {
-    print "I like cookies\n";
+    printcookies();
 }
 
 
 if ($a == 5 && $b == 2 || $c == 2) {
-    print "I like cookies\n";
+    printcookies();
+}
+
+
+if ($a == 5 and ($b == 2 || $c == 3)) {
+    printcookies();
+}
+
+
+if ($a == 5 && $b == 2 or $c == 3) {
+    printcookies();
+}
+
+
+if ($a == 5 && $b == 2 or $c == 3) {
+    printcookies();
+}
+
+
+if (($a == 5 && $b == 2) or $c == 3) {
+    printcookies();
+}
+
+
+($a, $b) = (5, 2);
+if ($a == 4 && $b < 3) {
+    printcookies();
 }