En la parte de código donde hace el cálculo de la duración (Image::ExifTool::MPEG::Composite) se ve que si el dato de la duración no es numérico, no realiza el cálculo, lo cual es lógico, porque implica mirar todo el fichero.
Como mucho, podrías hacer una estimación como la que él hace: tamaño/bitrate, pero ese bitrate deberás elegirlo. Quizás si añades más -v al exiftool, te dará más información, como por ejemplo el bitrate del primer cuadro, con lo que podrás hacer una estimación.
Y en cuanto a si vale para todos los formatos de vídeo, eso estará indicado en la doc. Desde luego, está actualizado a mayo de este año...
-
- Publicidad
Módulo Video::Info
39 mensajes
• Página 4 de 4 • 1, 2, 3, 4
Publicidad
por zozo666 » 2007-09-05 08:30 @396
Osea, el tema acá sería la palabra "Variable" ¿no?, que el ExifTool::MPEG::Composite la toma como una palabra. Realicé un "exiftool -v video.mpeg" y me salió la siguiente información:
¿Qué es lo que tendría que hacer con VideoBitrate=262143? ¿De qué forma hago la estimación que me marcas (explorer) arriba? ¿La hago en el mismo módulo o en el script donde lo voy a usar?
Muchas gracias
- Código: Seleccionar todo
ExifToolVersion = 6.90
FileName = video.mpeg
Directory = .
FileSize = 18575360
FileModifyDate = 1188268862
FileType = MPEG
MIMEType = video/mpeg
ImageWidth = 320
ImageHeight = 240
AspectRatio = 1
FrameRate = 2
VideoBitrate = 262143
MPEGAudioVersion = 2
AudioLayer = 2
AudioBitrate = 12
SampleRate = 0
ChannelMode = 3
MPEG_Audio_Bit26 = 0
ModeExtension = 0
MPEG_Audio_Bit27 = 0
CopyrightFlag = 0
OriginalMedia = 1
Emphasis = 0
¿Qué es lo que tendría que hacer con VideoBitrate=262143? ¿De qué forma hago la estimación que me marcas (explorer) arriba? ¿La hago en el mismo módulo o en el script donde lo voy a usar?
Muchas gracias
- zozo666
- Perlero nuevo
- Mensajes: 139
- Registrado: 2007-05-26 10:36 @483
por explorer » 2007-09-05 09:25 @434
Yo no haría ningún cambio en el módulo, que para eso tiene un dueño. Es mejor que hables con él.
La estimación de tiempo que él hace para cuando está indicado un BitRate es:
Es decir: 8 * <número de bytes del tamaño del fichero> / ( suma de los bitrates de audio y vídeo )
En tu ejemplo, saldría...
8 * 18575360 / (128000 + 262143) = 380,89 segundos = 00:06:21
La estimación de tiempo que él hace para cuando está indicado un BitRate es:
Using perl Syntax Highlighting
return (8 * $val[0]) / (($prt[1]||0) + ($val[2]||0));
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Es decir: 8 * <número de bytes del tamaño del fichero> / ( suma de los bitrates de audio y vídeo )
En tu ejemplo, saldría...
8 * 18575360 / (128000 + 262143) = 380,89 segundos = 00:06:21
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por zozo666 » 2007-09-05 09:41 @445
Muy bueno... justamente es un minuto más, o sea 00:06:21, pero en eso no hay problema ya que si en todos los casos es así, con sumarle un minuto queda perfecto.
Ahora, yo esto lo podría hacer pidiendo los correspondientes "VideoBitrate" y "AudioBitrate" en el script y haciendo esa cálculo, ¿no? Lo que no entiendo es de dónde salió "AudioBitrate = 128000", porque el que yo pasé marca 12.
Una última cosa... ¿Hay alguna función en Perl que me permita pasar de formatos de tiempo?. Yo quiero pasar 182.51 seg. al formato hora:min:seg (00:00:00)?
Muchísimas gracias.
Ahora, yo esto lo podría hacer pidiendo los correspondientes "VideoBitrate" y "AudioBitrate" en el script y haciendo esa cálculo, ¿no? Lo que no entiendo es de dónde salió "AudioBitrate = 128000", porque el que yo pasé marca 12.
Una última cosa... ¿Hay alguna función en Perl que me permita pasar de formatos de tiempo?. Yo quiero pasar 182.51 seg. al formato hora:min:seg (00:00:00)?
Muchísimas gracias.
- zozo666
- Perlero nuevo
- Mensajes: 139
- Registrado: 2007-05-26 10:36 @483
por explorer » 2007-09-05 10:19 @471
El AudioBitrate lo he tomado de la primera salida.
En cuanto a lo del cálculo de tiempo, no lo hay, pero puedes copiar el que ves en el código del módulo... ¿no te has fijado, eh?
En cuanto a lo del cálculo de tiempo, no lo hay, pero puedes copiar el que ves en el código del módulo... ¿no te has fijado, eh?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por zozo666 » 2007-09-05 12:27 @560
Este código es para extraer "AudioBitrate":
$exifTool = new Image::ExifTool;
$exifTool->ExtractInfo('video.mpeg', \%options);
$value = $exifTool->GetValue('AudioBitrate');
Ahora, necesito extraer "VideoBitrate" pero veo que este comando aparecía solamente cuando ejecutaba el comando "exiftool -v video.mpeg".
¿Cómo tendría que hacer ahora para sacarlo desde ese comando el VideoBitrate??
Using perl Syntax Highlighting
$exifTool = new Image::ExifTool;
$exifTool->ExtractInfo('video.mpeg', \%options);
$value = $exifTool->GetValue('AudioBitrate');
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Ahora, necesito extraer "VideoBitrate" pero veo que este comando aparecía solamente cuando ejecutaba el comando "exiftool -v video.mpeg".
¿Cómo tendría que hacer ahora para sacarlo desde ese comando el VideoBitrate??
- zozo666
- Perlero nuevo
- Mensajes: 139
- Registrado: 2007-05-26 10:36 @483
por explorer » 2007-09-05 13:54 @620
Está descrito en el manual...
Tienes que activar la opción Verbose, con un valor entre 0 y 5:
Hay que leer un poco más...
P.D. Estamos en el foro de Experto ;^)
Tienes que activar la opción Verbose, con un valor entre 0 y 5:
Using perl Syntax Highlighting
Hay que leer un poco más...
P.D. Estamos en el foro de Experto ;^)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por zozo666 » 2007-09-05 21:11 @924
Lo había notado, pero esa instrucción me tira en pantalla toda la información... lo que necesitaría yo es algo así como usa la otra instrucción, donde yo con un GetValue extraiga la información de la etiqueta deseada. Muchas gracias, con esto solo ya termino y después haciendo la cuenta ya termino todo.
¿Cómo se podría hacer eso? Intente un montón de formas y no pude.
¿Cómo se podría hacer eso? Intente un montón de formas y no pude.
- zozo666
- Perlero nuevo
- Mensajes: 139
- Registrado: 2007-05-26 10:36 @483
39 mensajes
• Página 4 de 4 • 1, 2, 3, 4
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 9 invitados