/trunk/Examples/perl5/simple/runme.pl

# · Perl · 23 lines · 8 code · 8 blank · 7 comment · 0 complexity · dc8f98e58d57a66406271707d31693c6 MD5 · raw file 

    

  1. #
    2. 

  2. # Perl5 script for testing simple example
    3. 

  3. 

  4. use example;
    5. 

  5. 

  6. # Call our gcd() function
    7. 

  7. 

  8. $x = 42;
    9. 

  9. $y = 105;
    10. 

  10. $g = example::gcd($x,$y);
    11. 

  11. print "The gcd of $x and $y is $g\n";
    12. 

  12. 

  13. # Manipulate the Foo global variable
    14. 

  14. 

  15. # Output its current value
    16. 

  16. print "Foo = $example::Foo\n";
    17. 

  17. 

  18. # Change its value
    19. 

  19. $example::Foo = 3.1415926;
    20. 

  20. 

  21. # See if the change took effect
    22. 

  22. print "Foo = $example::Foo\n";
    23.