时间戳

首页 > 解决方案 > 从 SMIL 文件中提取 jpeg

linux - 从 SMIL 文件中提取 jpeg

问题描述

我需要我的 perl 脚本从 SMIL 文件中提取 jpeg。我看到的唯一方法是在 linux 中使用以下命令。

xxd -c1 -p wapenc\?T\=mavodi-6-13b-1f-4-7c-4806803 | tr "\n" " " | sed -n -e 's/.*\(ff d8 ff .*\)/\1/p' | xxd -r -p > image.jpeg

将其包装在 system() 调用中不起作用。将这样一系列命令合并到 perl 中的正确方法是什么？

标签： linuxperlmmshexdump

解决方案

在对示例文件进行测试后，我将 oneliner 从注释转换为正确的脚本。

脚本的核心是正则表达式/(\xff\xd8\xff.*?\x{ff}\x{d9})/s，它提取 JPEG 标头的开头直到（包括）JPEG 标记的结尾\xff\xd9，同时仍然允许其中包含换行符等（/s修饰符）：

#!perl
use strict;
use warnings;

$/ = undef;

my( $filename ) = 'wapenc_T=mavodi-6-13b-1f-4-7c-4806803';
my( $outfilename ) = "$filename-thumbnail.jpeg";

open my $fh, '<:raw', $filename
    or die "Couldn't read '$filename': $!";
my $buffer;
{
    local $/;
    $buffer = <$fh>;
};

open my $output, '>:raw', $outfilename
    or die "Couldn't write to '$outfilename': $!";

if( $buffer =~ /(\xff\xd8\xff.*?\x{ff}\x{d9})/s ) {;
    print $output $1
};

推荐阅读