| Next: Using document variables Previous: Security Contents: Contents |
All active contents shares the same Safe object which means that it is executed in the same Perl namespace (which usually happens to appear as main::, please see the translators documentation for details). As a consequece, several parts can interact with each other by variables and functions.
Note that the active parts are evaluated in the order they appear in the PerlPoint source.
\EMBED{lang=perl}
sub fileCount
{
# get number of files
opendir(D, '.');
my @fileNr=readdir(D);
my $fileNr=@fileNr;
closedir(D);
# supply result
$fileNr;
}
# scan directory
$filesFound=fileCount;
'';
\END_EMBED
|
The following condition evaluates the number of files found by the previously executed code, using a variable set there:
// conditional hints ? $filesFound>10000000000 |
... and includes more informations if appropriate:
=Using directories The number of files in your directory let us add additional suggestions: ... // back to main document ? 1 |
Now we can use the previously declared function again:
There are \EMBED{lang=perl}fileCount\END_EMBED files
in the current directory. |
| Next: Using document variables Previous: Security Contents: Contents |