[urisagit/CMS-Simple.git] / make_slides / output / page-0101.html

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN"
        "http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
<HEAD>

<TITLE></TITLE>
<LINK REL="stylesheet" HREF="book.css" TYPE="text/css">

</HEAD>


<BODY id="" >
	<div id="header_enclosure">

		
		<H1>
		<div align="center" id="page_header_title">Donna's Homework
</div>
		</H1>
		

		<A id=next_link href="page-0102.html">Next</A>
	

		<A id=index_link href="index.html">Index</A>
	

<HR>

	
	</div>

	<div id="body_enclosure">

		
	<UL>

	
		<div class="item">
		<LI>
		
			<div class="item_title"></div>
		

			<div class="code">
				<font size=+1><PRE>


# 3. CallMain1.pl

package CallMain1;

# This version imports the subs with explict args to use command 

use strict;
use Data::Dumper;

use NewArray1 qw( loadarr printarr);

my $data_file= &quot;data.txt&quot;;
	
my $AofA = loadarr($data_file);

my ($aref, $hold) = printarr($AofA);	

print &quot;\nThe row with the largest number is: \n&quot; ;
print Dumper $aref;
	
print &quot;\nThe largest number is: \n&quot; ;	
print Dumper $hold;		
	
print &quot;\nProgram Complete:  Array of Array's \n&quot; ;		

use NewHash1 qw( loadhash printhash);

my $hdata_file= &quot;hdata.txt&quot;;
	
my $HofH = loadhash($hdata_file);

printhash($HofH);	


# 4. NewArray1.pm

package NewArray1;

use strict;
use Data::Dumper;

use base 'Exporter';
use vars '@EXPORT_OK';

@EXPORT_OK = qw( loadarr printarr );

sub loadarr {
	
	my ($fh) = @_;
		
	open DAT, &quot;$fh&quot; || die &quot;Could not open file! ($!)&quot;;

	print &quot;\nProgram Homework1:  Array of Array's \n&quot; ;		
	
	my $AofA ;
	my $hold = 0;
	my $aref;
	
	while (my $line = &lt;DAT&gt;) {  
		push @{$AofA},  [split(&quot; &quot;, $line)];
	}
	print &quot;\nThe Array of Array's contains: \n&quot; ;		
	print Dumper @{$AofA}; 

 	return ($AofA);		
}

sub printarr {
	
	my $hold;
	my $ele;
	my $aref;
	
	my ($AofA) = @_;
	
	foreach my $Arr ( @{$AofA}  ) {	
		foreach my $ele ( @{$Arr} ) {
				if ($ele &gt; $hold) {
					$aref = $Arr;
					$hold = $ele;
			}		
		}
	}
	
	return ($aref, $hold);		

}

# 5. NewHash1.pm

package NewHash1;

use strict;
use Data::Dumper;

use base 'Exporter';
use vars '@EXPORT_OK';

@EXPORT_OK = qw( loadhash printhash );

sub loadhash {
	
my ($fh) = @_;
		
open DAT, &quot;$fh&quot; || die &quot;Could not open file! ($!)&quot;;

print &quot;\nProgram Homework1:  Two Level Hash \n\n&quot; ;	

my $HofH;

my $team;
my $last;
my $first;

	while (my $line = &lt;DAT&gt;) { 
	 ($team, $first, $last) = split(&quot; &quot;, $line);		
	  $HofH-&gt;{$team}{$first} = $last;	 
	} 
	
	print Dumper %{$HofH}; 
	
	return ($HofH);		
	
}

sub printhash {
 
 my ($HofH) = @_;
 
	my %dispatch = (
		'stooge'	=&gt; \&amp;stooge,
		'marx'	=&gt; \&amp;marx,
		'more'	=&gt; \&amp;more,
	);

	foreach my $team_name (keys %{$HofH})  {												
		print &quot;\nComedy Team: $team_name\n&quot; ;				
		my $code_ref = $dispatch{ $team_name };		
		$code_ref or die &quot;Can't find $team_name in dispatch table&quot; ;
		 		
		foreach my $first_name  (sort keys %{ $HofH-&gt;{$team_name} } ) {	
			my $last_name  = $HofH-&gt;{$team_name}-&gt;{$first_name} ;		
			print &quot;\nFirst Name : $first_name \n&quot; ;
			$code_ref-&gt;($first_name); 	
		}
	}		

	sub stooge {
		my $nameref = shift;
		print &quot;Last Name  : $HofH-&gt;{'stooge'}-&gt;{$nameref}\n&quot;;
		}
	
	sub marx {
		my $nameref = shift;
		print &quot;Last Name  : $HofH-&gt;{'marx'}-&gt;{$nameref}\n&quot;;	
	}
	
	sub more {
		print Dumper &quot;not found&quot;;
	}

}

# 3. CallMain2.pl

package CallArray2;

# This version imports the subs with an %EXPORT_TAGS tag 

use strict;
use Data::Dumper;

use NewArray2 qw( :Both);

my $data_file= &quot;data.txt&quot;;
	
my $AofA = loadarr($data_file);

my ($aref, $hold) = printarr($AofA);	

print &quot;\nThe row with the largest number is: \n&quot; ;
print Dumper $aref;
	
print &quot;\nThe largest number is: \n&quot; ;	
print Dumper $hold;		
	
print &quot;\nProgram Complete:  Array of Array's \n&quot; ;		

use NewHash2 qw( :Both);

my $hdata_file= &quot;hdata.txt&quot;;
	
my $HofH = loadhash($hdata_file);

printhash($HofH);	


# 4. NewArray2.pm

package NewArray2;

use strict;
use Data::Dumper;

use base 'Exporter';
use vars qw '@EXPORT_OK %EXPORT_TAGS';
@EXPORT_OK = qw( loadarr printarr );
%EXPORT_TAGS = ( Both =&gt;[qw(loadarr printarr)]);

sub loadarr {
	
	my ($fh) = @_;
		
	open DAT, &quot;$fh&quot; || die &quot;Could not open file! ($!)&quot;;

	print &quot;\nProgram Homework2:  Array of Array's \n&quot; ;		
	
	my $AofA ;
	my $hold = 0;
	my $aref;
	
	while (my $line = &lt;DAT&gt;) {  
		push @{$AofA},  [split(&quot; &quot;, $line)];
	}
	print &quot;\nThe Array of Array's contains: \n&quot; ;		
	print Dumper @{$AofA}; 

 	return ($AofA);		
}

sub printarr {
	
	my $hold;
	my $ele;
	my $aref;
	
	my ($AofA) = @_;
	
	foreach my $Arr ( @{$AofA}  ) {	
		foreach my $ele ( @{$Arr} ) {
				if ($ele &gt; $hold) {
					$aref = $Arr;
					$hold = $ele;
			}		
		}
	}
	
	return ($aref, $hold);		

}

# 5. NewHash2.pm

package NewHash2;

use strict;
use Data::Dumper;

use base 'Exporter';
use vars qw '@EXPORT_OK %EXPORT_TAGS';
@EXPORT_OK = qw( loadhash printhash );
%EXPORT_TAGS = ( Both =&gt;[qw(loadhash printhash)]);

sub loadhash {
	
my ($fh) = @_;
		
open DAT, &quot;$fh&quot; || die &quot;Could not open file! ($!)&quot;;

print &quot;\nProgram Homework2:  Two Level Hash \n\n&quot; ;	

my $HofH;

my $team;
my $last;
my $first;

	while (my $line = &lt;DAT&gt;) { 
	 ($team, $first, $last) = split(&quot; &quot;, $line);		
	  $HofH-&gt;{$team}{$first} = $last;	 
	} 
	
	print Dumper %{$HofH}; 
	
	return ($HofH);		
	
}

sub printhash {
 
 my ($HofH) = @_;
 
	my %dispatch = (
		'stooge'	=&gt; \&amp;stooge,
		'marx'	=&gt; \&amp;marx,
		'more'	=&gt; \&amp;more,
	);

	foreach my $team_name (keys %{$HofH})  {												
		print &quot;\nComedy Team: $team_name\n&quot; ;				
		my $code_ref = $dispatch{ $team_name };		
		$code_ref or die &quot;Can't find $team_name in dispatch table&quot; ;
		 		
		foreach my $first_name  (sort keys %{ $HofH-&gt;{$team_name} } ) {	
			my $last_name  = $HofH-&gt;{$team_name}-&gt;{$first_name} ;		
			print &quot;\nFirst Name : $first_name \n&quot; ;
			$code_ref-&gt;($first_name); 	
		}
	}		

	sub stooge {
		my $nameref = shift;
		print &quot;Last Name  : $HofH-&gt;{'stooge'}-&gt;{$nameref}\n&quot;;
		}
	
	sub marx {
		my $nameref = shift;
		print &quot;Last Name  : $HofH-&gt;{'marx'}-&gt;{$nameref}\n&quot;;	
	}
	
	sub more {
		print Dumper &quot;not found&quot;;
	}

}

# 3. CallMain3.pl

package CallArray3;

# This version will not import but will call the subs with Fully Qualified Names 

use strict;
use Data::Dumper;

use NewArray3;

my $data_file= &quot;data.txt&quot;;
	
my $AofA = NewArray3::loadarr($data_file);

my ($aref, $hold) = NewArray3::printarr($AofA);	

print &quot;\nThe row with the largest number is: \n&quot; ;
print Dumper $aref;
	
print &quot;\nThe largest number is: \n&quot; ;	
print Dumper $hold;		
	
print &quot;\nProgram Complete:  Array of Array's \n&quot; ;		

use NewHash3;

my $hdata_file= &quot;hdata.txt&quot;;
	
my $HofH = NewHash3::loadhash($hdata_file);

NewHash3::printhash($HofH)


4. NewArray3.pm --- application/octet-stream; NewArray3.pm]...

package NewArray3;

use strict;
use Data::Dumper;

sub loadarr {
	
	my ($fh) = @_;
		
	open DAT, &quot;$fh&quot; || die &quot;Could not open file! ($!)&quot;;

	print &quot;\nProgram Homework3:  Array of Array's \n&quot; ;		
	
	my $AofA ;
	my $hold = 0;
	my $aref;
	
	while (my $line = &lt;DAT&gt;) {  
		push @{$AofA},  [split(&quot; &quot;, $line)];
	}
	print &quot;\nThe Array of Array's contains: \n&quot; ;		
	print Dumper @{$AofA}; 

 	return ($AofA);		
}

sub printarr {
	
	my $hold;
	my $ele;
	my $aref;
	
	my ($AofA) = @_;
	
	foreach my $Arr ( @{$AofA}  ) {	
		foreach my $ele ( @{$Arr} ) {
				if ($ele &gt; $hold) {
					$aref = $Arr;
					$hold = $ele;
			}		
		}
	}
	
	return ($aref, $hold);		

}

return ('TRUE');


# 5. NewHash3.pm

package NewHash3;

use strict;
use Data::Dumper;

sub loadhash {
	
my ($fh) = @_;
		
open DAT, &quot;$fh&quot; || die &quot;Could not open file! ($!)&quot;;

print &quot;\nProgram Homework3:  Two Level Hash \n\n&quot; ;	

my $HofH;

my $team;
my $last;
my $first;

	while (my $line = &lt;DAT&gt;) { 
	 ($team, $first, $last) = split(&quot; &quot;, $line);		
	  $HofH-&gt;{$team}{$first} = $last;	 
	} 
	
	print Dumper %{$HofH}; 
	
	return ($HofH);		
	
}

sub printhash {
 
 my ($HofH) = @_;
 
	my %dispatch = (
		'stooge'	=&gt; \&amp;stooge,
		'marx'	=&gt; \&amp;marx,
		'more'	=&gt; \&amp;more,
	);

	foreach my $team_name (keys %{$HofH})  {												
		print &quot;\nComedy Team: $team_name\n&quot; ;				
		my $code_ref = $dispatch{ $team_name };		
		$code_ref or die &quot;Can't find $team_name in dispatch table&quot; ;
		 		
		foreach my $first_name  (sort keys %{ $HofH-&gt;{$team_name} } ) {	
			my $last_name  = $HofH-&gt;{$team_name}-&gt;{$first_name} ;		
			print &quot;\nFirst Name : $first_name \n&quot; ;
			$code_ref-&gt;($first_name); 	
		}
	}		

	sub stooge {
		my $nameref = shift;
		print &quot;Last Name  : $HofH-&gt;{'stooge'}-&gt;{$nameref}\n&quot;;
		}
	
	sub marx {
		my $nameref = shift;
		print &quot;Last Name  : $HofH-&gt;{'marx'}-&gt;{$nameref}\n&quot;;	
	}
	
	sub more {
		print Dumper &quot;not found&quot;;
	}

}
return ('TRUE');
</PRE></font>
			</div>
		

		</LI>
		</div>
	

	</UL>


	</div>

	<div id="footer_enclosure">
		

<HR>

	
		<A id=next_link href="page-0102.html">Next</A>
	

		<A id=index_link href="index.html">Index</A>
	

	</div>
</BODY>

</HTML>
Commit	Line	Data
9e609156	1	<?xml version="1.0" encoding="utf-8"?>
	2	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN"
	3	"http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd">
	4	<HTML xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
	5	<HEAD>
	6
	7	<TITLE></TITLE>
	8	<LINK REL="stylesheet" HREF="book.css" TYPE="text/css">
	9
	10	</HEAD>
	11
	12
	13	<BODY id="" >
	14	<div id="header_enclosure">
	15
	16
	17
	18
	19
	20	<H1>
	21	<div align="center" id="page_header_title">Donna's Homework
	22	</div>
	23	</H1>
	24
	25
	26
	27
	28
	29	<A id=next_link href="page-0102.html">Next</A>
	30
	31
	32
	33	<A id=index_link href="index.html">Index</A>
	34
	35
	36
	37
	38
	39
	40
	41	<HR>
	42
	43
	44
	45	</div>
	46
	47	<div id="body_enclosure">
	48
	49
	50
	51
	52	<UL>
	53
	54
	55	<div class="item">
	56	<LI>
	57
	58	<div class="item_title"></div>
	59
	60
	61
	62
	63
	64
65
66
67
68
69	<div class="code">
70	<font size=+1><PRE>
71
72
73	# 3. CallMain1.pl
74
75	package CallMain1;
76
77	# This version imports the subs with explict args to use command
78
79	use strict;
80	use Data::Dumper;
81
82	use NewArray1 qw( loadarr printarr);
83
84	my $data_file= "data.txt";
85
86	my $AofA = loadarr($data_file);
87
88	my ($aref, $hold) = printarr($AofA);
89
90	print "\nThe row with the largest number is: \n" ;
91	print Dumper $aref;
92
93	print "\nThe largest number is: \n" ;
94	print Dumper $hold;
95
96	print "\nProgram Complete: Array of Array's \n" ;
97
98	use NewHash1 qw( loadhash printhash);
99
100	my $hdata_file= "hdata.txt";
101
102	my $HofH = loadhash($hdata_file);
103
104	printhash($HofH);
105
106
107	# 4. NewArray1.pm
108
109	package NewArray1;
110
111	use strict;
112	use Data::Dumper;
113
114	use base 'Exporter';
115	use vars '@EXPORT_OK';
116
117	@EXPORT_OK = qw( loadarr printarr );
118
119	sub loadarr {
120
121	my ($fh) = @_;
122
123	open DAT, "$fh" \|\| die "Could not open file! ($!)";
124
125	print "\nProgram Homework1: Array of Array's \n" ;
126
127	my $AofA ;
128	my $hold = 0;
129	my $aref;
130
131	while (my $line = <DAT>) {
132	push @{$AofA}, [split(" ", $line)];
133	}
134	print "\nThe Array of Array's contains: \n" ;
135	print Dumper @{$AofA};
136
137	return ($AofA);
138	}
139
140	sub printarr {
141
142	my $hold;
143	my $ele;
144	my $aref;
145
146	my ($AofA) = @_;
147
148	foreach my $Arr ( @{$AofA} ) {
149	foreach my $ele ( @{$Arr} ) {
150	if ($ele > $hold) {
151	$aref = $Arr;
152	$hold = $ele;
153	}
154	}
155	}
156
157	return ($aref, $hold);
158
159	}
160
161	# 5. NewHash1.pm
162
163	package NewHash1;
164
165	use strict;
166	use Data::Dumper;
167
168	use base 'Exporter';
169	use vars '@EXPORT_OK';
170
171	@EXPORT_OK = qw( loadhash printhash );
172
173	sub loadhash {
174
175	my ($fh) = @_;
176
177	open DAT, "$fh" \|\| die "Could not open file! ($!)";
178
179	print "\nProgram Homework1: Two Level Hash \n\n" ;
180
181	my $HofH;
182
183	my $team;
184	my $last;
185	my $first;
186
187	while (my $line = <DAT>) {
188	($team, $first, $last) = split(" ", $line);
189	$HofH->{$team}{$first} = $last;
190	}
191
192	print Dumper %{$HofH};
193
194	return ($HofH);
195
196	}
197
198	sub printhash {
199
200	my ($HofH) = @_;
201
202	my %dispatch = (
203	'stooge' => \&stooge,
204	'marx' => \&marx,
205	'more' => \&more,
206	);
207
208	foreach my $team_name (keys %{$HofH}) {
209	print "\nComedy Team: $team_name\n" ;
210	my $code_ref = $dispatch{ $team_name };
211	$code_ref or die "Can't find $team_name in dispatch table" ;
212
213	foreach my $first_name (sort keys %{ $HofH->{$team_name} } ) {
214	my $last_name = $HofH->{$team_name}->{$first_name} ;
215	print "\nFirst Name : $first_name \n" ;
216	$code_ref->($first_name);
217	}
218	}
219
220	sub stooge {
221	my $nameref = shift;
222	print "Last Name : $HofH->{'stooge'}->{$nameref}\n";
223	}
224
225	sub marx {
226	my $nameref = shift;
227	print "Last Name : $HofH->{'marx'}->{$nameref}\n";
228	}
229
230	sub more {
231	print Dumper "not found";
232	}
233
234	}
235
236	# 3. CallMain2.pl
237
238	package CallArray2;
239
240	# This version imports the subs with an %EXPORT_TAGS tag
241
242	use strict;
243	use Data::Dumper;
244
245	use NewArray2 qw( :Both);
246
247	my $data_file= "data.txt";
248
249	my $AofA = loadarr($data_file);
250
251	my ($aref, $hold) = printarr($AofA);
252
253	print "\nThe row with the largest number is: \n" ;
254	print Dumper $aref;
255
256	print "\nThe largest number is: \n" ;
257	print Dumper $hold;
258
259	print "\nProgram Complete: Array of Array's \n" ;
260
261	use NewHash2 qw( :Both);
262
263	my $hdata_file= "hdata.txt";
264
265	my $HofH = loadhash($hdata_file);
266
267	printhash($HofH);
268
269
270	# 4. NewArray2.pm
271
272	package NewArray2;
273
274	use strict;
275	use Data::Dumper;
276
277	use base 'Exporter';
278	use vars qw '@EXPORT_OK %EXPORT_TAGS';
279	@EXPORT_OK = qw( loadarr printarr );
280	%EXPORT_TAGS = ( Both =>[qw(loadarr printarr)]);
281
282	sub loadarr {
283
284	my ($fh) = @_;
285
286	open DAT, "$fh" \|\| die "Could not open file! ($!)";
287
288	print "\nProgram Homework2: Array of Array's \n" ;
289
290	my $AofA ;
291	my $hold = 0;
292	my $aref;
293
294	while (my $line = <DAT>) {
295	push @{$AofA}, [split(" ", $line)];
296	}
297	print "\nThe Array of Array's contains: \n" ;
298	print Dumper @{$AofA};
299
300	return ($AofA);
301	}
302
303	sub printarr {
304
305	my $hold;
306	my $ele;
307	my $aref;
308
309	my ($AofA) = @_;
310
311	foreach my $Arr ( @{$AofA} ) {
312	foreach my $ele ( @{$Arr} ) {
313	if ($ele > $hold) {
314	$aref = $Arr;
315	$hold = $ele;
316	}
317	}
318	}
319
320	return ($aref, $hold);
321
322	}
323
324	# 5. NewHash2.pm
325
326	package NewHash2;
327
328	use strict;
329	use Data::Dumper;
330
331	use base 'Exporter';
332	use vars qw '@EXPORT_OK %EXPORT_TAGS';
333	@EXPORT_OK = qw( loadhash printhash );
334	%EXPORT_TAGS = ( Both =>[qw(loadhash printhash)]);
335
336	sub loadhash {
337
338	my ($fh) = @_;
339
340	open DAT, "$fh" \|\| die "Could not open file! ($!)";
341
342	print "\nProgram Homework2: Two Level Hash \n\n" ;
343
344	my $HofH;
345
346	my $team;
347	my $last;
348	my $first;
349
350	while (my $line = <DAT>) {
351	($team, $first, $last) = split(" ", $line);
352	$HofH->{$team}{$first} = $last;
353	}
354
355	print Dumper %{$HofH};
356
357	return ($HofH);
358
359	}
360
361	sub printhash {
362
363	my ($HofH) = @_;
364
365	my %dispatch = (
366	'stooge' => \&stooge,
367	'marx' => \&marx,
368	'more' => \&more,
369	);
370
371	foreach my $team_name (keys %{$HofH}) {
372	print "\nComedy Team: $team_name\n" ;
373	my $code_ref = $dispatch{ $team_name };
374	$code_ref or die "Can't find $team_name in dispatch table" ;
375
376	foreach my $first_name (sort keys %{ $HofH->{$team_name} } ) {
377	my $last_name = $HofH->{$team_name}->{$first_name} ;
378	print "\nFirst Name : $first_name \n" ;
379	$code_ref->($first_name);
380	}
381	}
382
383	sub stooge {
384	my $nameref = shift;
385	print "Last Name : $HofH->{'stooge'}->{$nameref}\n";
386	}
387
388	sub marx {
389	my $nameref = shift;
390	print "Last Name : $HofH->{'marx'}->{$nameref}\n";
391	}
392
393	sub more {
394	print Dumper "not found";
395	}
396
397	}
398
399	# 3. CallMain3.pl
400
401	package CallArray3;
402
403	# This version will not import but will call the subs with Fully Qualified Names
404
405	use strict;
406	use Data::Dumper;
407
408	use NewArray3;
409
410	my $data_file= "data.txt";
411
412	my $AofA = NewArray3::loadarr($data_file);
413
414	my ($aref, $hold) = NewArray3::printarr($AofA);
415
416	print "\nThe row with the largest number is: \n" ;
417	print Dumper $aref;
418
419	print "\nThe largest number is: \n" ;
420	print Dumper $hold;
421
422	print "\nProgram Complete: Array of Array's \n" ;
423
424	use NewHash3;
425
426	my $hdata_file= "hdata.txt";
427
428	my $HofH = NewHash3::loadhash($hdata_file);
429
430	NewHash3::printhash($HofH)
431
432
433	4. NewArray3.pm --- application/octet-stream; NewArray3.pm]...
434
435	package NewArray3;
436
437	use strict;
438	use Data::Dumper;
439
440	sub loadarr {
441
442	my ($fh) = @_;
443
444	open DAT, "$fh" \|\| die "Could not open file! ($!)";
445
446	print "\nProgram Homework3: Array of Array's \n" ;
447
448	my $AofA ;
449	my $hold = 0;
450	my $aref;
451
452	while (my $line = <DAT>) {
453	push @{$AofA}, [split(" ", $line)];
454	}
455	print "\nThe Array of Array's contains: \n" ;
456	print Dumper @{$AofA};
457
458	return ($AofA);
459	}
460
461	sub printarr {
462
463	my $hold;
464	my $ele;
465	my $aref;
466
467	my ($AofA) = @_;
468
469	foreach my $Arr ( @{$AofA} ) {
470	foreach my $ele ( @{$Arr} ) {
471	if ($ele > $hold) {
472	$aref = $Arr;
473	$hold = $ele;
474	}
475	}
476	}
477
478	return ($aref, $hold);
479
480	}
481
482	return ('TRUE');
483
484
485	# 5. NewHash3.pm
486
487	package NewHash3;
488
489	use strict;
490	use Data::Dumper;
491
492	sub loadhash {
493
494	my ($fh) = @_;
495
496	open DAT, "$fh" \|\| die "Could not open file! ($!)";
497
498	print "\nProgram Homework3: Two Level Hash \n\n" ;
499
500	my $HofH;
501
502	my $team;
503	my $last;
504	my $first;
505
506	while (my $line = <DAT>) {
507	($team, $first, $last) = split(" ", $line);
508	$HofH->{$team}{$first} = $last;
509	}
510
511	print Dumper %{$HofH};
512
513	return ($HofH);
514
515	}
516
517	sub printhash {
518
519	my ($HofH) = @_;
520
521	my %dispatch = (
522	'stooge' => \&stooge,
523	'marx' => \&marx,
524	'more' => \&more,
525	);
526
527	foreach my $team_name (keys %{$HofH}) {
528	print "\nComedy Team: $team_name\n" ;
529	my $code_ref = $dispatch{ $team_name };
530	$code_ref or die "Can't find $team_name in dispatch table" ;
531
532	foreach my $first_name (sort keys %{ $HofH->{$team_name} } ) {
533	my $last_name = $HofH->{$team_name}->{$first_name} ;
534	print "\nFirst Name : $first_name \n" ;
535	$code_ref->($first_name);
536	}
537	}
538
539	sub stooge {
540	my $nameref = shift;
541	print "Last Name : $HofH->{'stooge'}->{$nameref}\n";
542	}
543
544	sub marx {
545	my $nameref = shift;
546	print "Last Name : $HofH->{'marx'}->{$nameref}\n";
547	}
548
549	sub more {
550	print Dumper "not found";
551	}
552
553	}
554	return ('TRUE');
555	</PRE></font>
556	</div>
557
558
559	</LI>
560	</div>
561
562
563	</UL>
564
565
566
567	</div>
568
569	<div id="footer_enclosure">
570
571
572
573	<HR>
574
575
576
577
578	<A id=next_link href="page-0102.html">Next</A>
579
580
581
582	<A id=index_link href="index.html">Index</A>
583
584
585
586
587
588
589
590
591
592
593
594	</div>
595	</BODY>
596
597	</HTML>
598