split-jpeg

来自「Blackberry的在Linux平台上的同步软件」· 代码 · 共 43 行

#!/usr/bin/perl

# split-jpeg version 0.1

# Copyright (C) 2008, ashley willis <[e-mail]>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.
# 
# See the GNU General Public License in the COPYING file at the
# root directory of this project for more details.

# takes resulting files of "./convert-dumps Content_Store" and outputs any
# jpeg files into current directory, as well as header into a separate file.
# the file "Content_Store" is created by
# "btool -d 'Content Store' > Content_Store".

$HEAD = 0;

foreach $file (@ARGV) {
  open(IN, "$file");
  $jpeg = 0;
  read(IN, $head, 3);
  if ($head =~ /^!
$/) {	# barrybackup data, ipd2tgz
    $header = $head;
  }
  else {
    read(IN, $header, 15);
    $header = $head . $header;
  }
  
  ($name, $remainder) = split(//, <IN>, 2);
  ($name =~ /\.jpg$/) or next;

  $remainder = "$remainder";
  print "NAME=$name\n";
  if ($remainder =~ /