Finding a flash file 1

[chris921]

I wish to have a perl script that when activated (From a checkbox in a form) identifies if a webpage (also entered into the form) contains a flash movie.

Is this possible, and if so, how do I do it? Perl code if possible, thanks.

 

[duncdude]

this might help a bit...

use LWP::Simple;

print "url:

http://www.";

chomp ($url = <STDIN>);

$url = "

http://www.".$url;

$url_result = get ($url);


if ($url_result =~ m|"([^"]+.swf)"|) {
print "HTML contains Flash content - $1\n";
} else {
print "HTML does not appear to contain Flash content\n";
}


Kind Regards
Duncan

 

[chris921]

Thanks very much