PageRenderTime 10ms CodeModel.GetById 1ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 0ms

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

#
Perl | 28 lines | 9 code | 14 blank | 5 comment | 0 complexity | c323e133b48eb19d7371ffe713ff74f9 MD5 | raw file
 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