NAME File::Find::Rule::Dicom - Common rules for searching for DICOM things. SYNOPSIS use File::Find::Rule; use File::Find::Rule::Dicom; my @files = File::Find::Rule->dicom_file->in($dir); DESCRIPTION This Perl module contains File::Find::Rule rules for detecting DICOM things. DICOM (Digital Imaging and Communications in Medicine) is a standard for handling, storing, printing, and transmitting information in medical imaging. See DICOM on Wikipedia <https://en.wikipedia.org/wiki/DICOM>. SUBROUTINES "dicom_file()" The C<dicom_file()> rule detect DICOM files by DICM magic string. ERRORS dicom_file(): From Dicom::File::Detect::dicom_detect_file(): Cannot close file '%s'. Cannot open file '%s'. EXAMPLE use strict; use warnings; use File::Find::Rule; use File::Find::Rule::Dicom; # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 dir\n"; exit 1; } my $dir = $ARGV[0]; # Print all DICOM files in directory. foreach my $file (File::Find::Rule->dicom_file->in($dir)) { print "$file\n"; } # Output like: # Usage: qr{[\w\/]+} dir DEPENDENCIES Dicom::File::Detect, File::Find::Rule. SEE ALSO File::Find::Rule Alternative interface to File::Find REPOSITORY <https://github.com/michal-josef-spacek/File-Find-Rule-Dicom> AUTHOR Michal Josef Špaček <mailto:skim@cpan.org> <http://skim.cz> LICENSE AND COPYRIGHT © Michal Josef Špaček 2014-2020 BSD 2-Clause License VERSION 0.05