Perl-module which allows to use Droid/PRONOM signatures and to convert it to Perl regular expressions, analyze files using wxHexEditor tags to display matches and calc statistics. For PRONOM see https://www.nationalarchives.gov.uk/PRONOM/
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

36 lines
1021 B

  1. #!/usr/bin/env perl
  2. #===============================================================================
  3. #
  4. # FILE: pronom_statistics.pl
  5. #
  6. # USAGE: ./pronom_statistics.pl
  7. #
  8. # DESCRIPTION: perl ./pronom_statistics.pl <DROIDSIGNATURE-FILE>
  9. #
  10. # OPTIONS: ---
  11. # REQUIREMENTS: ---
  12. # BUGS: ---
  13. # NOTES: ---
  14. # AUTHOR: Andreas Romeyke,
  15. # CREATED: 28.08.2018 14:26:43
  16. # REVISION: ---
  17. #===============================================================================
  18. use strict;
  19. use warnings 'FATAL';
  20. use utf8;
  21. use v5.24;
  22. use File::FormatIdentification::Pronom;
  23. ################################################################################
  24. # main
  25. ################################################################################
  26. my $pronomfile = shift @ARGV;
  27. if ( !defined $pronomfile ) {
  28. say "you need at least a pronom signature file";
  29. }
  30. my $pronom = File::FormatIdentification::Pronom->new(
  31. "droid_signature_filename" => $pronomfile );
  32. $pronom->print_csv_statistics();
  33. 1;