Submit Hint Search The Forums LinksStatsPollsHeadlinesRSS 14,000
hints and counting!  Click here to return to the 'Use a Perl
script to automate Flash content' hint Use a Perl script to
automate Flash content Authored by: Fred E. Webber on Apr 16,
'05 10:08:12PM I'm not certain about OpenLaszlo, though it
sounds intriguing. But I'm a hacker at heart and prefer simple
tasks to be handled simply. The PERL code presented in this
article was a bit buggy and verbose ; so here's a cleaner
example:  #! /usr/bin/Perl $| = 1; # flush buffer
$webServerRoot = "/Library/WebServer/Documents/";  use
File::Find; use CGI qw(:standard);  print STDOUT header(); #
from CGI  find(\&findFilter, $webServerRoot);  sub findFilter {
my ($theFileName) = $_;   my ($pathAndFile) = $File::Find::name;
my ($relPath) = $pathAndFile;   $relPath =~ s/$webServerRoot//i;
return unless ($theFileName =~ /\.html?$/i);   print STDOUT "<a
href=\"$relPath\">$theFileName</a><br>\n"; # or whatever you
need it to look like  This could be much si