PageRenderTime 4ms CodeModel.GetById 1ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

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

#
Perl | 23 lines | 8 code | 8 blank | 7 comment | 0 complexity | dc8f98e58d57a66406271707d31693c6 MD5 | raw file
 1#
 2# Perl5 script for testing simple example
 3
 4use example;
 5
 6# Call our gcd() function
 7
 8$x = 42;
 9$y = 105;
10$g = example::gcd($x,$y);
11print "The gcd of $x and $y is $g\n";
12
13# Manipulate the Foo global variable
14
15# Output its current value
16print "Foo = $example::Foo\n";
17
18# Change its value
19$example::Foo = 3.1415926;
20
21# See if the change took effect
22print "Foo = $example::Foo\n";
23