Changeset 395

Timestamp:

04/24/07 01:13:37 (1 year ago)

Author:

miya

Message:

--

Files:

• library/perl/trunk/FFmpeg-Command/Makefile.PL (modified) (1 diff)
• library/perl/trunk/FFmpeg-Command/lib/FFmpeg/Command.pm (modified) (5 diffs)

library/perl/trunk/FFmpeg-Command/Makefile.PL

@@ -14 +14 @@
-        'Class::ErrorHandler'   => 0,
-        'IPC::Run'              => 0,
+        'MIME::Types'           => 0,
-    },
-    dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },

library/perl/trunk/FFmpeg-Command/lib/FFmpeg/Command.pm

@@ -3 +3 @@
-use warnings;
-use strict;
-6
+7
-
-use base qw( Class::Accessor::Fast Class::ErrorHandler );
@@ -45 +45 @@
-sub output_options {
-    my ( $self, $args ) = @_;
+
-    $self->output_file(delete $args->{file});
-    my $device = delete $args->{device} || 'ipod';
+    my $media  = delete $args->{media}  || 'video';
+
+    if ( delete $args->{auto_set_media} ) {
+        unless ( $self->input_file ) {
+            $self->error('You must call input_file() or input_options() for setting input file name before calling output_options() when you set auto_set_media to 1.');
+            return;
+        }
+        require MIME::Types;
+        my $myme = MIME::Types->new;
+        $media = $mime->mimeTypeOf( $self->input_file );
+        $media =~ s!(.[^/]+)/!$1!;
+    }
+
+    if ( $media ne 'video' and $media 'audio' ) {
+        $self->error("media '$media' is not valid.'video' or 'audio' is valid.");
+        return;
+    }
-
-    my %device_option = (
@@ -69 +87 @@
-    );
-
-
-
-
+
+
+
+
-    );
+
+    my %output_option;
+    if ( $media eq 'video' ) {
+        %output_option = (
+            %{ $device_option{$device} },
+            %$args,
+        );
+    }
+    else {
+        %output_option = (
+            %audio_option,
+            %$args,
+        );
+    }
-
-    for ( keys %output_option ){
@@ -179 +212 @@
-    $ffmpeg->exec();
-
+    # Convert a audio file into a mp3 formatted auto file.
+    $ffmed->output_options({
+        media => 'audio',
+    });
+
+    $ffmpeg->exec();
+
+    # Convert a audio file into a aac formatted auto file.
+    $ffmed->output_options({
+        media               => 'audio',
+        audio_codec         => 'aac',
+        audio_sampling_rate => 48000,
+        audio_bit_rate      => 128,
+    });
+
+    $ffmpeg->exec();
+
+    # Detect media type of an input file automatically and set output options automatically for the media type.
+    $ffmed->output_options({
+        auto_set_media => 1,
+    });
+
+    $ffmpeg->exec();
+
-    # Execute ffmpeg with any options you like.
-    # This sample code takes a screnn shot.
@@ -269 +326 @@
-Set the comment.
-
+=item media
+
+Set the media type (video or audio) of an output file.Default is 'video'.
+
+=item auto_set_media
+
+Set the media type of an output file automatically from an input file.
+
-=back
-