Re^2: Updated QuickTime format movie file dumper

Just replace the package main stuff with:

package main;

my $file = shift;

if (defined $file) {
    $file = DumpQuicktime->new(-file=>$file);
    die $file->lastErr () if length $file->lastErr ();
    print $file->dump ();
}
[download]

For me the tree stuff is invaluable. Quicktime atoms are nested about 30 deep in stuff I'm looking at and the output is, I'd guess, a couple of thousand lines long!

Returning a string rather than outputting directly to sdtout allows post processing of the output.

DWIM is Perl's answer to Gödel

Comment on Re^2: Updated QuickTime format movie file dumper Download Code

Replies are listed 'Best First'.
Re^3: Updated QuickTime format movie file dumper by baboo (Initiate) on Mar 04, 2006 at 12:44 UTC
Hmm, the line "$file = DumpQuicktime->new(-file=>$file);" is the same, the same is the error :( Never seen movies with nested more than 3-4 deep atoms. The same with "thousand lines" - an average movie header say with 3-4 tracks may have about hundred or so atoms. Anyway thank you ;-)	[reply]
Re^4: Updated QuickTime format movie file dumper by GrandFather (Saint) on Mar 04, 2006 at 13:16 UTC
The only "interesting" module this version of the code depends on is use Class::MethodMaker. What is the error that you are getting? I wrote this code to see how a move with four sprite tracks in addition to a conventional movie track was being put together. Expressions involved in mouse hit testing get very nested! Note that this code is now looking inside the sprite media data (not just the track headers) to pull apart event handlers and such. DWIM is Perl's answer to Gödel	[reply]
Re^5: Updated QuickTime format movie file dumper by baboo (Initiate) on Mar 04, 2006 at 13:47 UTC
Isn't Tk and Tk::Tree are less "interesting". The problem is on Mac OS X Jaguar I need to recompile the whole Perl bundle to be able compile Tk module. Otherwice Tk returns: ld: Undefined symbols: _PL_curpad _PL_markstack_ptr _PL_op _PL_stack_base _PL_stack_sp _PL_sv_yes _Perl_croak _Perl_form _Perl_get_sv _Perl_mg_set _Perl_newXS _Perl_sv_2iv _Perl_sv_2pv_flags _Perl_sv_2pv_nolen _Perl_sv_newmortal _Perl_sv_setnv _Perl_sv_setpv	[reply]