Hello Jesse Smith,
Actually AnomalousMonk’s approach works fine:
use strict; use warnings; my @array1 = qw( QUICK BROWN FOX ); my @array2 = qw( JUMPED UNFORTUNATE DOG ); print <<EOM; <P> The random words can go anywhere... <br> random $array1[ rand @array1 ] words $array2[ rand @array2 ] here <br> Footer text can go here!!! </P> EOM
Output:
15:17 >perl 1708_SoPW.pl <P> The random words can go anywhere... <br> random BROWN words JUMPED here <br> Footer text can go here!!! </P> 15:17 >perl 1708_SoPW.pl <P> The random words can go anywhere... <br> random FOX words JUMPED here <br> Footer text can go here!!! </P> 15:17 >perl 1708_SoPW.pl <P> The random words can go anywhere... <br> random FOX words DOG here <br> Footer text can go here!!! </P> 15:17 >
Why do you think otherwise?
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re^3: Print out random words with HTML
by Athanasius
in thread Print out random words with HTML
by Jesse Smith
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |