Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^2: Updated QuickTime format movie file dumper

by GrandFather (Sage)
on Mar 04, 2006 at 09:57 UTC ( #534446=note: print w/replies, xml ) Need Help??

in reply to Re: Updated QuickTime format movie file dumper
in thread 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 (); }

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

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 ;-)

      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
        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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://534446]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2018-05-26 11:12 GMT
Find Nodes?
    Voting Booth?