|
#!/usr/bin/perl
$magic="\xff\xd8\xff\xe1";
#$recover_countdown=24;
#open WOOT,"> recover.jpg";
$exitnow=1;
while ( ($foo=) ) {
if ( ($foo =~ m/$magic/) && $exitnow) {
$foo2=$foo;
$foo =~ s/$magic.*$//;
print WOOT "$foo";
#$exitnow=1;
#$exitnow = 0;
$continue = 0;
close WOOT;
$count++;
$filename="recover".$count.".jpg";
print "Creating $filename\n";
open WOOT, "> $filename";
$foo=$foo2;
};
if ( ($foo =~ m/$magic/) || $continue) {
#if ($continue && ($foo =~ m/$magic/)) {
#$foo =~ s/$magic.*$//;
#$exitnow=1;
#};
if ( !$continue) {
$foo =~ s/.*$magic/$magic/;
$continue = 1;
};
print WOOT "$foo";
};
#}; #end of photo skipped loop
}; #end of while loop
close WOOT;
|
