| Subject: | SWF::Parser |
| Date: | Fri, 29 Jun 2007 10:52:55 +0100 |
| To: | bug-SWF-File [...] rt.cpan.org |
| From: | Nigel Horne <njh [...] bandsman.co.uk> |
[ Sent via email, because your bitcard system doesn't work or allow me to post ]
This attached program hangs when parsing http://www.logancitybrassband.com/welcome.swf.
Is this a bug in SWF::Parser?
---------------------------snip-----------------------------
#!/usr/bin/perl -wT
use SWF::Parser;
my $p = SWF::Parser->new('tag-callback' => \&tag);
$p->parse_file('welcome.swf');
sub tag {
my $p = shift;
my $tagno = shift;
my $length = shift;
my $datastream = shift;
print "$tagno, $length\n";
print $datastream->Length . "\n";
my $data = $datastream->get_string($length);
if($data =~ /.+\0(.+)\.(htm|html)\0/) {
# print "$tagno, $length\n";
print "$1.$2\n";
} elsif($data =~ /\0(.+?)\0_blank\0/i) {
my $f = $1;
$f =~ s/.+\0//;
# print "$tagno, $length\n";
print "$f\n";
}
# print $data;
}
---------------------snip---------------------
Regards,
-Nigel Horne
Message body is not shown because sender requested not to inline it.