How to use PERL get the properties of a Flash file

sureerat has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to use PERL get the properties of a Flash file by Illuminatus (Curate) on Nov 14, 2008 at 20:22 UTC
Did you look at Image::ExifTool::Flash?	[reply]
Re^2: How to use PERL get the properties of a Flash file by ikegami (Patriarch) on Nov 14, 2008 at 20:33 UTC
Tested. `my $info = ImageInfo($qfn); die "..." if exists($info->{Error}); die "..." if !exists($info->{ImageSize}); my ($x, $y) = $info->{ImageSize} =~ /^(\d+)x(\d+)\z/ or die "...";` [download]	[reply] [d/l]
Re: How to use PERL get the properties of a Flash file by ikegami (Patriarch) on Nov 14, 2008 at 20:22 UTC
Off the top of my head: Get `swfdump` from SWFTOOLS (GPL) # Windows syntax my $size = `swfdump -X -Y "$qfn"` or die "..."; my ($x, $y) = $size =~ /^-X (\d+) -Y (\d+)$/ or die "..."; [download] I strongly recommend a solution that doesn't use an external program. By the way, it's not called PERL. It's not called FLASH either. Update: Added missing "`= $size`". Tested. Added recommendation.	[reply] [d/l] [select]
Re: How to use PERL get the properties of a Flash file by MidLifeXis (Monsignor) on Nov 14, 2008 at 20:22 UTC
See Image::ExifTool::Flash, part of Image::ExifTool. --MidLifeXis	[reply]
Re^2: How to use PERL get the properties of a Flash file by sureerat (Acolyte) on Nov 15, 2008 at 13:46 UTC
Thank you very much to you all for the guideline. I will test Image::ExifTool::Flash, ImageInfo and SWFTOOLS for my knowledge before choosing to use on my script.	[reply]
Re: How to use PERL get the properties of a Flash file by valdez (Monsignor) on Nov 15, 2008 at 18:15 UTC
There is also FLV::Info. Ciao, Valerio	[reply]
Re^2: How to use PERL get the properties of a Flash file by sureerat (Acolyte) on Nov 16, 2008 at 09:54 UTC
Thank you Valerio. I'm interested to try FLV::Info also. I will test it. ^_^	[reply]


Do you know where your variables are?
	PerlMonks