New Folder

Author: omps

arrays.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+print "content-type: text/html \n\n";#HTTP HEADER
+
+# DEFINE AN ARRAY
+@coins = ("Quarter","Dime","Nickel");
+
+# PRINT THE ARRAY
+print "@coins";
+print "<br />";
+print @coins;

arrays.pl~

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+print "content-type: text/html \n\n";#HTTP HEADER
+
+# DEFINE AN ARRAY
+@coins = ("Quarter","Dime","Nickel");
+
+# PRINT THE ARRAY
+print "@coins";
+print "<br />";
+print @coins;

typtd/typ21days4_q1.pl

@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+$one = 0;
+$two = 0;
+
+print ' Enter a range boundry: ';
+chomp($one = <STDIN>);
+print ' Enter the other range boundry: ';
+chomp($two = <STDIN>);
+
+if ($one < $two) {
+    @array = ($one .. $two);
+} else {
+	@array = ($two .. $one);
+}
+
+print "@array\n";

typtd/typ21days4_q2.pl

@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+# Script which prompt you for two arrays and then creates a third array that contains only the element prenset in the first two( the intersection of those arrays
+
+$in = ''; #temo input
+@array1 =  ();
+@array2 = ();
+@final = ();
+
+print 'Enter the first array: ';
+chomp($in = <STDIN>);
+@array1 = split(' ', $in);
+print 'Enter the second array: ';
+chomp($in = <STDIN>);
+@array2 = split(' ', $in);
+
+foreach $el (@array1) {
+    foreach $el2 (@array2) {
+	if (defined $el2 && el eq $el2) {
+	    $final[$#final+1];
+	    undef el2;
+	    last;
+	}
+    }
+}