<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">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-&gt;dicom_file-&gt;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
    &lt;https://en.wikipedia.org/wiki/DICOM&gt;.

SUBROUTINES
    "dicom_file()"
             The C&lt;dicom_file()&gt; 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
     # Pragmas.
     use strict;
     use warnings;

     # Modules.
     use File::Find::Rule;
     use File::Find::Rule::Dicom;

     # Arguments.
     if (@ARGV &lt; 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-&gt;dicom_file-&gt;in($dir)) {
             print "$file\n";
     }

     # Output like:
     # Usage: qr{[\w\/]+} dir

DEPENDENCIES
    Dicom::File::Detect, File::Find::Rule.

SEE ALSO
    File::Find::Rule.

REPOSITORY
    &lt;https://github.com/tupinek/File-Find-Rule-Dicom&gt;

AUTHOR
    Michal Ĺ&nbsp;paÄŤek &lt;mailto:skim@cpan.org&gt;

    &lt;http://skim.cz&gt;

LICENSE AND COPYRIGHT
    BSD license.

VERSION
    0.03

</pre></body></html>