From 9b9976b5783dfbc1038e92f733608e778aa00078 Mon Sep 17 00:00:00 2001
From: sameerz <sraheja@gmail.com>
Date: Sat, 31 May 2014 21:18:49 -0700
Subject: [PATCH] Perl basics

---
 HelloWorldPerl/.project      | 17 +++++++++
 HelloWorldPerl/HelloWorld.pl | 67 ++++++++++++++++++++++++++++++++++++
 2 files changed, 84 insertions(+)
 create mode 100644 HelloWorldPerl/.project
 create mode 100644 HelloWorldPerl/HelloWorld.pl

diff --git a/HelloWorldPerl/.project b/HelloWorldPerl/.project
new file mode 100644
index 0000000..9956fdc
--- /dev/null
+++ b/HelloWorldPerl/.project
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>HelloWorldPerl</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+		<buildCommand>
+			<name>org.epic.perleditor.perlbuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+	</buildSpec>
+	<natures>
+		<nature>org.epic.perleditor.perlnature</nature>
+	</natures>
+</projectDescription>
diff --git a/HelloWorldPerl/HelloWorld.pl b/HelloWorldPerl/HelloWorld.pl
new file mode 100644
index 0000000..4670c08
--- /dev/null
+++ b/HelloWorldPerl/HelloWorld.pl
@@ -0,0 +1,67 @@
+#/usr/bin/perl -w
+
+use strict;
+
+print "Hello\n";
+
+my @array=('a','b','c');
+
+print @array;
+print "\n";
+print "@array\n";
+
+my %x=(a=>1, b=>'asdf', c=>3);
+
+print "%x\n";
+print "$x{a}\n";
+foreach (sort keys %x) {
+	print $_;
+}
+print "\n";
+my @array=(1,2,3,4,5,6,7,8,9,10);
+print @array, "\n";
+
+sub factorial {
+	my $x = @_[0];
+	if($x==0) {
+		return 1;
+	}
+	else {
+		return $x * factorial ($x - 1)
+	}
+}
+
+my $i; 
+my @factorial_result;
+foreach $i (1..10) {
+	push @factorial_result, factorial($i);
+}
+
+print "factorial: ", join(", ", @factorial_result), "\n";
+
+sub fibonacci {
+	my $number_of_terms = @_[0];
+	my $current = 0;
+	my $prev = 0;
+	my $next = 1;
+	my $counter;
+	my @result_array; 
+	for ($counter = 0; $counter < $number_of_terms; $counter++) {
+		if($counter <= 1) {
+			$current = $counter;
+		}
+		else {
+			$current = $prev + $next;
+			$prev = $next; 
+			$next = $current; 
+		}
+		#print $current;
+		push @result_array, $current; 
+	}
+	return \@result_array;
+}
+
+my $fibonacci_result = fibonacci(10);
+print "fibonacci: ", join(", ", @{$fibonacci_result});
+
+__END__