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.

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