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