Yurttas/PL/SL/perl/F/03/01/06/a 01.pl

 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);