NAME CAD::AutoCAD::Detect - Detect AutoCAD files through magic string. SYNOPSIS use CAD::AutoCAD::Detect qw(detect_dwg_file); my $dwg_magic = detect_dwg_file($file); DESCRIPTION This Perl module detect AutoCAD files through magic string. List of supported files: dwg SUBROUTINES "detect_dwg_file" my $dwg_magic = detect_dwg_file($file); Detect DWG file. Returns magic string or undef. ERRORS detect_dwg_file(): Cannot close file '%s'. Cannot open file '%s'. EXAMPLE1 use strict; use warnings; use CAD::AutoCAD::Detect qw(detect_dwg_file); use File::Temp qw(tempfile); use IO::Barf qw(barf); use MIME::Base64; # Data in base64. my $data = <<'END'; QUMxMDAyAAAAAAAAAAAAAAAK END # Temp file. my (undef, $temp_file) = tempfile(); # Save data to file. barf($temp_file, decode_base64($data)); # Check file. my $dwg_magic = detect_dwg_file($temp_file); # Print out. if ($dwg_magic) { print "File '$temp_file' is DWG file.\n"; } else { print "File '$temp_file' isn't DWG file.\n"; } # Output like: # File '%s' is DWG file. EXAMPLE2 use strict; use warnings; use CAD::AutoCAD::Detect qw(detect_dwg_file); # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 file\n"; exit 1; } my $file = $ARGV[0]; # Check DWG file. my $dwg_magic = detect_dwg_file($file); # Print out. if ($dwg_magic) { print "File '$file' is DWG file.\n"; } else { print "File '$file' isn't DWG file.\n"; } # Output: # Usage: detect-dwg-file file DEPENDENCIES CAD::AutoCAD::Version, Error::Pure, Exporter, List::MoreUtils, Readonly. REPOSITORY AUTHOR Michal Josef Špaček LICENSE AND COPYRIGHT © 2020-2021 Michal Josef Špaček BSD 2-Clause License VERSION 0.03