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);

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

# Pragmas.
use strict;
use warnings;

# Modules.
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.

REPOSITORY

https://github.com/tupinek/File-Find-Rule-Dicom

AUTHOR

Michal Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

BSD license.

VERSION

0.01