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