/trunk/Examples/perl5/multimap/runme.pl

 1# file: runme.pl
 2
 3use example;
 4
 5# Call our gcd() function
 6
 7$x = 42;
 8$y = 105;
 9$g = example::gcd($x,$y);
10print "The gcd of $x and $y is $g\n";
11
12# Call the gcdmain() function
13@a = ("gcdmain","42","105");
14example::gcdmain(\@a);
15
16# Call the count function
17print example::count("Hello World", "l"),"\n";
18
19# Call the capitize function
20
21print example::capitalize("hello world"),"\n";
22
23
24
25
26
27
28