/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. use example;
  3. # Call our gcd() function
  4. $x = 42;
  5. $y = 105;
  6. $g = example::gcd($x,$y);
  7. print "The gcd of $x and $y is $g\n";
  8. # Call the gcdmain() function
  9. @a = ("gcdmain","42","105");
  10. example::gcdmain(\@a);
  11. # Call the count function
  12. print example::count("Hello World", "l"),"\n";
  13. # Call the capitize function
  14. print example::capitalize("hello world"),"\n";