63880a6e34
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@50 626c5289-ae23-0410-ae9c-e8d60b6d4f22
23 lines
395 B
Perl
Executable file
23 lines
395 B
Perl
Executable file
#
|
|
# Perl5 script for testing simple example
|
|
|
|
use example;
|
|
package example;
|
|
|
|
print get_time();
|
|
print "My Variable = $My_variable","\n";
|
|
for ($i = 0; $i < 14; $i++) {
|
|
$n = fact($i);
|
|
print "$i factorial is $n\n";
|
|
}
|
|
|
|
for ($i = 1; $i < 250; $i++) {
|
|
for ($j = 1; $j < 250; $j++) {
|
|
$n = mod($i,$j);
|
|
$My_variable = $My_variable + $n;
|
|
}
|
|
}
|
|
|
|
print "My_variable = ", $My_variable, "\n";
|
|
|
|
|