|
|
@ -18,7 +18,7 @@ |
|
|
|
use strict; |
|
|
|
use warnings 'FATAL'; |
|
|
|
use utf8; |
|
|
|
use v5.24; |
|
|
|
use feature qw(say); |
|
|
|
use Fcntl qw(:seek); |
|
|
|
use Digest::CRC qw( crc8 ); |
|
|
|
use Scalar::Util; |
|
|
@ -330,15 +330,12 @@ foreach my $internalid ( $pronom->get_all_internal_ids() ) { |
|
|
|
|
|
|
|
open( my $OUT, ">", "$binaryfile.tags" ); |
|
|
|
open( my $HTML, ">", "$binaryfile.html" ); |
|
|
|
|
|
|
|
render_for_wxhexeditor( |
|
|
|
|
|
|
|
#filter_matches_by_signature_priority( $signatures, \@output_buffer ), |
|
|
|
\@output_buffer, |
|
|
|
$OUT, $binaryfile |
|
|
|
); |
|
|
|
render_for_html( |
|
|
|
|
|
|
|
#filter_matches_by_signature_priority( $signatures, \@output_buffer ), |
|
|
|
\@output_buffer, |
|
|
|
$HTML, $binaryfile |
|
|
|