1#
2# Copyright(C) 2003
3# All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
4#
5# Permission from use, copy, modify, and distribute this
6# software and its documentation for EDUCATIONAL purposes
7# and without fee is hereby granted provided that this
8# copyright notice appears in all copies.
9#
10# date : January 1, 2003.
11# author : Salih Yurttas.
12#
13# a_01.pl
14#
15
16
17sub f {
18 $t = @_[0];
19
20 $n = @_;
21
22 @a = @_;
23
24 print "\nsub / t = $t, n = $n\n";
25
26 foreach $e (@_) {
27 print "$e\n";
28 }
29
30 print "\n";
31
32 foreach $e (@a) {
33 print "$e\n";
34 }
35}
36
37@list = (1,3,4,2);
38
39$k = @list;
40
41print "\n";
42print "main / k = $k\n";
43
44foreach $e (@list) {
45 print "$e\n";
46}
47
48f($k,@list);