NAME Dicom::File::Detect - Detect DICOM file through magic string. SYNOPSIS use Dicom::File::Detect qw(dicom_detect_file); my $dcm_flag = dicom_detect_file($file); SUBROUTINES "dicom_detect_file($file)" Detect DICOM file. Returns 1/0. ERRORS dicom_detect_file(): Cannot close file '%s'. Cannot open file '%s'. EXAMPLE1 # Pragmas. use strict; use warnings; # Modules. use Dicom::File::Detect qw(dicom_detect_file); use File::Temp qw(tempfile); use IO::Barf qw(barf); use MIME::Base64; # Data in base64. my $data = <<'END'; AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAABESUNNCg== END # Temp file. my (undef, $temp_file) = tempfile(); # Save data to file. barf($temp_file, decode_base64($data)); # Check file. my $dcm_flag = dicom_detect_file($temp_file); # Print out. if ($dcm_flag) { print "File '$temp_file' is DICOM file.\n"; } else { print "File '$temp_file' isn't DICOM file.\n"; } # Output like: # File '%s' is DICOM file. EXAMPLE2 # Pragmas. use strict; use warnings; # Modules. use Dicom::File::Detect qw(dicom_detect_file); # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 file\n"; exit 1; } my $file = $ARGV[0]; # Check file. my $dcm_flag = dicom_detect_file($file); # Print out. if ($dcm_flag) { print "File '$file' is DICOM file.\n"; } else { print "File '$file' isn't DICOM file.\n"; } # Output: # Usage: dicom-detect-file file DEPENDENCIES Error::Pure, Exporter, Readonly. SEE ALSO DicomPack. REPOSITORY AUTHOR Michal Špaček LICENSE AND COPYRIGHT BSD 2-Clause License VERSION 0.01